vba怎么將excel數(shù)據(jù)插入mysql數(shù)庫庫

1、定義連接db的過程：

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),當(dāng)雄企業(yè)網(wǎng)站建設(shè),當(dāng)雄品牌網(wǎng)站建設(shè),網(wǎng)站定制,當(dāng)雄網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,當(dāng)雄網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

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、執(zhí)行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，想把excel單元格的內(nèi)容寫入mysql，sql語句應(yīng)該怎樣寫啊？把單元格的內(nèi)容寫進(jìn)去

你的sql語句是什么?如果用到A1單元格,我打個比方吧,

mysql="select a,b from table where a=' " range("A1") "'"

判定單元格是什么用以下代碼

If Range("A1").HasFormula = True Then

MsgBox "單元格為公式"

ElseIf IsNumeric(Range("A1")) = True Then

MsgBox "單元格為數(shù)值"

Else

MsgBox "單元格為文本"

End If

vba excel導(dǎo)入mysql

我有一個較為簡單的辦法

不用VBA編程

如果你知道SQL語句的寫法

可以利用EXCEL中的公式直接生成對應(yīng)的 SQL插入語句

然后把這個語句復(fù)制到文本文件保存，直接在MYSQL中執(zhí)行就行了

我就是這么做的

寫VBA太麻煩

文章名稱：vba怎么寫入mysql vba錄入
文章地址：http://aaarwkj.com/article8/docpcip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信小程序、電子商務(wù)、企業(yè)建站、網(wǎng)站設(shè)計、全網(wǎng)營銷推廣、微信公眾號

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)