Question

我必须在Access 2007中运行一个连接到SQL服务器的宏，并使用连接字符串来执行此操作。

Dim conn As ADODB.Connection
'Set conn = New ADODB.Connection

Set conn = CreateObject("ADODB.Connection")
Dim rs2 As ADODB.Recordset


Dim strConn As String

'cnPubs.ConnectionTimeout = 10

'Use the SQL Server OLE DB Provider.

strConn = strConn & "PROVIDER=SQLOLEDB;"

strConn = strConn & "DATA SOURCE=MyDataSource;INITIAL CATALOG=InitCat;"

strConn = strConn & "User Id=MyID;"

strConn = strConn & "Password=MyPassword;"

strConn = strConn & "INTEGRATED SECURITY=sspi;"

strConn = strConn & "Trusted_connection=no;"

conn.ConnectionString = strConn

conn.Properties("Prompt") = adPromptAlways

conn.Open

问题是，每次尝试连接时，都会检查出现的“使用可信连接”复选框，我必须取消选中它，因为我不使用pc用户的登录名和密码进行连接。有没有办法通过vba自动取消选中它，我在哪里定义连接字符串？我试过用

Trusted_connection=no

但它一直在检查。我想这样做，因为我想删除

conn.Properties("Prompt") = adPromptAlways

使宏与数据库连接，无需任何人为干预。

Answer 1

此行要求进行Windows身份验证。如果要为SQL Server身份验证提供用户和密码，请将其从连接字符串中删除。

strConn = strConn & "INTEGRATED SECURITY=sspi;"

通过vba取消选中“使用可信连接”复选框

1 个答案: