红皮书实例2总结

——当你遇到问题的时候，就说明你该学习了！
        经过了实例1的”痛苦“，在敲实例2的时候，也确实有了不少的经验！实例2居然一次性“点亮”。由此可见，我们现在所遇到的问题，都是我们成长的阶梯。所以，我们没有理由逃避问题，拒绝成长！
        下面简单的写一下实例2的总结！
        实例2的内容是：使用ADO访问数据源！
        按照我的理解，就是用一个工具访问读取数据库里的东西！
        工具就是ADO！ADO也可以看成一个应用程序，它可以实现访问关系或非关系数据库中的数据！（百度说的）

 
截了一点干货，先了解一下。（说实话，现在看还是有点抽象！）
上代码！

Private Sub Form_Load()
   Set objcn = New Connection      '实例化Connection对象
   objcn.Open "DSN=实例2DSN"           '建立数据库连接
   Set objrs = New Recordset       '创建客户端的记录集
   With objrs
        .CursorLocation = adUseClient     '指定临时表的位置
        .CursorType = adOpenStatic        '指定使用键集游标
        .LockType = adLockBatchOptimistic '指定锁定类型
        .Open "SELECT * FROM 系统用户", objcn, 1, 3
   End With
   '显示第一个记录数据
   txtUserName = objrs.Fields("用户名").Value
   txtPassword = objrs.Fields("口令").Value
   txtMsg = objrs.AbsolutePosition & "/" & objrs.RecordCount
   
End Sub

虽然都有注释，但还是要自己BB两句，加深印象！
看到Connection这个代码，我想到了上一例中的某一句代码，

Dim objcn as New Connection

同样是建立数据库连接的重要一部分！所以回想起，connection的作用

 这下应该忘不了了！同样还有recordset!

       完成实例二之后，我用它访问了自己实例1创建的数据库，还向实例1中的数据库中增加了一些用户名还有口令，用实例1成功登陆，实例2成功访问到多组的数据！实例二和实例一结合来看，实例二给我的感觉就是密码查看器！哈哈！像我这么2B的还有几个？