VBA 根据一列值查询mysql问题

鱼儿能飞 · 发表于 2019-12-10 16:28

感谢请查收，谢谢

鱼儿能飞 · 发表于 2019-12-10 16:29

语虚何以言知发表于 2019-12-10 16:19
猜猜猜太没效率。
你数据库导出表，然后隐去敏感字段，我自己的mysql新建个表我来模拟下，然后你的xlsm ...

请查收，谢谢

lsdongjh · 发表于 2019-12-10 16:32

Sub db()
Dim lngRow As Long, arrID As Variant, strID As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
lngRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
If lngRow < 2 Then Exit Sub
arrID = Sheet1.Range("A2:A" & lngRow)
arrID = Application.WorksheetFunction.Transpose(arrID)
strID = "'" & Join(arrID, "','") & "'"
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=192.168.0.198;DB=saas;UID=root;PWD=12345;OPTION=3;"
conn.Open
rs.Open "select * from`daily_hco_full_info` where 机构id in values(" & strID & ")", conn
[B2].CopyFromRecordset rs
rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
MsgBox "处理完毕", vbOKOnly, "提示信息"
End Sub

复制代码

语虚何以言知 · 发表于 2019-12-10 16:33

本帖最后由语虚何以言知于 2019-12-10 16:38 编辑

鱼儿能飞发表于 2019-12-10 16:28
感谢请查收，谢谢

解压出来两个文件抱歉刚才看漏了，编辑掉，正在处理中

leroy · 发表于 2019-12-10 16:57

如果你有数据库增删改查等权限，
不妨把Excel中的数据上传到数据库，然后进行关联查询，那样效率高得多。

鱼儿能飞 · 发表于 2019-12-10 17:10

leroy 发表于 2019-12-10 16:57
如果你有数据库增删改查等权限，
不妨把Excel中的数据上传到数据库，然后进行关联查询，那样效率高得多。

对，但是就是想给其他不懂数据库的人处理，我直接select查询就出来了

鱼儿能飞 · 发表于 2019-12-10 18:27

lsdongjh 发表于 2019-12-10 16:32

感谢但是运行报错了参考附件图片运行代码附件也在
提示运行错误位置：rs.Open "select * from `daily_hco_full_info` where 机构id in values(" & strID & ")", conn

鱼儿能飞 · 发表于 2019-12-10 18:29

lsdongjh 发表于 2019-12-10 16:32

还是不行，已经回复你了，运行错误情况，见回复，因为有附件，需要审核，稍后会提示给你，再帮忙看看，感谢

lsdongjh · 发表于 2019-12-11 06:42

去了，values

zpy2 · 发表于 2019-12-11 08:11

鱼儿能飞发表于 2019-12-10 18:29
还是不行，已经回复你了，运行错误情况，见回复，因为有附件，需要审核，稍后会提示给你，再帮忙看看 ...

https://bbs.csdn.net/topics/310237983

in后面不需要 values

		自动登录	找回密码
密码			免费注册

[求助] VBA 根据一列值查询mysql问题