最近做了一个用ADODAT 联接ACCESS数据库,datagrid显示的小程序,在做查询功能时遇到了问题!
我想在数据库中查找符合text1,text2,text3中输入数据,text1对应字段"机号",text2对应字段"回路",text1对应字段"地址",这三个字段是主键,查找到相同记录后,数据指针指向该记录,请高手指教!
我想在数据库中查找符合text1,text2,text3中输入数据,text1对应字段"机号",text2对应字段"回路",text1对应字段"地址",这三个字段是主键,查找到相同记录后,数据指针指向该记录,请高手指教!
me.Adodc1.RecordSource ="Select * From TableName Where 机号='"& text1.text &"' And 回路='"& text2.text &"' And 地址='"& text3.text &"'"
me.Adodc1.refresh
'//查找
Private Sub Command8_Click()
BM = Adodc1.Recordset.Book
If Text1.Text = "" Then
Text1.SetFocus '获取焦点
MsgBox "请输入要查找的记录!"
GoTo cz_end
Text1.SetFocus
End If
If Text2.Text = "" Then
Text2.SetFocus '获取焦点
MsgBox "请输入要查找的记录!"
GoTo cz_end
Text1.SetFocus
End If
If Combo6.Text <> "" Or Text1.Text <> "" Or Text2.Text <> "" Then
Call QJSJ_cz
If BZ1 = 1 Then
MsgBox "没有找到相同的记录!", , "查找信息"
Adodc1.Recordset.Book = BM
Else
Call QJSJ_DR
End If
cz_end:
End If
End Sub'//查找子程序 SQL查询
Private Sub QJSJ_cz()
Adodc1.RecordSource = "SELECT * From 器件数据 WHERE 机号='" & Combo6.Text & "' And 回路='" & Text1.Text & "' And 地址='" & Text2.Text & "'"
Adodc1.Refresh
End Sub再一个请问一下,如果没有查到相同的记录,该从哪儿判断,我程序中的BZ1是一个标志,原先用FIND方法时用的.