求用excel一键查询数据库里面的数据。

zq1987428

额。。不要沉下去。。

grf1973

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

复制代码

zq1987428

grf1973 发表于 2018-10-9 13:57

想请问一下，前面的那个小b是可以删除的么？我之前删除了这个代码就提示有一个参数找不到

grf1973

要注意Select后面的各项必须和access表头完全一致
比如access表头是“门店编号”，代码里就不能写“门店编码”

grf1973

如果比较的两个表有相同的表头内容，那么必须加上a.，b.，比如a.会员编码=b.会员编码
如果某项只在一张表的表头里出现，那么a,b可以去掉。

zq1987428

grf1973 发表于 2018-10-9 14:02
如果比较的两个表有相同的表头内容，那么必须加上a.，b.，比如a.会员编码=b.会员编码
如果某项只在一张表 ...

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

zq1987428

grf1973 发表于 2018-10-9 14:02
如果比较的两个表有相同的表头内容，那么必须加上a.，b.，比如a.会员编码=b.会员编码
如果某项只在一张表 ...

大神。。你还在么。。求解答。。

grf1973

要拿数据来测试的。上传附件吧。

zq1987428

- -天呐。。一个小时只能回5个帖子。。想哭。。。大神不好意思。让你久等了。

grf1973

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是使用excel文件的模式，其值有为0、1、2三种，分别代表导出、导入、混合模式。如果同一列中既有数字，又有文本，导入数据时，会只选择多数类型的数据，如果数据相等，则导入数值型的数据。此时可将IMEX=1，但必须保证前8行几种数据类型都有。