VB6基本数据库应用(四):数据的提取,新增和修改

前端之家收集整理的这篇文章主要介绍了VB6基本数据库应用(四):数据的提取,新增和修改前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

同系列的第四篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9474661


数据的提取,新增和修改

这一章的内容sql没关系了,目前为止的任务已经完成,就是为我们打开一个记录集。当然以后你会见识到他强大的能力。

先说一下界面怎么配置,提取出来的数据总是要显示的。为了简单,我将使用两个List并排在一起显示数据。一个List显示一个字段的内容,本来就只有StudnetIDStudentName两个字段,所以显示起来很方便,也容易理解。一步步来吧。当前的窗体我们没做过任何调整,我一直觉得默认的字体太小了,改一下,改成小四,如下图所示:

改完点击确定再开始布置控件,那么标准控件的字体会跟随窗体默认为小四(只有标准控件是这样,也就是VB已启动就有的控件,不包括ActiveX控件,因为ActiveX控件的内部实现方式不尽相同,可能没有设置和容器,即窗体同步)

放置Label1Label2ListBox1ListBox2。如下图摆放:


分别修改Label1Label2Caption属性“StudentID"”StudentName“。两个List就不动了。待会输出的时候是按照List1的第一行和List2的第一行在一起是一个记录,List1的第二行和List2的第二行在一起又是另一个记录这样看的。

在介绍了ADOList1ConnectionRecordset对象之后,我继续介绍需要用到的第三个对象Field,由第一章的介绍我们知道这是字段对象,我们将通过它的Value属性取回当前记录的某一个字段的值,这就是实现的原理。

这个对象不需要像之前的那两个那样set xxx=new XXX来创建,因为这个对象和记录集是挂钩的,当Recordset对象成功调用Open之后,Recordset对象就会自行创建Fields(字段集)对象以及Field对象。可能大家要晕了,怎么又多一个Fields(字段集)对象??要记住整套ADO对象是等级式的,ConnectionRecordsetFields再到Field。之所以要出现一个Fields对象,是因为很明显,多数时候字段都不止一个,为了能够管理所有的字段,Fields对象就相当于管理者。我们通常都是使用字段名作为索引要求Fields对象返回对应的Field对象引用的。

既然我们明白了原理,那么多说无益,代码一来我表述的不清楚的就迎刃而解了。当前暂且不使用按钮神马的,还是在Load里写代码即可,接着以前的代码

VB代码开始:

'数据的提取
List1.AddItem rec.Fields("StudentID").Value
'Fields对象,括号里的是索引(Index),索引填写的内容为字段的名称
'Item属性是Fields对象的默认属性,他的一个参数就是Index
'Fields("Student")表示一个Field对象
'Fields("Student")等价于
'rec.Fields.Item ("Student")或
'rec.Fields! ("Student")
'!表示默认属性


List2.AddItem rec.Fields("StudentName").Value

VB代码结束:

代码运行的结果如图:


和当初数据库内容对比一下:


没错,第一行确实是这个。那么其他呢??实际上Recordset对象提供Move,MoveFirst,MoveLast,MoveNext,MovePrevIoUs方法来让我们来回移动记录,分别是让我们指定的条目,第一条,最后一条,下一条或上一条成为当前的记录。这样我们就很方便了。同时,对象提供EOF属性让我们判断当前记录是否已经是最后一条记录了,当Eof为True时即为最后一条记录。这样我们稍微修改一下代码就能让全部的记录显示出来,将上面的代码修改如下:

VB代码开始:

'数据的提取
Do Until rec.EOF = True
List1.AddItem rec.Fields("StudentID").Value
'Fields对象,括号里的是索引(Index),索引填写的内容为字段的名称
'Item属性是Fields对象的默认属性,他的一个参数就是Index
'Fields("Student")表示一个Field对象
'Fields("Student")等价于
'Fields.Item ("Student")或
'Fields! ("Student")
'!表示默认属性,是默认属性的缺省表示法,对所有的对象都适用,但不建议使用


List2.AddItem rec.Fields("StudentName").Value
'移动下一条记录为当前记录

rec.MoveNext
Loop

VB代码结束

这样就能全部显示出来了,结果如下:


当我们做好了显示。我们就必须考虑一下怎么新增,之所以不说怎么编辑,这是因为编辑和新增很像,少个语句而已。来说怎么新增吧。


新增的原理先说一下。就是调用对象的AddNew属性,然后通过给Field的Value属性赋值,然后调用对象的Updata方法就可以更新了。要更新,当前就不能再仅用List和Label了,加点东西吧,在List1和List2下面各加一个文本框,分别就对应StudentID和StudentName的数据,然后加一个CommandButton,改Caption为“新建”。改好的界面如下:


知道了原理,我们直接出代码吧,在新建按钮的Click事件中添加如下代码

VB代码开始:

Private Sub Command1_Click()
'指示当前为新建模式
rec.AddNew
'为Field的Value赋值以确定新的纪录的各个字段的内容
rec.Fields("StudentID").Value = Text1.Text
rec.Fields("StudentName").Value = Text2.Text
'更新表
rec.Update


'----------------------------
'下面代码让新增的数据显示出来
'----------------------------
'移动最后一条记录为当前记录

rec.MoveLast
'在List中添加当前新增的记录
List1.AddItem rec.Fields("StudentID").Value
List2.AddItem rec.Fields("StudentName").Value
End Sub

VB代码结束

在Text1输入156443(其实可以是随便的数字,多少位都可以,量你不会超过308位,也就是StudentID字段所设置Double类型所支持的1.79769313486231*(10^308) 的正值这个数量级) ,在Text2输入霍金(其实也是随便什么都可以的),然后单击“新建”,结果如图:


在“下面代码让新增的数据显示出来”这句注释的后面,是让新增的数据显示在两个List上的代码,新增的数据总是在最后一条记录的,所以我使用MoveLast语句移到最后就可以了。实际上在新增之后能够立即调用MoveLast语句移到最后一条记录然后读取出来显示,这也说明了Updata方法之后数据就已经保存了,不需要额外的保存。


而至于编辑,那就简单了,仅仅是比新增少了一个AddNew方法调用。通过对象提供的Move,MoveFirst,MoveLast,MoveNext,MovePrevIoUs方法来移动记录到当前记录,然后直接为Field的Value属性赋值,然后和新增一样调用Update方法就可以了。这里就不再赘述。


下一章将讲述如何筛选数据初步,届时我们将再次体会到sql:Select语句强大的能力。本套教程未完,待续。

下一章:数据的查找与筛选 http://blog.csdn.net/jiluoxingren/article/details/9739069

原文链接:https://www.f2er.com/vb/258672.html

猜你在找的VB相关文章