我正在尝试创建一个宏来运行将从 SQL Server 数据库中检索数据的查询。问题是运行宏后，它需要我插入用户名和密码才能访问数据库。
只是想知道是否有任何方法可以通过 VBA 绕过凭据（可能创建某种连接并传递连接字符串）。我知道我可以使用“查询设计”构建器创建传递查询，但是在调用查询时有没有办法在 VBA 中将凭据作为单独的参数传递。
DoCmd.OpenQuery "QueryName", acViewNormal, acEdit
感谢任何帮助。
【问题讨论】：
是的。我通过销毁和创建传递查询来做到这一点。这是用于 Oracle 的一些代码，但它适用于 SQL Server。只需确保您有一个匹配的 DSN：
Dim db As Database, q As QueryDef, sqlString as string
Set db = CurrentDb()
DoCmd.DeleteObject acQuery, "sqlServerQuery"
Set q = db.CreateQueryDef"sqlServerQuery"
q.Connect = "ODBC;DSN=myDSN;UID=myUser;PWD=myPassword"
queryString = "SELECT something FROM mySQLServertable"
q.SQL = queryString
q.ReturnsRecords = True
【讨论】：
如果使用 ADO 连接，则可以使用 ODBC 连接字符串连接到 SQL Server 数据库：
Dim conn As New ADODB.Connection
conn.Open "Driver={SQL Server};Server=[My Server];Database=[My Database];User Id=[My Username];Password=[My Password];"
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM [My Table]"
cmd.Execute
Dim rst As New ADODB.Recordset
rst.Open cmd
这会将“SELECT * from [My Table]”查询的结果加载到名为 rst 的记录集中。如果您可以通过 AD 凭据访问 SQL Server 数据库，则可以使用受信任的连接：
conn.Open "Driver={SQL Server};Server=[My Server];Database=[My Database];Trusted_Connection=True"
【讨论】：