VBA 根据一列值查询mysql问题

鱼儿能飞

可以连接本地mysql，查询全部数据库可以查询出来，但因为数据量巨大，想要根据sheet1第一列值查询，如何编辑，万分感谢
错误代码为：rs.Open "select * from`daily_hco_full_info` where 机构id ='"[A1]"'"

Sub db()

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    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 ='"[A1]"'", conn
    [B2].CopyFromRecordset rs

    rs.Close: Set rs = Nothing
    conn.Close: Set conn = Nothing
    MsgBox "处理完毕", vbOKOnly, "提示信息"

End Sub

mmx1122

［A1］两边不用加单引号

mmx1122

from后面去掉单引号

语虚何以言知

1. "select * from daily_hco_full_info where 机构id ='" & [a1] & "'"

复制代码

试试看

鱼儿能飞

mmx1122 发表于 2019-12-9 15:55
from后面去掉单引号

大神 不对，，我试过了 找其他大神帮忙修改这样 但依然报错，且只显示2列值
Sub db()

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim row As Long
   
    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=Qwe@12345;OPTION=3;"
    conn.Open
   
   
    For i = 2 To 5000
    rs.Open "select * from daily_hco_full_info  where 机构id =" '& CStr(Sheet1.Cells(i, 1)) &'" ", conn
   
    row = Sheet1.Range("b1000000").End(xlUp).row
    Sheet1.Cells(row + 1, 2).CopyFromRecordset rs
   
    rs.Close: Set rs = Nothing
    conn.Close: Set conn = Nothing
   
    Next
   
    MsgBox "处理完毕", vbOKOnly, "提示信息"
   
End Sub

鱼儿能飞

mmx1122 发表于 2019-12-9 15:55
from后面去掉单引号

还是不行，感谢感谢
添加 报错91 with 模块错误   
For i = 2 To 5000
    rs.Open "select * from daily_hco_full_info  where 机构id ='" & Sheet1.Cells(i, 1) & "'", conn
    row = ActiveSheet.Range("b10000").End(xlUp).row
    ActiveSheet.Cells(row + 1, 2).CopyFromRecordset rs
   
    rs.Close: Set rs = Nothing
    Next
   
    conn.Close: Set conn = Nothing
    MsgBox "处理完毕", vbOKOnly, "提示信息

鱼儿能飞

语虚何以言知 发表于 2019-12-9 16:23
试试看

不行，需要一列值 是变动的，查询匹配出来数据库全部数据 select where 这边不对，也添加for i 也不行

语虚何以言知

鱼儿能飞 发表于 2019-12-9 17:41
不行，需要一列值 是变动的，查询匹配出来数据库全部数据 select where 这边不对，也添加for i 也不行

你举例是a1，我以为是单一条件呢，你实际是要根据一组数据筛选吗？就是求两表交集，上传附件：1、你的xlsm文件
2、mysql导出被查询excel表

鱼儿能飞

语虚何以言知 发表于 2019-12-9 21:40
你举例是a1，我以为是单一条件呢，你实际是要根据一组数据筛选吗？就是求两表交集，上传附件：1、你的xls ...

对对，很多值，数据库几百万数据 无法导出，需要连接查询，这样

语虚何以言知

鱼儿能飞 发表于 2019-12-10 16:10
对对，很多值，数据库几百万数据 无法导出，需要连接查询，这样

猜猜猜太没效率。
你数据库导出表，然后隐去敏感字段，我自己的mysql新建个表我来模拟下，然后你的xlsm表也同时给我