SSWConsulting

'This code gets the exchange server's computer name.
'
'References needed: MAPI
'
' 16/04/2002 John Liu



Private Function ExchangeName() As String

SSWConsulting

ALTER PROCEDURE procSSWPrimaryKeyUpdateAllRelationships
/*
'---------------------------------------------- 
' Copyright 2002 Superior Software for Windows 
'---------------------------------------------- 

SSWConsulting

'---------------------------------------------------------------
Public Function ADOObjectPermissions(strCnnPermissions As String, strAccessSystemTable As String, bolReadData As Boolean) As Boolean
'---------------------------------------------------------------
'Requires reference for Microsoft ADO Ext. 2.? for DDL and Security
'Add read data permission on table, ie MSysObjects, MSysRelationships, Emp Task
'ADOObjectPermissions("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\SSW Upsizing PRO\Sample\TestReadPermissions.mdb","MSysObjects", True)
'Date          27/09/2002 ST
'Master SSW Upsizing PRO

On Error GoTo Err_ADOObjectPermissions