SQLSever2008 Express のデータをWin7 32bitパソコンのExcel2007VBAで抽出と貼り付けをしています。
このExcelファイルをWin10 32bitパソコンのExcel2013VBAで開くとエラーになります。
エラー表示は「SQL Server が利用できないか、存在しません。 指定された SQL Server が見つかりません。」
参照設定が間違っているのでしょうか?
参照設定は
・Microsoft Excel 12.0 Object Library
・OLE Automation
・Microsoft Office 12.0 Object Library
・Microsoft ActiveX DATA Objects 2.8 Library
・Microsoft DAO 3.6 Object Library
SQL Server 2008 - Native Client 10.0 インストール済
VBA の記述は以下の通りです。
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset
Dim FileName As String
myCon.Open "Provider=SQLNCLI10;" & _
"Data Source=[サーバーIP].\SQLEXPRESS;" & _
"Initial Catalog=[DB名];", "ID", "PW"
myRS.Open "SELECT FLG FROM 出荷 WHERE NO2 = " & NO, myCon, adOpenDynamic, adLockPessimistic
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。