VB数据库应用实例教程

1、第四章 数据库应用实例,常见的数据库有Microsoft Access、Microsoft SQL SERVER、Oracle、Sybase。 以下是数据库中常用的术语： 记录（Record）：记录是存放数据的基本单位，一个记录就是一条完整的信息； 字段（Field）：每个记录由若干字段组成； 数据表（Table）：记录的集合构成一个数据表； 数据库（Database）：若干数据表构成一个数据库。 常用数据库访问技术： （1）DAO（Data Access Object）数据访问对象：DAO是Microsoft Jet数据库引擎数据访问对象，是第一个面向对象的接口，有着极为广泛的应用。 （2）

2、ODBC是一种底层数据访问技术，允许Visual Basic通过ODBC连接到其他数据库。 （3）OLE DB(Object Linking and Embedding Database)是新的低层接口，Microsoft将用它取代ODBC作为连接数据库的主要低层数据访问技术。 （4）ADO是新近发展的数据库访问技术，ADO提供了在OLE DB中不能直接访问的函数。,任务1 数据浏览窗口的设计,任务要求 设计一个数据浏览窗口，功能包括： （1）使用多个文本框显示数据表当前记录信息； （2）使用表格显示数据表多条记录信息； （3）提供【首记录】、【上一记录】、【下一记录】、【最后记录】、【指定记

3、录】功能按钮，并且具有判断记录越界的功能； （4）表格与文本框具有关联功能； （5）动态显示总记录数和当前记录。 实现的数据浏览窗口如图所示：,任务1 数据浏览窗口的设计,准备工作 1Adodc控件 选择【工程】的【部件(0)】选项即可打开“部件”对话框，找到并选中选中“Microsoft ADO Data Controls 6.0 (OLEDB)”即可Adodc控件添加到工具箱中。 工具箱中的Adodc控件为： 2DataGrid控件 选择【工程】的【部件(0)】选项即可打开“部件”对话框，找到并选中选中“Microsoft DataGrid Controls 6.0 (OLEDB)”即可将

4、DataGrid控件添加到工具箱中。 工具箱中的DataGrid控件为：,任务1 数据浏览窗口的设计,准备工作 3数据表Student的属性、类型和宽度等信息如表所示： 设计步骤见课本P132,任务2 数据维护窗口的设计,任务要求 设计一个数据维护窗口，功能包括： （1）使用多个文本框显示数据表当前记录信息； （2）使用表格显示数据表多条记录信息； （3）提供【首记录】、【上一记录】、【下一记录】、【最后记录】功能按钮，并且具有判断记录越界的功能； （4）各按钮之间、表格与文本框之间具有关联功能； （5）动态显示总记录数和当前记录； （6）具有【添加记录】和【修改记录】功能按钮，操作时具有完整

5、性约束功能，如学号和姓名不能为空，学号为8位等；另外，操作时用户可以通过点击【确定】按钮确定相应的改动，点击【取消】按钮取消所做的修改； （7）具有【删除记录】功能按钮，提示用户是否删除选定记录；确定后删除选定的记录；,任务2 数据维护窗口的设计,任务要求 （8）用户可以将以“学号.jpg”为文件存储在固定的文件夹下，如程序目录下的“picture”文件夹下，系统会自动读取该图像文件并加入到学生信息维护窗口中的image控件中。另外，删除学生时自动将该文件删除； （9）录入常用数据时，如“政治面貌”、“民族”和“生源地”等信息，采用组合框让用户方便选择； （10）录入时间时，采用日历控件进行录

6、入，避免录入格式出错。 实现的数据维护窗口如图所示：,任务2 数据维护窗口的设计,准备知识 1FSO对象模型 文件系统对象（File System Object，FSO）模型提供了一整套对文件系统进行管理和操作的方法和属性。包括创建、移动、改变或删除文件夹（目录）和文件，以及获得驱动器的信息和操作驱动器。 2文件系统对象FileSystemObject对象 FileSystemObject对象是FSO模型中的核心对象，在应用程序中使用FSO的主要步骤是： 创建一个FileSystemObject对象。 根据应用程序的需要，通过调用FileSystemObject对象中的方法来创建一个新的对象。

7、 通过读取新对象的属性值获取用户所需的信息或利用对象的方法进行所需的操作。 （1）创建FileSystemObject对象 创建FileSystemObject对象有两种方法： 方法1：使用New关键字声明一个变量为FileSystemObject对象类型。使用格式如下： Dim As New FileSystemObject,任务2 数据维护窗口的设计,准备知识 方法2：使用CreateObject方法创建一个FileSystemObject对象，使用格式如下： Set = CreateObject(“Scripting. FileSystemObject”) （2）FileSystemOb

8、ject对象的属性 FileSystemObject的属性只有Drives，这是系统中所有Drive对象的对象集合，用户可以获取当前计算机系统中所有驱动器的信息。如： Dim fs, d, dc, s Set fs = CreateObject(Scripting.FileSystemObject) Set dc = fs.Drives s = 该计算机中有以下驱动器 & vbCrLf For Each d In dc s = s & d.DriveLetter & 驱动器 s = s & vbCrLf Next MsgBox s 运行结果如图所示：,任务2 数据维护窗口的设计,准备知识 （3

9、）FileSystemObject对象的方法,任务2 数据维护窗口的设计,准备知识 3MonthView控件 选择【工程】的【部件(0)】选项即可打开“部件”对话框，找到并选中选中“Microsoft Windows Common Controls-2 6.0 (SP3)”即可将MonthView控件添加到工具箱中。 工具箱中的MonthView控件为： 4数据表Student的属性、类型和宽度等信息如表所示：,任务2 数据维护窗口的设计,准备知识 5生源地表syd的属性、类型和宽度等信息如表所示：,6民族表mz的属性、类型和宽度等信息如表所示：,7政治面貌表zzmm的属性、类型和宽度等信息如表所示：,设计步骤 见课本P140,任务3 数据查询窗口的设计,任务要求 设计一个数据查询窗口，功能包括： （1）可选择查询字段； （2）提供等于“=”、大于“”、大于等于“=”、小于“”、字符串匹配“LIKE”、在两数之间“BetweenAnd”操作符； （3）根据选择的查询字段类型，响应