Excel VBA 对ACCESS进行三个表以上联合条件查询

sandy0tian

Excel VBA通过ADO多表（4个表）查询ACCESS数据库，如下的代码，查询到的结果为空。但是在ACCESS的查询表中，可以得到正确的查询结果。求助大师指点代码是哪里问题

sandy0tian

附件没稍上，现重新上传

sandy0tian

请见附件excel工作簿中的“查询”工作表。具体查询代码如下：
    strSQL = "SELECT [0].ID, [00].品名型号, [00].研发型号, [00].承认书编号, [00].版本号, [00].日期, " _
            & "[02].DCRTyp, [02].DCR, [02].Isat, [02].Itemp, [01].A, [01].B, [01].C, [01].D, [00].客户, " _
            & "[00].备注说明 FROM " _
            & "(((SELECT * FROM 0 WHERE [0].承认书编码 LIKE '*')[0]" _
            & "INNER JOIN " _
            & "(SELECT * FROM 00 WHERE [00].承认书编码 LIKE '*')[00] ON [0].承认书编码=[00].承认书编码) " _
            & "INNER JOIN " _
            & "(SELECT * FROM 01 WHERE [01].承认书编码 LIKE '*')[01] ON [0].承认书编码=[01].承认书编码) " _
            & "INNER JOIN " _
            & "(SELECT * FROM 02 WHERE [02].承认书编码 LIKE '*')[02] ON [0].承认书编码=[02].承认书编码 "

z865593849

查收

shiruiqiang

sql 语句中，like模糊匹配的代号应该是“%”。
试试LIKE '%'

ZHLK

Sub 宏1()
Rows("5:5000").Delete Shift:=xlUp
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & ThisWorkbook.Path & "\SpecForApproval.accdb", Destination:=Range("$A$5")).QueryTable
        .CommandType = xlCmdSql
        sqlstr = "SELECT [0].ID, [00].品名型号, [00].研发型号, [00].承认书编号, [00].版本号, [00].日期, [02].DCRTyp, [02].DCR, [02].Isat, [02].Itemp, [01].A, [01].B, [01].C, [01].D, [00].客户, [00].备注说明"
sqlstr = sqlstr & " FROM ((0 INNER JOIN 00 ON [0].承认书编码 = [00].承认书编码) INNER JOIN 01 ON [00].承认书编码 = [01].承认书编码) INNER JOIN 02 ON [01].承认书编码 = [02].承认书编码"
sqlstr = sqlstr & " WHERE ((([00].品名型号) Like '%730%'))"
        .CommandText = sqlstr
        .ListObject.DisplayName = "表_1"
        .Refresh BackgroundQuery:=False
    End With
End Sub

sandy0tian

shiruiqiang 发表于 2024-10-19 09:05
sql 语句中，like模糊匹配的代号应该是“%”。
试试LIKE '%'

感谢各位大师，确实可以了

sandy0tian

感谢各位大师。
写代码太麻烦了，我想在ACCESS中做好参数查询，然后在Excel中用VBA直接运行这个参数查询。但是在VBA中的代码总是写不好，麻烦各位大师再看看。EXCEL的代码见Read中

sandy0tian

感谢各位大师。
写代码太麻烦了，我想在ACCESS中做好参数查询，然后在Excel中用VBA直接运行这个参数查询。但是在VBA中的代码总是写不好，麻烦各位大师再看看。
EXCEL的代码见Read中
再次拜谢

sandy0tian

ZHLK 发表于 2024-10-19 11:00
Sub 宏1()
Rows("5:5000").Delete Shift:=xlUp
    With ActiveSheet.ListObjects.Add(SourceType:=0, So ...

确实可以了，太感谢了。能否再帮忙指导9楼的问题呢