——当你遇到问题的时候,就说明你该学习了!
经过了实例1的”痛苦“,在敲实例2的时候,也确实有 了不少的经验!实例2居然一次性“点亮”。由此可见,我们现在所遇到的问题,都是我们成长的阶梯。所以,我们没有理由逃避问题,拒绝成长!
下面简单的写一下实例2的总结!
实例2的内容是:使用ADO访问数据源!
按照我的理解,就是用一个工具访问读取数据库里的东西!
工具就是ADO!ADO也可以看成一个应用程序,它可以实现访问关系或非关系数据库中的数据!(百度说的)
![红皮书实例2总结 - 14期 曹祥铭 - 曹祥铭 廊坊师范学院信息技术提高班十四期 红皮书实例2总结 - 14期 曹祥铭 - 曹祥铭 廊坊师范学院信息技术提高班十四期](http://img0.ph.126.net/AFRBjJuhl_FH8CM8VhHL1Q==/6632112301748439582.png)
截了一点干货,先了解一下。(说实话,现在看还是有点抽象!)
上代码!
虽然都有注释,但还是要自己BB两句,加深印象!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
看到Connection这个代码,我想到了上一例中的某一句代码,
同样是建立数据库连接的重要一部分!所以回想起,connection的作用Dim objcn as New Connection
![红皮书实例2总结 - 14期 曹祥铭 - 曹祥铭 廊坊师范学院信息技术提高班十四期 红皮书实例2总结 - 14期 曹祥铭 - 曹祥铭 廊坊师范学院信息技术提高班十四期](http://img2.ph.126.net/mU-ihxOw8rTTbxwbtFjMog==/6632220053887997399.png)
![红皮书实例2总结 - 14期 曹祥铭 - 曹祥铭 廊坊师范学院信息技术提高班十四期 红皮书实例2总结 - 14期 曹祥铭 - 曹祥铭 廊坊师范学院信息技术提高班十四期](http://img2.ph.126.net/wGMPc9u7lcm1A3kNKZZo9g==/6632314611885282182.png)