vba 链接mysql

最新推荐文章于 2023-11-28 14:47:22 发布

未来感知-UWB定位

最新推荐文章于 2023-11-28 14:47:22 发布

阅读量2.9k

点赞数

分类专栏： excel 常用功能文章标签： mysql vba database server string each

本文链接：https://blog.csdn.net/lyd518/article/details/6155558

版权

excel 常用功能专栏收录该内容

2 篇文章 0 订阅

订阅专栏

首先下载 mysql odbc 驱动

然后配制数据源

'MsgBox Sheets(4).Range("A1").End(xlDown).Row
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim fid As ADODB.Field
    Dim sql As String 'DRIVER={MySQL ODBC 3.51 Driver}
    Set conn = CreateObject("ADODB.Connection") ' 这个很重要没有会报错
    ' connstr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=127.0.0.1;Database=test;Uid=root;Pwd=liyudong"
    conn.ConnectionString = "DRIVER={MySql ODBC 5.1 Driver};SERVER=127.0.0.1;Database=test;Uid=root;Pwd=123456" ’ 驱动版本要正确，不能太低

    conn.Open
    Set rs = New ADODB.Recordset
    rs.Open "select * from lyd_test", conn
    'rs.MoveFirst
    'Do Until rs.EOF
    '   For Each fid In rs.Fields
    '       MsgBox fid.Value
    '
    '   Next
    'Loop

    conn.Close
    Set conn = Nothing