vb吐槽班01 简直惊悚的数据库

  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中的几个对象都存在着一定的联系，有些可以单独使用，有的却要依靠着其他对象来使用，所以才说：

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

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

以上