Dim Cnxn As ADODB.Connection
Set Cnxn = New ADODB.Connection
With Cnxn
.Provider = "MSDataShape"
.Properties("Data Provider").Value = "SQLOLEDB"
.Properties("Data Source").Value = dbserver
.Properties("User ID").Value = Username
.Properties("Password").Value = password
.Properties("Initial Catalog").Value = dbname
.CommandTimeout = 120
.ConnectionTimeout = 120
.Open
End With
Выше показано, как я подключаюсь из MS Access к SQL Server, где имя пользователя является именем пользователя SQL по умолчанию. Однако я хотел бы соединиться с именем пользователя Windows, но у меня нет времени для создания сотен имен пользователей на SQL Server, по одному для каждого пользователя Windows. Есть ли хороший способ сделать это? Это для целей аудита, поэтому я знаю, кто что сделал.