的编程过程

5.3.2　ADO的编程过程

利用ADO编程的时候，首先应该对ADO对象进行申明。其申明方法如下：

在Visual Basic的“工程”菜单中选择“引用”，在弹出的引用对话框中找到“Microsoft ActiveX Data Object 2.0 Library”，选择该项并单击“确定”按钮即可。然后我们就可以在程序中使用ADO对象了，如：

以上四个语句也可以用以下两个语句来实现：

通过以上语句进行对象申明之后，下一步就是进行数据库的联接。联接步骤如下：

首先用Connection对象与数据库建立联接，然后用Command对象执行命令，如查询、更新等。再用Recordset对象来操作和查看查询结果。如果编的程序比较简单的话，也可以不用Command对象，所以在编程的时候应根据不同的需要选用不同的对象。下面我们将用两个程序实例来进行说明，一是联接Access数据库的例子，二是联接SQL2000数据库的例子。

程序实例一：

首先在Access里建立一个数据库，名称为STU。在这个数据库里建立一个表名为STUINFO的表，在这个表里面有学号、姓名、性别、年龄、入学时间和家庭住址六个字段。建立好之后再向这个表里输入相应的记录即可。当数据库建立好之后再进入VB新建一个工程，并按前面所述的方法把ADO对象库加到VB工程中。现在我们来设计界面，本界面由6个标签、6个文本框、8个命令按钮和1个DataGrid控件构成。本例的界面如图5-5所示。

图5-5　程序界面

其相关属性的设置如表5-1所示。

表5-1　相关属性的设置

本例可实现以下功能：

(1) 能对数据库里的信息进行移动，并显示在相应的文本框里。

(2) 能对数据库里的信息进行添加、删除以及修改等操作。

(3) 能使DataGrid控件显示的信息与文本框显示的信息同步，也就是说当选中DataGrid控件的某条信息时，文本框也要显示相应的信息。

编写该程序的时候，可按以下几个步骤进行：

(1) 首先需要在窗体模块里申明几个窗体级变量和几个子程序。其代码如下：

Dim cn As New ADODB.Connection（说明：定义一个链接对象的实例并赋值给cn）

Dim rs As New ADODB.Recordset（说明：定义一个记录集对象的实例并赋值给rs）

Dim flag As Boolean（说明：定义一个标识位，记录是添加还是修改操作）

Dim bm（说明：定义一个变体类型的变量用于记录书签的位置）

下面这个子程序的功能是实现对文本框里的信息的锁定，让用户无法进行修改或添加。

下面这个子程序的功能是解除文本框的锁定状态与上一子程序相对。

(2) 上面这些程序代码编好后，再在窗体的加载事件下进行一些初始化操作，代码如下：

注意：以上两个语句也可用下面这一个语句代替，它们的功能是一样的：

(3) 针对8个按钮的单击事件编程。代码如下：

以上代码编好之后，可按F5键运行程序。程序运行界面如图5-6所示。

图5-6　程序运行界面

本程序所完成的功能是对Access数据库进行的最基本的操作，希望读者能仔细理解，为进一步编程打下坚实的基础。

程序实例二：

本程序的功能是实现对数据库里的信息进行查找。数据库是用SQL2000建的，可通过ODBC进行联接。所以在编本程序的时候，应首先在SQL2000里建立一数据库，数据库的名称是“student”，再在数据库里建立一张表，表名为：“stuinfo”，建好后，再输入一些信息以便编程的时候做测试之用。数据库建立好之后，再设置ODBC，其步骤如下：首先在控制面板里找到“管理工具”，双击“ODBC”图标进入如图5-2所示的界面，再单击“添加”按钮，得到如图5-3所示界面。由于我们要联接的是SQL2000，所以在如图5-3所示的界面中拖动滚动条找到“SQL server”选项，选中它并单击“完成”按钮，进入如图5-7所示的界面。

在如图5-7所示的对话框里输入一个数据源名称（DSN）（这是必须输入的），在此我们输入“student”，也可以输入另外的。还可以对数据源给一些描述性说明，但也可不输，然后再选择一个服务器。由于本程序中我们的数据库就在本机上，所以选择“（local）”，单击“下一步”按钮进入如图5-8所示的对话框。

图5-7　建立新数据源对话框

图5-8　联接SQL2000对话框

在如图5-8所示的对话框中直接选择第一项，单击“下一步”按钮，弹出如图5-9所示的对话框。在该对话框中选中“更改默认的数据库为”这一项，在其下拉列表中选择刚才所建的数据库的名称，在这里我们选择“student”，再单击“下一步”，在弹出的对话框中单击“完成”即可。到此ODBC就设置好了，现在我们应该设置程序主界面了。打开Visual Basic新建一个工程，打开“工程”菜单，单击“引用”选项，在弹出的对话框中选择“Microsoft ActiveX Data Object 2.0 Library”，把ADO对象库添加到工程里面。窗体上所包含的控件有以下几种：Frame1、combo1、combo2、text1、command1、command2、Datagrid1，所设计的界面如图5-10所示。

图5-9　设置数据源对话框

图5-10　程序实例二界面

下面我们将介绍具体的编程过程：

首先我们在窗体模块里定义两个对象：

这两个语句大家已经很熟悉了。紧接着，再在窗体的Load事件下面编程，主要是设置界面的相关属性，以及与数据库的联接等。其代码如下：

在上面的代码中有一条语句是

cn.Open "Dsn=student;UID=xxx;PWD=xxxx"

当使用ODBC联接数据库的时候，基本格式和上面的这条语句是一样的。其中“Dsn”表示数据源名称，即图5-7里所设置的那个名称。在本例中我们没有设置UID和PWD，所以用了几个“x”来代替，其实也可以不要，所以上面这个语句可简写为如下形式：

cn.Open "Dsn=student "

但是必须注意，如果你设置了UID和PWD，就必须写出来。

下面我们再针对两个命令按钮分别进行编程，代码如下：

当以上代码编好后，按F5键，程序运行之后的界面如图5-11所示。

图5-11　程序运行界面

在文本框中输入“学号”或“姓名”就可以进行查找了。本例编得比较简单，但体现了对数据库里的信息进行查找的具体过程，希望对初学者有所帮助。

以上我们通过两个程序实例分别说明了如何通过ADO与数据库联接，以及在使用ADO进行编程的时候如何实现对数据库里的信息进行添加、删除、修改以及查找的过程。但以上的程序实例都比较简单，而且功能也不是很完善，所以希望读者在阅读的时候重点掌握其编程的思路和方法，当以后遇到复杂问题的时候才不至于束手无策。