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 

EDIT：[OK]を、私はそれを解決し、接続文字列でDriver={SQL Native Client};を含めるために必要な、私は通常、このコードの並べ替えを書いてはいけません。

Answer 1

これは、接続文字列が間違っていることを意味します。ここをクリックして、右側のhttp://www.connectionstrings.com/を探してください。

あなたはあなたのために動作するかを見つける難しさを持っている場合は、外部データ・ウィザードを使用してテーブルを添付し、それが提供する接続文字列を見て：

CurrentDB.TableDefs("MyLinkedTable").Connect