VBA連接到SQL Server數據源名稱未找到並且沒有指定默認驅動程序？

Question

我有以下的VBA代碼，我收到了這個問題標題中指出的錯誤信息。任何人都可以幫忙嗎？我通常不會寫這種代碼：

Sub Save_To_DB() 
'Declare some variables 
Dim cnn As ADODB.Connection 
Dim cmd As ADODB.Command 
Dim strSQL As String 

'Create a new Connection object 
Set cnn = New ADODB.Connection 

'Set the connection string 
cnn.ConnectionString = "Server=server_name;Database=database_name;Trusted_Connection=True;" 

'Open the Connection to the database 
cnn.Open **<-THE ERROR THROWS HERE** 

'Create a new Command object 
Set cmd = New ADODB.Command 

'Associate the command with the connection 
cmd.ActiveConnection = cnn 

'Go on to write the SQL statement and execute 

編輯：好的我解決了它，包括在連接字符串中Driver={SQL Native Client};需要。

Answer 1

這意味着您的連接字符串是錯誤的，請在此處查找正確的一個http://www.connectionstrings.com/。

如果你在尋找什麼會爲你工作的困難，使用外部數據嚮導附加表，然後看看連接字符串，它提供：

CurrentDB.TableDefs("MyLinkedTable").Connect