如何显示查询结果.txt

VB技巧问答10000例 VB技巧问答10000例

在 窗 体 上 添 加 两 个 按 钮 分 别 是 “ 上 一 条 ” 和 “ 下 一 条 ” ， 两 个 按 钮 的 Visible属 性 设 置 为 False。 
    把 db和 re的 定 义 写 到 窗 体 的 声 明 部 分 。 
     Dim db As database 
     Dim re As recordset 
    查 询 过 程 这 样 写 ： 
     Set db = DBEngine.WorkSpaces(0).OpenDatabase("c:\vbzy\zdrk.mdb") 
     ' 采 用 dbOpenDynaset方 式 ， 而 不 是 使 用 dbOpenTable方 式 ， 
     ' 除 非 你 建 立 的 索 引 
     Set re = db.OpenRecordset( _ 
     "SELECT * FROM 重 点 人 口 WHERE 姓 名 ='庄 严 '", dbOpenDynaset) 
     If re.RecordCount > 0 Then 
     re.MoveLast 
     ' 如 果 有 超 过 两 条 符 合 条 件 的 记 录 
     btnNext.Visible = re.RecordCount > 1 
     re.MoveFirst 
     ' 显 示 结 果 
     Text1.Text = re("姓 名 ") 
     Text2.Text = re("出 生 年 月 ") 
     End If 
     
    ' 上 一 条 记 录 
    Private Sub btnPrevious_Click() 
     re.MovePrevious 
     Text1.Text = re("姓 名 ") 
     Text2.Text = re("出 生 年 月 ") 
     btnNext.Visible = True 
     re.MovePrevious 
     btnLast.Visible = Not re.BOF 
     re.MoveNext 
    End Sub 
     
    ' 下 一 条 记 录 
    Private Sub btnNext_Click() 
     re.MoveNext 
     Text1.Text = re("姓 名 ") 
     Text2.Text = re("出 生 年 月 ") 
     btnLast.Visible = True 
     re.MoveNext 
     btnNext.Visible = Not re.EOF 
     re.MovePrevious 
    End Sub 
<END>