VB 使用DAO对象浏览数据库.rar

VB 使用DAO对象浏览数据库 　　rs.MoveFirst '移动记录指针 　　Command1.Enabled = False '使第一条和上一条按钮不可用 　　Command2.Enabled = False 　　Command3.Enabled = True 　　Command4.Enabled = True 　　refreshdb rs '调用自定义方法刷新 　　End Sub 　　Private Sub Command2_Click() 　　If rs.BOF Then'判断是否到了第一条记录之前 　　 Command1.Enabled = False'使第一条和上一条按钮不可用 　　 Command2.Enabled = False 　　Else 　　 rs.MovePrevious 　　End If 　　Command3.Enabled = True 　　Command4.Enabled = True 　　refreshdb rs 　　End Sub 　　Private Sub Command3_Click() 　　Command1.Enabled = True 　　Command2.Enabled = True 　　If rs.EOF Then'判断是否到了最后一条记录之后 　　 Command3.Enabled = False'使下一条和最后一条按钮不可用 　　 Command4.Enabled = False 　　Else 　　 rs.MoveNext 　　End If 　　refreshdb rs 　　End Sub 　　Private Sub Command4_Click() 　　rs.MoveLast 　　Command1.Enabled = True 　　Command2.Enabled = True 　　Command3.Enabled = False '使下一条和最后一条按钮不可用 　　Command4.Enabled = False 　　refreshdb rs 　　End Sub 　　Private Sub Command5_Click() 　　End 　　End Sub 　　Private Sub refreshdb(rst As Recordset)'自定义刷新方法 　　Dim i As Integer 　　If rst.EOF Or rst.BOF Then 　　 Exit Sub 　　End If 　　For i = 0 To 4 　　 If IsNull(rst.Fields(i)) Then '判断是否有空值 　　 Text1(i).Text = "" 　　 Else 　　 Text1(i).Text = rst.Fields(i).Value '为控件数组赋值 　　 End If 　　Next i 　　End Sub