Excel VBA連接MySql 數(shù)據(jù)庫(kù)獲取數(shù)據(jù)

Excel實(shí)用知識(shí) 2021-11-21

展開(kāi)全文

　　編寫Excel VBA工具，連接并操作Mysql 數(shù)據(jù)庫(kù),。

系統(tǒng)環(huán)境：

OS：Win7 64位英文版

Office 2010 32位英文版

1,、VBA連接MySql前的準(zhǔn)備

Tools--->References..---->引用

勾選Microsoft ActiveX Data Objects 2.8 Librarys 和Microsoft ActiveX Data Objects Recordset 2.8 Librarys

2、安裝Mysql ODBC連接服務(wù)

下載連接：https://dev./downloads/connector/odbc

注意：這里使用32位的版本

下載上圖中Windows(x86,32-bit),Zip Archive版本,，在測(cè)試中,，使用64位的版本無(wú)法連接到Mysql

把下載上述文件拷貝放到資源管理器里，放到合適位置,，解壓,，點(diǎn)擊里面的install.bat批處理文件。

從“控制面板”--->“管理工具”---->ODBC,打開(kāi)以后,，從這個(gè)里面無(wú)法看到Mysql的驅(qū)動(dòng),，實(shí)際上使用的是下面32位的ODBC驅(qū)動(dòng)

C:\Windows\SysWOW64\文件夾下的odbcca32.exe

3.連接示例

Sub TestConnectTodb()

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 5.3 Unicode Driver};Server=localhost;Port=3306;Database=db_hptms;Uid=root;Pwd=123456;OPTION=3;'

conn.Open

rs.Open 'select fdEmpNo,fdEmpName from tbUser', conn

With ThisWorkbook.Worksheets('MySqlData')

.Visible = True

.Range('a1:b1').Value = Array('EmpNo', 'EmpName')

.Range('A2').CopyFromRecordset rs

.Activate

End With

rs.Close: Set rs = Nothing

conn.Close: Set conn = Nothing

MsgBox '處理完畢', vbOKOnly, '提示信息'

End Sub

上述示例經(jīng)過(guò)測(cè)試，可以正常連接到Mysql數(shù)據(jù)庫(kù),，這里注意使用的ODBC連接的版本是32位,，在測(cè)試中，使用64位的,，始終無(wú)法正常打開(kāi)連接,。

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布,，不代表本站觀點(diǎn),。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙,。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自： Excel實(shí)用知識(shí) > 《VBA與EXCEL》

舉報(bào)/認(rèn)領(lǐng)