OBDC コネクタを使用して、VBA を使用して MySQL データベースに接続しています。現在、ローカル Web サーバー (localhost) で実行されていますが、PC の IP アドレスを介してネットワーク上の他の PC からアクセスできます。
私の接続機能ではlocalhost
、場所として持っていましたが、それを自分の IP アドレスに変更すると、
[MySQL][ODBC 5.2 Driver] (my computer name) is not allowed to connect to this MySQL server
エラー。
これはセキュリティ上の問題だと思います。これを修正する方法はありますか?
ここに私の接続機能があります:
Public Function OpenConnection() As ADODB.connection
//This function requires the "Microsoft ActiveX Data Objects" Library (Choose v2.8 from references for compatibility across Office versions)
Dim source As String, location As String, user As String, password As String
source = "MySQL"
location = "192.168.1.60"
user = "root"
password = ""
database = "database name"
mysql_driver = "MySQL ODBC 5.2 ANSI Driver"
//Build the connection string
Dim connectionString As String
connectionString = "Driver={" & mysql_driver & "};Server=" & location & ";Database=" & database & ";UID=" & user & ";PWD=" & password
//Create and open a new connection to the selected source
Set OpenConnection = New ADODB.connection
OpenConnection.CursorLocation = adUseClient
Call OpenConnection.Open(connectionString)
End Function