红皮书实例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 ADO Data Control 6.0（OLEDB）

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

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