MS Access соединяется с Windows с именем пользователя к SQL Server - PullRequest
2 голосов
/ 13 февраля 2012
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. Есть ли хороший способ сделать это? Это для целей аудита, поэтому я знаю, кто что сделал.

1 Ответ

3 голосов
/ 13 февраля 2012

Удалите Properties UserID и Password и замените на Integrated Security значением true.

.Properties("Integrated Security").Value = true

* Может быть столицей T для true

...