將訪問ADO連接到SQL Server 2014管理工作室

我想通過Access創建一個連接到我的SQL Server。我不想鏈接表格，因爲數據庫中的一些表格非常大。我將在Access中執行查詢，將從SQL服務器中提取信息。將訪問ADO連接到SQL Server 2014管理工作室

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和密碼

我怎麼能在我的連接字符串合併呢？

來源

2014-12-27 user2904400

*代碼「我不想因爲一些在數據庫中的表是非常大的鏈接表。」 *這聽起來像你真的不明白怎麼鏈接表工作。 – 2014-12-27 21:48:21

就像快速跟進一樣，具有100萬行的鏈接表的事實不會導致訪問拉下所有記錄。實際上，您可以啓動綁定到該鏈接表的表單（或報表），並使用where子句（如Where Customer id = 134）將1條記錄下拉到該表單或報表中。 – 2014-12-28 03:56:49

如果你想使用用戶的Windows憑據連接到SQL Server，只需要使用Integrated Security設置在連接字符串中：

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

，這一切有。

來源

2014-12-27 18:10:44

這是工作

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

來源

2014-12-28 15:19:49 user2904400

將訪問ADO連接到SQL Server 2014管理工作室

回答

相關問題