AccessでMysqlへ外部接続し、リンクテーブルを作成しています。
odbcad32.exeで設定すると問題なく接続できるのですが、今後お客様へ配布することも考え、DSNレス接続をしたいと思い、下記のコードを見つけ試してみました。
※localhostは接続先サーバーのアドレスになっており、サーバー上でIPアドレスの許可もしてあります。
記載されているようにlocalhostでローカルサーバーへ接続すると問題なく、イミディエイトウィンドウへ出力されますが、外部サーバーへ繋ぐと
実行時エラー '-2147467259(80004005)'
「access denied for user 'root'@'許可したIPアドレス' to database 'mysql'」
と、出て接続できません。
調べるとアクセスが拒否されているらしいことは分かったのですが、DSNで接続ができているので、パスワードなど間違っておらず、正常に外部接続ができることは確認できていると思っております。
もう何をどうすればいいのか分からない状態です。
どなたかご教授をお願い致します。
VBA
1Sub sample() 2Dim con As New ADODB.Connection, Rec As New ADODB.Recordset 3 con.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};DATABASE=mysql;" _ 4 & "PWD=password;PORT=3306;SERVER=localhost;" _ 5 & "STMT=SET NAMES sjis;UID=root" 6 con.Open 7 8 Rec.Open "select * from user", con 9 Do Until Rec.EOF 10 Debug.Print Rec(0) 11 Rec.MoveNext 12 Loop 13End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/06/30 16:16