Option Explicit

Sub 连接本地Mysql()
    '1. 引用ADO类库:前期或者后期绑定
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection 
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset 
    
    '2. ADO建立对数据源的链接
    conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=127.0.0.1;Port=3306;DB=school;UID=root;PWD=root;OPTION=3;"
    conn.Open
    
    '3. ADO执行SQL语言。
    Dim stu As String
    stu = "student" '表名
    rs.Open "select * from " & stu, conn
    Range("A2").CopyFromRecordset rs '将数据输出到工作表,不包含字段名
    
    '4. 关闭连接
    conn.Close 
    Set conn = Nothing
End Sub

Logo

腾讯云面向开发者汇聚海量精品云计算使用和开发经验,营造开放的云计算技术生态圈。

更多推荐