まず、SQL Native Client がインストールされていることを確認する必要があります。 リファレンス
SQL Server 2008
標準セキュリティ
Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase;Uid=myUsername; Pwd=myPassword;
プレ>信頼できる接続
Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase; Trusted_Connection=yes;
プレ>SQL Server インスタンスへの接続 サーバー キーの値でサーバー インスタンスを指定する構文は、SQL Server のすべての接続文字列で同じです。
Provider=SQLNCLI10;Server=myServerName\theInstanceName;Database=myDataBase; Trusted_Connection=yes;
プレ>Dim conn As New ADODB.Connection Dim cmd As New ADODB.Command Dim sConnString As String Dim recordsAffected as Long 'Create connection string sConnString = "Provider=sqloledb; Server=LAPTOPX; Database=HomeSQL; Trusted_Connection=True;" 'Open connection and execute conn.Open sConnString 'Do your query With cmd .ActiveConnection = conn .CommandType = adCmdText .CommandText = "Select ...;" .Execute recordsAffected 'Includes a return parameter to capture the number of records affected End With Debug.Print recordsAffected 'Check whether any records were inserted 'Clean up If CBool(conn.State And adStateOpen) Then conn.Close Set cmd = Nothing Set conn = Nothing
プレ>