红皮书实例2、3

实例2

Bof：指针指向第一个记录之前

Eof：指针指向最后一个记录之后

通过ODBC访问数据库

开始/程序/管理工具/数据源(ODBC)

Private Sub Form_Load()

   Set objCn = New Connection '实例化Connection对象

   objCn.Open "DSN=实例2DSN"  '建立数据库连接

   Set objRs = New Recordset  '创建客户端的记录集

   With objRs

       .CursorLocation = adUseClient '指定临时表位置

       .CursorType = adOpenStatic '指定使用键集游标

       .LockType = adLockOptimistic '指定锁定类型

       .Open "SELECT*FROM 系统用户", objCn

   End With

 

显示第一个记录数据

   txtUserName = objRs.Fields("用户名").Value

   txtPassWord = objRs.Fields("口令").Value

   txtMsg = objRs.AbsolutePosition & "/" &objRs.RecordCount

判断当前记录是否被修改

Private Sub DoSave()

   If isNeedSave Then 

       objRs.Fields("用户名").Value =txtUserName

       objRs.Fields("口令").Value = txtPassWord

       objRs.Update  '执行更新操作

   End If

End Sub

显示记录顺序循环

Private Sub cmdPre_Click()

   DoSave

   objRs.MovePrevious               '使前一记录成为当前记录

   If objRs.BOF Then objRs.MoveFirst '如果记录指针指向第一个记录之前，则使其指向第一个记录

    '显示当前记录数据

   txtUserName = objRs.Fields("用户名").Value

   txtPassWord = objRs.Fields("口令").Value

   txtMsg = objRs.AbsolutePosition & "/" &objRs.RecordCount

End Sub

Private Sub cmdNext_Click()

   DoSave

   objRs.MoveNext                   '使下一记录成为当前记录

   If objRs.EOF Then objRs.MoveLast  '如果记录指针指向最后一个记录之后，则使其指向最后记录

    '显示当前记录数据

   txtUserName = objRs.Fields("用户名").Value

   txtPassWord = objRs.Fields("口令").Value

   txtMsg = objRs.AbsolutePosition & "/" &objRs.RecordCount

End Sub

实例3

ADO Data

工程/部件/Microsoft ADOData Control 6.0（OLEDB）

右击属性，选择Microsoft Jet 4.0 OLE DB Provider

将文本框的属性的DataSource设置为Adodc1，DataField设置为“用户名”