①.、定义连接db的过程:
Dim oConn As ADODB.Connection
Private Sub ConnectDB()
Set oConn = New ADODB.Connection
"SERVER=localhost;" _
"DATABASE=yourdatabase;" _
"USER=yourdbusername;" _
"PASSWORD=yourdbpassword;" _
End Sub
Dim rs As ADODB.Recordset
Private Sub InsertData()
Set rs = New ADODB.Recordset
ConnectDB
With wsBooks
strSQL = "INSERT INTO tutorial (author, title, price) " _
"VALUES ('" esc(.Cells(rowCursor, 1)) "', " _
rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
Next
End With
直接在excel中使用VBA连接MYSQL数据库,把EXCEL中的内容写入MYSQL数据库中
以上就是土嘎嘎小编为大家整理的vba怎么连接mysql相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!