红皮书实例3-4（控件）

实例3——使用数据绑定访问数据
这个例子比较简单，简单不也是只它里面的知识简单，而是代码相对来说少了很多！
使用数据绑定访问数据，我理解的就是用一种工具把数据源和控件连接！这个工具可以看成是代码的集成，它提供了接口和代码部分！
这个神奇的控件就是ADO Data 控件

 ADO Data的属性

实例4—— 分页显示记录
实例4相比于实例3来说就“麻烦”了！实例4也用了一款控件——Data Grid
实例4我也是一次性点亮，照着书来，就基本差不多了！要说总结一下实例4的什么东西，我还真是没有什么好写的，因为都看不太懂！那就来点干货(代码)吧！等以后有新发现再补上！

Public Sub showdata(ByVal intpage As Integer)
'实现分页显示记录功能
    Dim intpagecount As Integer, intrecord As Integer
    Dim objdatasource As New Recordset
    '创建一个局部Recordset对象保存objrs当前记录页的数据
    For intrecord = 0 To objrs.Fields.Count - 1
        objdatasource.Fields.Append objrs.Fields(intrecord).Name, adVarChar, _
                      objrs.Fields(intrecord).DefinedSize
    Next
        objdatasource.Open         '打开局部Record对象
        objrs.PageSize = Val(txtpagesize) '重新设置objrs每页显示的记录条数
        objrs.AbsolutePage = intpage '重新设置objrs当前记录页
        For intrecord = 1 To objrs.PageSize    '将当前记录页中数据写入objdatasource
            objdatasource.AddNew
            objdatasource!用户名 = objrs!用户名
            objdatasource!口令 = objrs!口令
            objdatasource!身份 = objrs!身份
            objrs.MoveNext
            If objrs.EOF Then Exit For
        Next
        Set DataGrid1.DataSource = objdatasource   '设置为数据网格的数据源
        txtpagemsg = intpage & "/" & objrs.PageCount '刷新当前记录页信息
End Sub

下面同样有建立与数据库的连接！

Private Sub Form_Load()
    Dim strSQL As String, strcn As String
    txtpagesize = "5"        '这只记录页大小和当前记录也的才初始值
    intpage = 1
    '建立数据库连接
    strcn = "provider=microsoft.Jet.OLEDB.4.0;Persist Security Info =false;" & _
                     "Data source=" & App.Path & "\红皮书实例1.mdb"
        objcn.ConnectionString = strcn
        objcn.Open
        With objrs                 '创建客户端的记录集
             .CursorLocation = adUseClient    '指定使用客户端光标
             .CursorType = adOpenStatic        '指定使用静态光标
             .Open "系统用户", objcn, adOpenStatic, adLockReadOnly
        End With
        showdata (intpage)              '显示当前记录页数据
End Sub

现在感觉，遇到问题真的很好！可以具体定位去学习！