原码修改,分不够再加,在线等待!!!
查询按钮的代码,我的这个用ado的话怎么改呀,而且很急的,通过查询编号把和编号在一个表里的数据全部反映到对应的text中,关键是1),2)两句!!!解决问题给分!谢谢!!
Private Sub CmdQuery_Click()
'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框,将输入的内容送到FindBH变量中
FindBH = InputBox$("请输入要查找的编号:", "查找")
'保存当前记录指针到CurrentBookMark变量中
CurrentBookMark = data1.Recordset.Bookmark
'生成查找条件
Criteria = "编号=" & "'" & FindBH & "'"
'查找满足条件的第一个记录
1)data1.Recordset.FindFirst Criteria
'如果没有找到
2)If data1.Recordset.NoMatch Then
'恢复当前记录指针到CurrentBookMark
data1.Recordset.Bookmark = CurrentBookMark
'弹出提示框
MsgBox "没有满足条件的记录!", 0, "查找结果"
End If
End Sub