vba访问局域网mysql_怎么处理excel vba连接局域网中电脑上的mysql数据库

本人想用excel vba和mysql数据库做一个小型数据平台,让局域网中的全部人通过exce访问同一台电脑上的mysql数据.

下列程序在本机上能运行,在其他机子上不能运行.

Private Sub CommandButton1_Click()

Dim strconnt As String

Dim strSql  As String

strconnt = “”

Set connt = New ADODB.Connection

Set rs = New ADODB.Recordset

Dim sevip, Db, user, pwd As String

“”设服务器地址、所连数据，及登录用户密码

sevip = “127.0.0.1”

Db = “pzx”

user = “root”

pwd = “13678096166”

strconnt = “DRIVER={MySql ODBC 5.3 Unicode Driver};SERVER=” & sevip & “;Database=” & Db & “;Uid=” & user & “;Pwd=” & pwd & “;Stmt=set names GBK”

connt.ConnectionString = strconnt

connt.Open

strSql = “select * from info”

rs.Open strSql, connt, 1, 1

Sheets(“sheet1”).Range(“a1”).CopyFromRecordset rs

rs.Close

connt.Close

End Sub

本人的机子在局域网中用固定IP:192.168.0.102 ,当把服务器地址换成192.168.0.102 时,在本机不能运行.

Private Sub CommandButton1_Click()

Dim strconnt As String

Dim strSql  As String

strconnt = “”

Set connt = New ADODB.Connection

Set rs = New ADODB.Recordset

Dim sevip, Db, user, pwd As String

“”设服务器地址、所连数据，及登录用户密码

sevip = “192.168.0.102”

Db = “pzx”

user = “root”

pwd = “13678096166”

strconnt = “DRIVER={MySql ODBC 5.3 Unicode Driver};SERVER=” & sevip & “;Database=” & Db & “;Uid=” & user & “;Pwd=” & pwd & “;Stmt=set names GBK”

connt.ConnectionString = strconnt

connt.Open

strSql = “select * from info”

rs.Open strSql, connt, 1, 1

Sheets(“sheet1”).Range(“a1”).CopyFromRecordset rs

rs.Close

connt.Close

End Sub

问一下怎么实现上述访问功能?