Excel 使用儲存格的值 查詢MySQL資料庫並返回資料給相應的儲存格

標籤：拼接   nbsp   連接埠號碼   單元   ado   密碼   迴圈   sql資料庫   order   

Dim MyConn As Object
Private Sub ConnectDB()
Set MyConn = CreateObject("ADODB.Connection")    ----->建立連線物件
Dim str As String
str = "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _   ---->拼接串連語句   odbc驅動 
"SERVER=localhost;" & _                         ---->  主機

"PORT=3306;" & _    ----->連接埠號碼

"DATABASE=test;" & _   ----->指定資料庫
"USER=read;" & _          ------>使用者名稱
"PASSWORD=read;" & _     ------>密碼
"Option=3"
MyConn.Open str    ---->開啟串連

Dim sql As String
Dim i As Integer

Dim field As String

 

-----------迴圈開始

For i=1 To 500 

 

field = Worksheets("Sheet4").Cells(i, 5) --->從儲存格擷取查詢條件

 sql = "select delivery_no from tb_table where tb_table.order_id = ‘" & field &"‘"  ----->拼接sql 

Sheets("sheet1").Cells(i, 3).CopyFromRecordset MyConn.Execute(sql)     ----->把查詢結果賦值到sheet1第3列

Next i

-------------迴圈結束

MyConn.Close     ----->關閉串連

End Sub

Excel 使用儲存格的值 查詢MySQL資料庫並返回資料給相應的儲存格