Question

VB 数据库 模糊查询access

请问VB要怎样实现模糊查询access数据库内容呢？ 求解答，我的邮箱是644804296@qq.com

我希望的效果是，在VB界面输入查询关键词，关键词是用户名中的任意一个或者多个字符，
例如关键词是a，那么查询结果显示在list1的就应该是，abc、abcdefg、eafg，3个用户名。
例如关键词是c，那么查询结果显示在list1的就应该是，abc、cde、abcdefg，3个用户名。

但是我根据网上教程编写的下面的程序没有实现，请大家帮忙解答，谢谢。

用户名 密码
abc 12345
cde 23456
abcdefg 6661
eafg 13
hijk 15178

我输入a，然后查询的结果是eafg 1个而已，应该有3个才对

Dim cnn As ADODB.Connection
Dim rec As New ADODB.Recordset

Private Sub Command_Chaxun_Click()

List1.Clear
List2.Clear

Set cnn = New ADODB.Connection

cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = D:\数据库.mdb;Jet OLEDB:Database Password= greekf;Persist Security Info =false"

rec.Open "SELECT * FROM UserTable WHERE 用户名 LIKE '%" & Text_Chaxun.Text & "%'", cnn, adOpenKeyset, adLockOptimistic

Do Until rec.EOF = True

List1.AddItem rec.Fields("用户名").Value
List2.AddItem rec.Fields("密码").Value
rec.MoveNext
Loop
cnn.Close
End Sub
2015-01-13 更新问题：经过请教大神，以上代码是正确的，就是我的电脑或者是系统或者是软件问题导致的运行调试结果异常。 直接生成exe运行后的运行结果又是正确的，输入a，查找结果有3个。

结题。





Answer 1

步骤如下：
一，在查询时加个条件：
比如：
where 表层.时间 between #" & mydata0 & "# and #" & mydate1 & "#" and hour(表层.时间)=4 and minute(表层.时间)=0
二，时间段查询：
Adodc3.RecordSource = "select * from 表层 where 表层.时间 between #" & mydata0 & "# and #" & mydate1 & "#"