VBA 根据一列值查询mysql问题

鱼儿能飞

感谢  请查收，谢谢

鱼儿能飞

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

请查收，谢谢

lsdongjh

1. Sub db()
   
2.    
   
3.     Dim lngRow As Long, arrID As Variant, strID As String
   
4.    
   
5.     Dim conn As ADODB.Connection
   
6.     Dim rs As ADODB.Recordset
   
7.    
   
8.     lngRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
   
9.     If lngRow < 2 Then Exit Sub
   
10.    
    
11.     arrID = Sheet1.Range("A2:A" & lngRow)
    
12.     arrID = Application.WorksheetFunction.Transpose(arrID)
    
13.     strID = "'" & Join(arrID, "','") & "'"
    
14. 
    
15.     Set conn = New ADODB.Connection
    
16.     Set rs = New ADODB.Recordset
    
17. 
    
18.     conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=192.168.0.198;DB=saas;UID=root;PWD=12345;OPTION=3;"
    
19.     conn.Open
    
20. 
    
21.     rs.Open "select * from`daily_hco_full_info` where 机构id in values(" & strID & ")", conn
    
22.     [B2].CopyFromRecordset rs
    
23. 
    
24.     rs.Close: Set rs = Nothing
    
25.     conn.Close: Set conn = Nothing
    
26.     MsgBox "处理完毕", vbOKOnly, "提示信息"
    
27.    
    
28. End Sub

复制代码

语虚何以言知

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

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

leroy

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

鱼儿能飞

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

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

鱼儿能飞

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

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

鱼儿能飞

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

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

lsdongjh

去了，values

zpy2

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

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

in后面不需要 values