求大神看看这个代码为什么只能查询2条数据

zq1987428

已经生成了一个access数据库。
希望用vba的语言，根据会员编码查询，注册日期、门店省、门店编号。
有大神帮忙修改了一段代码。


Sub 数据查询()
    Dim cnn As Object
    Dim sq1 As String
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=Microsoft.Ace.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\新客.mdb"
    sq1 = "select 注册日期,门店省,门店编号 from  [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[Sheet1$a:a] a left join [Sheet1] b on a.会员编码=b.会员编码"
    Range("b2").CopyFromRecordset cnn.Execute(sq1)
    cnn.Close
    Set cnn = Nothing
End Sub


但是修改了之后，只能一次查询2个会员编码。
在excel里面的多加了几个号码搜索之后，会弹出“表达式中的类型不匹配”这是什么原因呢？
是只能搜索2个数据么？
点调试里面会出现。
Range("b2").CopyFromRecordset cnn.Execute(sq1)
这个变黄了。

求大神帮忙看看

zq1987428

顶一下。。

jiangxiaoyun

会员编码就没有一个是相等的.....这样能查到数据吗？
建议自行了解一下SQL......

zq1987428

搞定了。。。
Sub 数据查询()
    Dim cnn As Object
    Dim sq1 As String
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=Microsoft.Ace.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\新客.mdb"
    sq1 = "select 注册日期,门店省,门店编号 from  [Excel 12.0;imex=1;Database=" & ThisWorkbook.FullName & "].[Sheet1$a:a] a left join [Sheet1] b on a.会员编码=b.会员编码"
    Range("b2").CopyFromRecordset cnn.Execute(sq1)
    cnn.Close
    Set cnn = Nothing
End Sub

是因为IMEX=1的原因。。