VBA 和 MySQL 連線 並 查詢

VBA 和 MySQL 連線 並 查詢

Private Sub btnTestReadInMysqlData_Click()
Dim objDB, arrRecord, strRecord, strOutput
Dim oRS, nRec, oFld
Dim row
Set objDB = DBConnect()
Set oRS = objDB.Execute("SELECT * FROM alldata WHERE URL = ""%him%"" ") 'select欄位, from資料表

nRec = 0
row = 1
Do While Not oRS.EOF
For Each oFld In oRS.Fields
Worksheets("Sheet1").Cells(row, 1).Value = oFld.Value
row = row + 1
Next
oRS.MoveNext
Loop
End Sub
Function DBConnect()
Set objDB = CreateObject("ADODB.Connection")
objDB.Open "jacky" '系統管理工具的data source name
Set DBConnect = objDB
End Function