Database 如何使用VB6在MS Access数据库表中搜索？

我正在使用VB6进行一个学校项目，我想使用Access制作一个带有数据库的图书馆管理系统。ADODC和DataGrid运行良好，我可以添加新条目，也可以删除它们。但是如果我想根据一个字段搜索一个特定的项目呢。我似乎无法完成它

您可以使用：

        With Datagrid
                varBookmark = .Bookmark
            If (.SelBookmarks.Count <> 0) Then
                .SelBookmarks.Remove 0
            End If
                Adodc1.Recordset.MoveFirst
                Adodc1.Recordset.Find "[Name of column you want to search] like '" & txtSearch.Text & "'"
            If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then
                MsgBox "No Student Found.", vbInformation, "Error"
                Adodc1.Recordset.Bookmark = varBookmark
            Else
                MsgBox "Student found Successfully", vbInformation, "Success"
                .SelBookmarks.Add Adodc1.Recordset.Bookmark
                Me.Hide
            End If
        End With

使用Datagrid的

varBookmark=.Bookmark
如果（.SelBookmarks.Count 0），则
.selfbookmarks.Remove 0
如果结束
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find“[要搜索的列的名称]类似于“&txtSearch.Text&”
如果是Adodc1.Recordset.EOF或Adodc1.Recordset.BOF，则
MsgBox“未找到学生”，vbInformation，“错误”
Adodc1.Recordset.Bookmark=varBookmark
其他的
MsgBox“成功找到学生”，vbInformation，“成功”
.SelBookmarks.Add Adodc1.Recordset.Bookmark
我，藏起来
如果结束
以

---

将顶部的Datagrid名称更改为您正在使用的Datagrid以及adodc的名称。

打开

表单

，将

Datagrid

和

ADODataControl

放置在该表单中

在工具箱上，双击文本框图标，将

TextBox

添加到表单中

在工具箱上，双击标签图标，将

标签添加到表单中

双击
TextBox
打开代码编辑器窗口，在
Text1_Change（）
事件中添加这段代码（假设您的
ADODataControl
称为Adodc1，您需要搜索的
字段称为Title）：

在同一代码编辑器窗口的顶部，在左侧选择
ADODataControl
，在右侧选择
MoveComplete

在
MoveComplete
事件中添加此代码：

Label1.Caption = "Records: " & pRecordset.RecordCount

就这些。
您的表单的外观和行为应如下图所示（如果不是这样，很抱歉，您在问题中没有提供足够的详细信息）：


此示例是使用VB提供的Biblio.mdb数据库构建的

Label1.Caption = "Records: " & pRecordset.RecordCount