用excelvba连接mysql(多示例)数据库

zf2sa74q 于 2021-06-15 发布在 Mysql

关注(0)|答案(1)|浏览(765)

我的电脑上安装了多个mysql示例，分别是instance1和instance2。。。
第一示例数据目录为“c:\mysql2\data”，地址为：localhost，port=3306；
二示例数据目录为“c:\programdata\mysql\mysql server 5.7\data”，地址为：localhost，port=3308；

server_name = "localhost"
port = "3308" 
database_name = "test2" 
user_id = "root" 
password = "xxxx" 
Set conn = New ADODB.Connection
conn.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";Data Source=localhost" _
& ";SERVER=" & server_name _
& ";PORT=" & port _
& ";DATABASE=" & database_name _
& ";UID=" & user_id _
& ";PWD=" & password _
& ";OPTION=16427"

当我运行上面的代码连接到第二个示例数据库时，它显示错误：
运行时错误“-2147467259（80004005）”：[microsoft][odbc驱动程序管理器]未找到数据源名称，也未指定默认驱动程序
这段代码还显示了我的第一个示例的错误，该示例的服务器名为localhost，端口号为=3306
此代码在仅安装默认示例的情况下运行良好。

mysql excel vba

来源：https://stackoverflow.com/questions/54049083/connect-mysqlmultiple-instances-database-with-excel-vba

1条答案

按热度按时间

vi4fp9gy1#

在连接字符串中，如果

Driver={MySQL ODBC 8.0 Unicode Driver}

如果打开的是odbc数据源（32位），而不是odbc数据源（64位）

看到相同的名字了吗

那么这个代码就行了

Public Sub ask_sql1()
    Dim SQL As String
    SQL = "SELECT * FROM Users"
    Dim Conn As ADODB.Connection
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=127.0.0.1;Database=test;UID=root;PWD=*********"
    Conn.Open
    Dim recordSet As ADODB.recordSet
    Dim Field As ADODB.Field
    Set recordSet = New ADODB.recordSet
    recordSet.Open SQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
    If recordSet.State Then
        For Each Field In recordSet.Fields
            MsgBox Field.Name
        Next Field
        Set recordSet = Nothing
    End If
        Conn.Close
End Sub

你的办公室是64还是32

能否添加odbc数据源（32位）/驱动程序的屏幕截图？

展开查看全部

赞(0）回复(0）举报 2021-06-16

我来回答