将 Access ADO 连接到 SQL Server 2014 Management Studio答案

【问题标题】：Connecting Access ADO to SQL Server 2014 Management Studio将 Access ADO 连接到 SQL Server 2014 Management Studio
【发布时间】：2014-12-27 17:22:10
【问题描述】：

我正在尝试通过 Access 创建与我的 SQL Server 的连接。我不想链接表，因为数据库中的一些表非常大。我将在 Access 中执行查询，这些查询将从 SQL 服务器中提取信息。

Sub CreateConnection()

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection

cnn.Open "Server=MBLWINDOWS-PC\SQLEXPRESS;Database=AdventureWorks2012; UserId=myUsername;Password=myPassword"

Debug.Print cnn.ConnectionString

cnn.Close

End Sub

访问SQL服务器的用户名和密码是用户windows的登录名和密码

如何将它合并到我的连接字符串中？

【问题讨论】：

“我不想链接表，因为数据库中的某些表非常大。” 听起来您并不真正了解链接表的工作原理。
作为快速跟进，拥有 100 万行的链接表的事实不会导致访问拉下所有记录。事实上，您可以启动绑定到该链接表的表单（或报告），并使用 where 子句（例如 Where Customer id = 134）只会将 1 条记录拉入该表单或报告中。

标签： sql ms-access connection ado

【解决方案1】：

如果您想使用用户的 Windows 凭据连接到 SQL Server，只需使用连接字符串中的Integrated Security 设置：

Server=MBLWINDOWS-PC\SQLEXPRESS;Database=AdventureWorks2012;Integrated Security=SSPI;

仅此而已。

【讨论】：

【解决方案2】：

这是有效的代码

Sub CreateConnection()

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection


With cnn
.Provider = "SQLOLEDB"
.ConnectionString = "Data Source=MBLWINDOWS-PC\SQLEXPRESS;database=AdventureWorks2012;Integrated Security=SSPI"
.Open


End With

If cnn.State = adStateOpen Then

MsgBox "Connection established"

End If

cnn.Close


Set cnn = Nothing

End Sub

【讨论】：