ADO SQL EXCEL 无法获取首字母开头数据

xxyyx82 发布于 2016-11-09 16:20， 1700 次点击

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & App.Path & "\DATA\TEST.XLS"
rs.Open " Select * From [TEST1$A1:Z65535] Where 型号 Like 'P%'", cn, adOpenKeyset, adModeReadWrite, adCmdText
以上代码执行结果为显示所有数据..而不是显示P开头的数据

rs.Open " Select * From [TEST1$A1:Z65535] Where 型号 Like 'P4%'", cn, adOpenKeyset, adModeReadWrite, adCmdText
以上代码执行结果为显示第2个字符为4的数据（比如P4****,H4****,B4****），而不是显示以P4开头的数据

不知道为什么，请各位帮忙看看，谢谢。

7 回复

xss_wl2016-11-09 22:25

很明显SQL语句错误

xxyyx822016-11-10 08:05

回复 2楼 xss_wl

请帮忙指导下，我是新手，谢谢了。

xss_wl2016-11-10 09:04

回复 3楼 xxyyx82

早在Access97期间，微软的官方网站就特别作了说明。在Access数据库中，SQL语句中的通配符是*而不是%。所以，你只需将你代码中的%替换为*，应该就能够实现你需要的功能了。

ZHRXJR2016-11-11 15:48

看看这个语句：
rs.Open " Select * From [TEST1$] Where 型号 Like 'P4%'", cn, 3, 2
[TEST1$]是数据表的名称，如果写成[TEST1$A1:Z65535]，好像是VBA中的语句。

程序代码：

cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & App.Path & "\ABCD.xls"
rs.Open " Select * From [Sheet1$] Where 型号 Like 'P%'", cn, 3, 2
Do While Not rs.EOF
List1.AddItem rs!型号
rs.MoveNext
Loop

测试了一下没有问题， 'P%'与 'P4%'均正常， 'B%'、 'H%'、 'E%'同样正常。

xxyyx822016-11-18 16:29

回复 5楼 ZHRXJR

你好，谢谢指点
我改成了 From [TEST1$] 还是不行...
目前我的做法是 rs.Open " Select * From [TEST1$A1:Z65535] Where Left(型号,1) = 'P'", cn, adOpenKeyset, adModeReadWrite, adCmdText
这样的话是可以的..
还是不解 Like 'P%'为什么会这样.

xxyyx822016-11-18 16:30

回复 4楼 xss_wl

谢谢指点，改了下还是不行，应该不是通配符的问题

ZHRXJR2016-11-18 17:13

回复 6楼 xxyyx82

将你的Excel给我，我调试，因为我的Excel根本没有问题。