Question

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的方式，其中username是默认的SQL用户名。但是，我想连接Windows用户名，但没有时间在SQL Server上创建100个用户名，每个Windows用户一个。有这么好的方法吗？这是出于审计目的，所以我知道谁做了什么。

Answer 1

删除Properties UserID和Password，并将Integrated Security替换为值true。

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

*可能是T

的大写true

MS Access使用Windows用户名连接到SQL Server

1 个答案: