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数据库并返回数据给相应的单元格的主要内容,如果未能解决你的问题,请参考以下文章

请教JAVA使用POI导出excel处理空白单元格的问题

Excel表中连接sql并使用sql语句引用excel单元格数据作为查询条件

java poi怎么读取Excel中合并单元格的值?

java poi怎么读取Excel中合并单元格的值?

JTable里怎么得到修改后单元格里的值

在代码页中如何获取FastReport中一个单元格的值