vba怎么将excel数据插入mysql数库库

1、定义连接db的过程：

Dim oConn As ADODB.Connection

Private Sub ConnectDB()

Set oConn = New ADODB.Connection

oConn.Open "DRIVER={MySQL ODBC 5.1 Driver}" &_

"SERVER=localhost" &_

"DATABASE=yourdatabase" &_

"USER=yourdbusername" &_

"PASSWORD=yourdbpassword" &_

"Option=3"

End Sub

2、执行db插入的具体写法：

Dim rs As ADODB.Recordset

Private Sub InsertData()

Set rs = New ADODB.Recordset

ConnectDB

With wsBooks

For rowCursor = 2 To 11

strSQL = "INSERT INTO tutorial (author, title, price) " &_

"VALUES ('" &esc(.Cells(rowCursor, 1)) &"', " &_

"'" &esc(.Cells(rowCursor, 2)) &"', " &_

esc(.Cells(rowCursor, 3)) &")"

rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic

Next

End With

End Sub

我有一个较为简单的办法

不用VBA编程

如果你知道SQL语句的写法

可以利用EXCEL中的公式直接生成对应的 SQL插入语句

然后把这个语句复制到文本文件保存，直接在MYSQL中执行就行了

我就是这么做的

写VBA太麻烦

先读取每个文件的路径然後执行SQL汇入Excel命令即可实现快速导入！也有其它方法但是都没有利用SQL汇入数据功能那么强大。汇放入方法参考http://wenku.baidu.com/link?url=gR8_OZDLsszaWEav8ZUpyc_PfVJDU9fLf3dksgVwUMU7n6FjNCNdRYLEpUQvenFJt_4o2V_TGI6Sq7JBHqoDrPz5i9zhxAH_NfK3e3ZuFDO

---