在Access 2010 VBA中,可以使用以下代码示例来建立与SQL Server 2017的连接字符串:
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Server=myServerAddress;Database=myDatabase;Uid=myUsername;Pwd=myPassword;"
conn.Open
在上面的示例中,需要将以下参数替换为实际的值:
myServerAddress
:SQL Server的服务器地址myDatabase
:要连接的数据库名称myUsername
:登录SQL Server所使用的用户名myPassword
:登录SQL Server所使用的密码在这个示例中,我们使用了 ADODB.Connection
对象来建立与SQL Server的连接。然后,我们设置 ConnectionString
属性为连接字符串,该连接字符串指定了SQL Server的提供程序、服务器地址、数据库名称、用户名和密码。最后,我们使用 Open
方法打开连接。
请注意,上述示例使用的是SQL Server的SQLOLEDB提供程序。根据实际情况,可能需要使用其他提供程序,例如SQL Server Native Client或Microsoft OLE DB Driver for SQL Server。
另外,还需要确保在VBA代码中引用了 Microsoft ActiveX Data Objects
库,以便使用 ADODB.Connection
对象。可以通过以下步骤来添加对该库的引用:
Alt + F11
快捷键)工具(Tools)
-> 引用(References)
Microsoft ActiveX Data Objects x.x Library
(其中 x.x
表示版本号)确定(OK)
按钮保存更改完成以上步骤后,你就可以在VBA代码中使用 ADODB.Connection
对象来建立与SQL Server 2017的连接了。