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= "selectAfromBwhereClike?" ‘定义命令的文本 （我怎么感觉sql写错了。。。）

.CommandType = adCmdText ‘选择命令类型

EndWith

objRs.Opencmd,adOpenStatic,adLockOptimistic

这样就可以进行简单的查询了。

好了，终于啰嗦完了 ，这博客也是写了两天啊，最后回顾一下敲得5个例子真是能感觉到ADO中的几个对象都存在着一定的联系，有些可以单独使用，有的却要依靠着其他对象来使用，所以才说：

学习的越多，越是发现自己的渺小。

好了，再次感谢各位起爱的观众，希望能对一些新手有所帮助。也是希望各路大神能来吐槽啊。

以上