我有一个包含三个字段Fields(0,1,2)的表,我想在Visual Basic中使用ADODC控件执行搜索。问题是我可以按顺序搜索或者当我的记录集指针在该记录上时。我只是想以随机的方式搜索记录。我使用MS Access(* .mdb)作为我的数据库并使用ADODC进行连接。 Text7 contains search key.
以下是搜索命令按钮的Click事件:
Private Sub Search_Click()
Dim flag As Integer
flag = 0
Do
If (Val(Text7.Text) = Adodc1.Recordset.Fields(0)) Then
flag = 1
Exit Do
ElseIf (Val(Text7.Text) <> Adodc1.Recordset.Fields(0) & Adodc1.Recordset.EOF = True) Then
flag = 0
Adodc1.Recordset.MoveFirst
Exit Do
End If
Adodc1.Recordset.MoveNext
Loop While Adodc1.Recordset.EOF = False
If (flag = 1) Then
Label1.Caption = Adodc1.Recordset.Fields(0) 'executed when record found
Label2.Caption = Adodc1.Recordset.Fields(1)
Label3.Caption = Adodc1.Recordset.Fields(2)
Else
x = MsgBox("Not Found")
End If
End Sub