Private Sub Text1_Change() 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 >='" & Text1 & "' order by name" Adodc1.Refresh '对查询更新 DataGrid1.Refresh End Sub
Private Sub Text1_Change()
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 >='" & Text1 & "' order by name"
Adodc1.Refresh '对查询更新
DataGrid1.Refresh
End Sub
在文本框的change事件中写代码就可以了。
不需要对比。可以直接使用 RecordSet 的 Find 方法。不过,你要查找的列的数据类型不同,采用的语句技巧也不同。