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
vba 连接mysql 查询
最新推荐文章于 2023-11-26 22:49:35 发布