Question

vb 模糊查询access数据库

怎样实现在Text1里面输入一个或几个字母．Ｌist1里面的出现的是以这个字母为开头的数据，求高手们写下代码，谢谢！

Answer 1

假设你的ListBox已经和ADO数据源控件做了绑定，那么可以参考以下类似代码，自己完善（在TextBox_Change事件中：）1）通过datasource属性绑定 比如使用数据库控件 datasource 控件会出现一个下拉框 选择需要绑定的数据控件，然后设置datamember绑定表，datafield绑定具体字段；Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select name from b1 where name like '"+TextBox1.Text+"*'"Adodc1.Refresh '对查询更新 2）动态办法（在Text_Change事件中）Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=MSDataShape;Data Source=" & 数据库 & "; Data Provider=Microsoft.Jet.OLEDB.4.0"
' 打开到数据源的连接
conn.open
rs.open "select name from b1 where name like '"+TextBox1.Text+"*'" ,conn
do while not rs.eof()
listbox.additem rs![字段名]
rs.movenext
loop
rs.close
conn.close

ListBox.Refresh 'ListBox也刷新

Answer 2

最简单的操作 把LIST1里的内容复制到list2里面,把list2隐藏然后比较每条项目，把结果列在LIST1里面for i=0 to list1.listcount -1list2.additem list1.list(i)next ilist1.clearfor i=0 to list2.listcount -1if left(ucse(list2.list(i)),len(text1.text))=ucse(text1.text) thenlist1.additem list2.list(i)end ifnext i