Excel 使用单元格的值 查询MySQL数据库并返回数据给相应的单元格
Posted robert_hly
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Excel 使用单元格的值 查询MySQL数据库并返回数据给相应的单元格相关的知识,希望对你有一定的参考价值。
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数据库并返回数据给相应的单元格的主要内容,如果未能解决你的问题,请参考以下文章