1.准备工作:安装odbc驱动,32位的可以成功。看别的资料64位的会有问题。
2.引用ado相关引用
Mircosoft ActiveX Data Objects 2.8相关引用
3.在要操作的excel文件插入模块,编写方法代码
Function 导入数据(name As String, balance As String)
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;DB=test2;UID=root;PWD=123456;OPTION=3;"
conn.Open
Dim sql As String
sql = "insert into account(username,balance) values ('" & name & "','" & balance & "')"
rs.Open sql, conn
rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
导入数据 = "成功"
End Function