vb数据库操作实例培训资料

v b数据库操作实例

第一部分:vb数据库操作实例

vb神童教程(续)--编写一个小型的信息管理系统

vb神童教程(续)--准备数据库

vb神童教程(续)--设计系统的界面及对象的属性

vb神童教程(续)--为对象添加事件代码

vb神童教程(续)--编写一个小型的信息管理系统

受委托为编程入门网做一个简单的vb操作数据库的实例，来演示一下如何用vb向数据库中添加、修改、删除记录这些操作。我觉得自己是比较菜的，几年来别人都在进步，只有我还在原地踏步。不过没有办法，我们这一圈人里现在只有我机器上还有vb6，勉为其难，只有尝试一下了。如果我写的这点幼稚的东西能为想要了解vb数据库操作的朋友提供哪怕是一丁点儿的参考和帮助，将是我最为高兴的事情，同时也希望高手不要见笑。

我做的这个实例名为“编程入门网网址管理系统”，算是一个小型的信息管理系统吧。该系统后台使用的是Access数据库，程序中使用ADO代码链接的形式连接Access。该系统具有向数据库中添加、修改、删除记录的功能，进行某项操作后能够实时刷新显示数据。并在程序中加了相应的代码对输入的数据进行合法性校验，以避免输入错误的数据造成程序运行不正常，程序运行时各个操作及退出系统时均有友好的提示框请用户确认。所有代码均在Windows

2003+Vusual Basic 6.0环境下调试通过。

系统运行时如下图：

vb神童教程(续)--准备数据库

我用的是Access 2003，因为需要讲解的仅仅是数据的添加、修改及删除，因此单数据库、单表就够了。如果以后您要编写更复杂一些的信息管理系统而涉及到多表操作，则您还需要补充一些关系数据库方面的知识，比如实体、一对一联系、一对多联系等等；此外，对sql语言也需要有所了解。具体您可以参考：数据库基础知识ABC。

首先，在“我的电脑”的e盘新建一个名为vb文件夹，先打开Access，新建一个名为Access_db的数据库（Access数据库文件的扩展名是.mdb），保存到刚才建立的文件夹中，则以后在程序中调用数据源的位置为

E:\vb\Access_db.mdb。

然后在Access_db.mdb中建立一个名为wzdz的表（wzdz是“网站地址”的首字母缩写）, 然后在wzdz表中添加网站名称、网站地址及网站描述三个字段，三个字段的属性是相同的，如下：

▲数据类型：文本。

▲字段大小：50

▲有效性规则：无。

▲必填字段：否

▲允许空字符串：否

▲索引：无

“编号”这个字段使用的是Access的自动编号，并将其作为主键。也就是说，您在表中设置以上三个字段即可，设置完毕保存表时，按Access的提示添加主键，Access会自动为您搞定。具体操作您可以参考：vb神童教程(续)--vb连接Access数据库实例

这样在建立了数据库及表结构之后，即使是调用没有记录的空库，系统也可以无差错运行，可以在运行时通过“添加记录”按钮向数据库中添加记录。不过由于数据库是空的，系统第一次运行时数据显示控件没有数据可显示，显得空荡荡的，不太美观哦。为了方便起见，我们在Access中给wzdz表中预先添加两条初始记录：

添加的方法很简单：在Access的设计器中直接双击wzdz表名，在出来的窗口中添加即可。添加时注意：因为我们使用的是Access的自动编号做主键，所以在添加时不用理“编号”这个字段，直接添加后三个字段即可。

下一步的工作，是设计系统的界面及设置各个对象的属性。

vb神童教程(续)--设计系统的界面及对象的属性

本系统是一个很简单的数据库操作实例，能够对数据库的添加、修改及删除记录这几个基本的操作。系统使用数据显示控件MSHFlexGrid显示数据库中的记录，使用数据链接控件Adodc链接数据库作为MSHFlexGrid的数据源，使用文本框来接收系统运行时用户输入的数据。

步骤如下：

一、启动vb6，新建一个标准exe工程，并将工程中的form1的caption属性设置为“编程入门网网址管理系统”，width属性值设为7950，height属性值设为4620。

二、向窗体中添加一个Adodc控件。如果在工具箱中找不到Adodc控件，可以右击工具箱，选择“部件...”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft ADO Data Control6.0(OLEDB)”。

在VB的属性窗口我们对Adodc控件的三个个属性值进行编辑，其余属性值使用默认的即可：

1、ConnectionString属性值设为：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\Access_db.mdb;Persist Security Info=False

这个属性设置了连接Access_db.mdb这个数据库。

2、RecordSourc属性值设为：select * from wzdz

这个属性值中的sql语句的作用是查询出wzdz表中的所有记录。

3、Visible属性值设为False，作用是使其在运行时不可见。

三、向窗体添加一个MSHFlexGrid控件，如果工具箱中没有MSHFlexGrid控件，可以右击工具箱，选择“部件...”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft Hierarchical FlexGrid Control 6.0 ”。然后在vb的属性窗口中将MSHFlexGrid控件的名称修改为MS1，如下图：

然后对MSHFlexGrid控件进行如下设置：

1、DataSource属性：在vb的属性窗口中将其值设为Adodc1，即使用Adodc控件作为其数据源。

2、BackColorBkg属性：在vb的属性窗口中将其值设为&H00FFE0E0&，这是设置的MSHFlexGrid控件的底色。