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

时间:2021-11-14 18:55:48

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

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

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

以上