在VB和MS Access中使用ADODC搜索记录

时间:2012-10-20 19:12:12

标签: vb6 ms-access-2010

我有一个包含三个字段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

0 个答案:

没有答案