Hello！各位亲爱的观众，欢迎收看大型情感类节目vb吐槽班。
既然是第一期，我们先来简单的介绍一下这个vb。
首先打开百度，然后输入“VB”，打开百度百科。
我的介绍完了。。。
咳咳~开个玩笑~
基本的东西我就不去熬述了，简单来说呢，vb就是一门计算机语言吧。
这我也是学了一点基础知识啊，最重要的是面向对象的设计思路，前几天也是和师傅、师兄们讨论了下面向过程、面向对象。我总觉得就算vb是面向对象的程序设计，可还是有面向过程的影子吧。
就我的理解来看呢，面向对象是横向连接，从属性事件方法三个方面将不同的对象连接起来，而面向过程则是从纵向上将程序一步一步的进行串结。这样的两种思路相辅相成，才能促成一款软件。
好了，这个是师傅上周的作业要求我们写篇博客的，懒得写两篇就直接放到这了。
好了，接下来我们开始正片。
简直惊悚的数据库！
诶？你TM逗我。。。一上来就直接说数据库！？
肯定会有人这么说的，所以我只能默默地继续我的总结，然后。。。
深藏功与名！
不知道会不会被查水表。。。
这几天也是在敲这个传说中的红皮书前5个例子啊，敲完了之后呢，师傅也是让我讲一下这5个例子，我思考了一中午，这前5个例子到底讲了什么。
是的，你没猜错，我TM睡着了。。。
咳咳~其实敲完了之后，感觉前5个例子真的是没有什么难度吧，我看到很多同学总结的时候就是从第一个开始写，代码抄一遍，写一写不会的地方，然后就完了。
本来我也是想这么做的，不过这样做起来不是我风格啊，于是果断走起。
首先，要引用Microsoft ActiveX Data Object 2.5 library
关于数据库的操作一定要连接上数据库。
Dim objCn as Connection
Set objCn=New Connection ‘创建一个connection的实例
objCn.ConnectionString=””
这个时候，引号中有两种代码可以使用
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\数据库\mdb1.mdb 这是一种直接连接数据库的方法
DSN=mdb1 这是利用代码修改了ODBC数据源
两种之中，选其一使用，至于第一种代码呢还有很多参数，具体有哪些还要等下期吐槽班。
（话说真的能有下期，不会被CSDN封号吧。。。）
好了，连接的语句就是这个样子，之后别忘了还有一行代码
objCn.Open ‘用来建立连接
还有一种呢是直接在控制面板中修改ODBC数据源，这个我就不多说了，用起来很简单，百度一下就能找到很多比我说的好的教程。（众：其实就是你懒吧！！！）
说完了连接数据源，我们再说说怎么查看数据。
依旧是引用那个ADO什么的，然后连接数据库。
Dim objCn as connection
Set objCn=New Connection
objCn.ConnectionString=” Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\数据库\mdb1.mdb”
objCn.Open
连接之后呢，我们要查看数据，这时就要用到RecordSet。
Dim objRs as RecordSet
Set objRs = New RecordSet
好了这个时候就能读取数据库中的记录了，假设我们有一个Text控件，而我们要让这个Text控件显示“用户名”这一列中的一个数据
Txt=objRs.Fields(“用户名”).value‘显示用户名中的第一个字段的内容
再假设我们这还有一个按钮，我们就能让text控件显示下一个字段
Private Sub cmd_Click()
objRs.MoveNext ‘移动到下一条字段
Txt=objRs.Fields(“用户名”).value
End sub
诶，好的好的，我是感觉越来越乱了，虽然看我写了这么一点但是RecordSet的用法还是很灵活的，因为要经常判断现在读取的这个字段，是否为最后一个或是第一个数据，所以经常和If语句一起使用。
那么，有的同学会问：我要是在这些数据中查询数据该怎么办呢？
我只能回答：
我也不会啊。。。
其实简单的查询还是做得到的，用command执行SQL语句就可以做到了。
首先依旧是万年不变的引用ADO，建立连接。
大家就当做我连接完了啊。。。
Dim objCmd as command
Set objCmd = New command
Set objCmd.ActiveConnection = objCn ‘使打开的连接与Command对象关联
With objCmd
.CommandText= "select A from B where C like ?" ‘定义命令的文本 （我怎么感觉SQL写错了。。。）
.CommandType = adCmdText ‘选择命令类型
EndWith
objRs.Open cmd, , adOpenStatic, adLockOptimistic
这样就可以进行简单的查询了。
好了，终于啰嗦完了 ，这博客也是写了两天啊，最后回顾一下敲得5个例子真是能感觉到ADO中的几个对象都存在着一定的联系，有些可以单独使用，有的却要依靠着其他对象来使用，所以才说：
学习的越多，越是发现自己的渺小。
好了，再次感谢各位起爱的观众，希望能对一些新手有所帮助。也是希望各路大神能来吐槽啊。
以上