Q&A
accessVBAを動作させているPC①と、sqlserverのあるPC②は、別ものですか？
上記が別ものとして続きの質問。
PC①上にあるSSMSから、PC②上にあるsqlserverにアクセスできますか？
SQL Serverから情報を取得するためにADOを使用した接続でAccessからVBAでSQL Servar 2019 Exprssに接続する、プログラムを実行するが接続に失敗してしまいます、ご教示願えないでしょうかよろしくお願い致します。
使用環境、Windows11Home、SQL ServerはSQL Servar 2019 Exprss、認証はSQL Server 認証、AccessのバージョンはAccess2019 32bit
参照設定は追加済です、Microsoft Activex Data Objects 2.8 Libraryにチェックを入れてあります
SSMSでサーバーロールチェックボックスにすべてチェックをいれてあります
SSMSのユーザーマッピングでSanpleDBのデータベース、ロールメンバーシップで
チェックボックスすべてにチェックを入れてあります
AccessVBAが動作しているPCとSQL ServerをインストールしているPCは同じPCです
Windowsファイアウォールで下記プログラムへの接続を許可しましたが接続に失敗します、%ProgreFiles%\Microsoft SQL Server\MSSQL15.MSSQLSERVER\MSSQL\Binn\sqlservr.exe
念のためWindowsファイアウォールをすべて無効にしましたが接続に失敗します
実行時エラー -2147467259(80004005)
このログインで要求されたデータベース
SanpleDBを開けません、ログインに失敗しました
上記エラーが表示されcn.Open strcnでプログラムが停止して接続できない
実行したデータベース接続プログラム
Public cn As ADODB.Connection
Public strcn As String
Public Sub データベース接続()
Set cn = CreateObject("ADODB.Connection")
strcn = "Provider=SQLOLEDB.1" & _
";Persist Security Info=False;Data Source=LAPTOP-R123XXX\SQLEXPRESS" & _
";Initial Catalog=SanpleDB" & _
";password=1234" & _
";persist security info=True" & _
";user id=abmin;"
cn.Open strcn―――▶ここで停止します
End Sub
SSMSでユーザーabminパスワード1234でSQL Server認証でSunpleDBを開く事ができます
ODBC接続したSQL ServerテーブルのデータはAccessで参照できます
新しいログインユーザーを作成しパスワードとIDを書き換えて実行しましたが同じエラーが出ます
もし上記で接続できないようでしたら、PC②のファイヤーウォールをすべて無効にして試してみてください。
PC①とPC②は同一PCなのですね。
SSMSでユーザabmin、パスワード1234で
SQLServer認証でログインできますか？
ExcelVBAですが、自身の環境では下記で動作しました。
Public Sub データベース接続()
dim cn As ADODB.Connection ＜＝＝変更箇所
dim strcn As String ＜＝＝変更箇所
Set cn = CreateObject("ADODB.Connection")
strcn = "Provider=SQLOLEDB.1" & _
";Persist Security Info=False;Data Source=LAPTOP-R123XXX\SQLEXPRESS" & _
";Initial Catalog=SanpleDB" & _
";password=1234" & _
";persist security info=True" & _
";user id=abmin;"
cn.Open strcn
End Sub
上記テスト環境だけ書いておきます。
Win10Pro、SQLServerExpress2019、Excel2010
ありがとうございました、今はテストできないので後ほど確認してみます
ご指摘の変更箇所を変えてテストしてみましたが、同じエラーが表示されます
そうするとaccess特有のことなのでしょう。
accessをもっていないので、こちらでは検証できないため、
他の方に任せます。
Win11が気になるので、Win10で試してみてはどうでしょう。
ExcelVBAで試してみるとか。
Win11にアップグレードしたのは最近でこのエラーはWin10でも表示されていました、ExcelVBAは知識がないので、コードとしては同じだと思うのですが実行方法がよくわかりません、勉強してみます、いろいろとお知恵を頂きありがとうございました。
お力になれず申し訳ないです。
とんでもないです、一人で悩んでいたので他の方のご意見を頂きありがたいことです。
回答1件
0
自己解決
SQL Serverを削除し再インストールすることで接続する事ができました、みなさまお騒がせして申し訳ありません
投稿2022/08/10 07:55
総合スコア15
あなたの回答
tips
プレビュー
