在EXCEL中使用VBA通过Connector/ODBC连接MySQL服务器 - 信息技术...

在EXCEL中使用VBA通过Connector/ODBC连接MySQL服务器

详细信息请参考《MySQL 6.0 Reference Manual》的以下章节
28.1.5.7. Connector/ODBC Programming
28.1.5.7.1. Using Connector/ODBC with Visual Basic Using ADO, DAO and RDO

首先当然是安装MySQL ODBC Connector，然后是在VBA中添加引用
Microsoft ActiveX Data Objects 2.8 Library
Microsoft ActiveX Data Objects Recordset 2.8 Library


Sub Export2Mysql()
'将Excel当中的数据转入数据库中
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim fld As ADODB.Field
    Dim sql As String
    Set conn = New ADODB.Connection
    '这里要换成你的服务器 库名 用户名 密码
    conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=server_ip;" & " DATABASE=dbname;" & "UID=user_idWD=password; OPTION=3"
    conn.Open
    '准备创建表
    conn.Execute "drop table if exists test"
    '注意这里的各列类型设定
    conn.Execute "create table test(name text,pass text)"
    '按行导入,这里假设第一列存的是name，第二列存的是pass
    For i = 1 To 20
        conn.Execute "insert into test(name,pass) values('" & Cells(i, 1).Text & "','" & Cells(i, 2) & "')"
    Next i
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseServer
    '使用下面的代码验证
    rs.Open "select * from test", conn
    rs.MoveFirst
    Do Until rs.EOF
        For Each fld In rs.Fields
            Debug.Print fld.Value,
        Next
        rs.MoveNext
        Debug.Print
    Loop
    rs.Close
    conn.Close
End Sub