在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的连接了。