0

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

0 回答 0