VB ACCESS数据库模糊查找

来源：百度知道 编辑：UC知道 时间：2024/05/08 14:32:58
我的有个数据库名字为data.mdb,里面有个表为book,表里有字段 "姓名" "ID" "公司" "职务" "手机" "电话" "地址" "备注" "传真"9个字段;
我想用text10.text(姓名)里的内容模糊查找,找到后把找到的内容分别显示在text1.text...text9.text里面,请高手帮忙
非常感谢第二为高手 模糊查找出来有好几个结果 而我的text1.text....text9.text只能显示一个 我想有个按纽显示找出来下一个记录

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Dim SQL as string
------------------------------
Private Sub Form_Load()
cn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & _
"Persist security info= False; Data source=" & App.Path & "\data.mdb"
cn.Open
rs.CursorLocation = adUseClient
End Sub

Private Sub Command1_Click()
If rs.State = adStateOpen Then rs.Close
SQL = "select * from book where 姓名 Like '%" & text10.Text & "%'"
rs.Open SQL, cn, adOpenKeyset, adLockPessimistic

If rs.RecordCount = 0 Then
MsgBox "No record to be found", vbInformation + vbOKOnly
Else
text1.text=rs.Fields("姓名")
text2.text=rs.Fields("ID")
text3.text=rs.Fields("公司")
text4.text=rs.Fields("职务")
text5.text=rs.Fields(&