VB基础教程第9章

《VB基础教程第9章》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第9章访问数据库9.1数据库的概念与建立9.2用Data控件访问数据库9.1数据库的概念与建立9.1.1数据库概念数据库是具有一定组织结构的相关信息的集合。它是将一些相关的数据表组织在一起，通过设置某些功能，使数据表之间建立关系，这样就构成了一个完整数据库。数据库的结构形式（即数据之间的联系）称为数据模型。目前最为流行的是关系模型。关系模型采用二维表格形式存储数据。班级学号姓名数学英语语文AA40001张薇958690BB40001刘磊786769AA40003吴晓琛877772CC40005李锡

2、林894964BB40011刘勇516570AA40004金永清816663AA40006郭丽娜689087CC40008李冉604661学生成绩表记录字段字段名9.1.2数据库和表的建立【例9.1】建立一个学期成绩管理数据库中学生成绩表。建立步骤：（1）启动数据管理器：【外接程序】

3、【可视化数据管理器】（2）建立数据库：数据库窗口SQL语句（3）建立数据表结构：在数据库窗口中按鼠标右键，在弹出的快捷菜单中选择“新建表”后，打开图所示的“表结构”对话框。输入表名向表中添加字段字段名类型大小字段名类

4、型大小班级Text6数学Integer2（默认）学号Text8英语Integer2（默认）姓名Text10语文Integer2（默认）学生成绩表结构（4）编辑数据表中的数据。在数据表名处单击鼠标右键，在弹出的快捷菜单中选择“打开”项，打开下图所示的记录操作对话框。依次输入6项字段值9.2用Data控件访问数据库【例9.2】将例9.1所建立的数据库中的记录信息显示在文本框中，在窗体上添加6个标签、6个文本框和1个Data数据控件。可以浏览表中的不同记录信息Data数据控件是VB的标准控件，利用它能方

5、便地创建应用程序与数据库之间的连接，并实现对数据资源的访问；为了在程序运行时，使Data数据控件能够访问指定表中的记录信息，应设置该控件的DatabaseName属性和RecordSource属性；要在各文本框中显示Data控件所连接的数据表中的数据，必须将文本框与Data数据控件进行绑定。说明：程序代码:PrivateSubForm_Load()Fori=0To5txtStu(i).Locked=TrueNextiEndSubPrivateSubData1_Reposition()Data1.C

6、aption=“第”&(Data1.Recordset.AbsolutePosition+1)&"条"EndSub设置文本框不可编辑使某条记录成为当前记录后，触发此事件。设置当前记录数程序说明：在Data1的Reposition事件中出现的Recordset是Data1控件所控制的记录集对象，通过此对象对数据表中的记录进行浏览和操作。访问数据库的记录集可用Data1.Recordset实现。【例9.3】在例9.2所建立的窗体基础上增加4个命令按钮。在数据表中添加一条空记录修改当前显示的一条记录删除

7、当前显示的一条记录单击时，退出程序程序代码:PrivateSubForm_Load()Fori=0To5txtStu(i).Locked=TrueNextiEndSubPrivateSubcmdAdd_Click()cmdEdit.Enabled=NotcmdEdit.EnabledcmdDelete.Enabled=NotcmdDelete.EnabledFori=0To5txtStu(i).Locked=NottxtStu(i).LockedNextIIfcmdAdd.Caption="添加"

8、ThenData1.Recordset.AddNewData1.Caption="新记录”cmdAdd.Caption="保存”cmdExit.Caption="取消”txtStu(0).SetFocusElseData1.Recordset.UpdateData1.Recordset.MoveLastcmdAdd.Caption="添加”EndIfEndSub将数据加入到新添加的空记录中使记录集中的最后一条记录成为当前记录用修改后的数据替换原来的记录PrivateSubcmdEdit_Click

9、()cmdAdd.Enabled=NotcmdAdd.EnabledcmdDelete.Enabled=NotcmdDelete.EnabledFori=0To5txtStu(i).Locked=NottxtStu(i).LockedNextIIfcmdEdit.Caption="修改"ThenData1.Recordset.EditcmdEdit.Caption=“保存”cmdExit.Caption=“取消”ElseData1.Recordset.UpdatecmdEdit.C