SQL Server 2008r2データベースからデータをプルするために、VBAでコードスニペットを作成しています。ただし、Conn.Openでエラーが発生します:[Microsoft] [SQL Server Native Client 10.0]名前付きパイププロバイダー:SQLServerへの接続を開くことができませんでした[53]。
ConnectionString.comと別のSO質問を使用して、私はこれを書きました:
Function GetAddress() As String
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Dim Rst As ADODB.Recordset
Set Rst = New ADODB.Recordset
Conn.ConnectionString = "Provider=SQLNCLI10;Server=12.34.5678;" & _
"Database=OurDB;User ID=myuserid;Password=mypw;"
Conn.Open
Set Rst.ActiveConnection = Conn
Rst.Open "Select top 1000 * from MainTable"
End Function
エラーをグーグルで検索すると、名前付きパイプが無効になっている可能性があります。そのリードに続いて、SQL Server構成マネージャーと名前付きパイプが完全に有効になっていることを確認しました(共有メモリとTCP / IPに次ぐ3次)。
このエラーを解消するにはどうすればよいですか?正しい接続文字列を使用していますか?