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数据_Excel 使用单元格的值 查询MySQL数据库并返回数据给相应的单元格...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。