Private
Sub Form_Initialize() Data1.Recordset.AddNew End
Sub 输入完了数据，我们打算退出程序，很自然的我们执行关闭窗口操作，就顺利地结束了输入工作。真的很顺利吗？打开数据库，看看数据库中的数据，我们发现刚才输入的最后一条记录没有存入数据库中。这个很好解释，每当我们调用AddNew方法时，它就将输入的记录存入数据库中，而当我们关闭窗口时，刚输入的记录并没有保存到数据库中，那么在关闭窗口之前对DATA控件进行一次刷新就可以将数据存入数据库中了。
Private
Sub Form_QueryUnload(Cancel As Inte ger, UnloadMode As
Integer) Data1.Refresh End
Sub
Private
Sub Text3_LostFocus() If IsDate(Text3.Text) Or Text3.Text = "" Then
’检查是否输入合法数据 Exit Sub End If MsgBox
("输入错误，请输入你出生的年月日！") ,将选取不合法的数据，以便重新输入，并使控制焦点不动 Text3.SetFocus Text3.SelStart
= 0 Text3.SelLength = Len(Text3.Text) End
Sub
上面虽是应用程序处理错误的一个小例子，可是这种在应用级处理错误的思想是十分重要的。
五、寻寻觅觅 在数据库管理系统中，输入和查询就象两个孪生姐妹不可或缺，下面将介绍如何创建查询窗口。查询窗口的设计分为两部分：查询结果和查询条件。查询结果是指用户所需要的数据，它包括根据查询条件查询出来的记录，但并非表中每个字段里的数据都需要提供给用户。比如在我们这个例子中，登记表中的登记号的值是用户不感兴趣的，所以在查询结果中，我们不希望显示RegID字段的值。查询条件是用户提出的查询要求。比如在我们这个系统中，可以有姓名条件，当用户想知道某个人的具体情况，他可以输入此人的姓名，就查询出此人各方面的情况;也可以有年龄条件，当用户输入某个年龄段，就会查询出处于这个年龄段的所有人的信息。到底采用哪些查询条件，这需要开发者根据用户和系统的要求进行设计，其具体实现过程大都大同小异。为了节省篇幅，我们就仅以年龄为条件进行查询。查询窗口运行情况如图9。 在这个程序中我们使用了一个控件DBGrid，这个控件用来显示查询结果，选中VB的“工程”菜单下的“部件……”项，在控件标签中，选中“Microsoft
Data Bound Grid Control
5.0”即可，在工具箱中就会出现DBGrid控件的小图标。其使用和其它控件一样。 为了和数据库连接，DATA控件是不可少的，回忆一下，该怎样设置它的属性，OK！同输入窗口一样，在CONNECT属性中，选中“ACCESS”项。在DatabaseName属性中，输入“C:\TEMP\登记.mdb”。在RecordSource属性中，选中......嘿，嘿，这里稍微有点不同，如果按输入窗口那样的设置，查询结果中就会包含登记号字段了。在此属性中我们应该输入SQL语句: select
name as 姓名,sex as 性别,hometown as 籍贯,age as 年龄,birthday as 生日,company as
单位,address as 地址,zip as 邮编,telephone as 电话,fax as 传真 from
Register。别着急，尽管这条语句有点长，实际上却比较简单。这条语句的语法是： SELECT 字段名，字段名，……FROM 表名 WHERE
条件； 对照语法，我们可以看出输入的SQL语句的含义：从表Register中查询姓名，性别，籍费，……字段的值。只要在字段列表中不选中登记号字段，在查询结果中，就不会显示登记号的值了。如果你够细心的话就会注意到我们所写的SQL语句中在字段列表中并不仅仅输入字段名，在其后面还增加了as……项，如“name
as
姓名”，这是为name字段取一个别名“姓名”，以便在DBGrid控件中显示字段名时，就会显示“姓名”而不是“name”。 完成了DATA控件属性的设置就可以将DBGrid控件捆绑到DATA控件上，其方法同输入窗口。对了，将“DataSource”属性设置为“DATA1”即可。现在不妨运行一下程序，真令人兴奋，DBGrid显示出表中所有的信息。可是怎样显示符合条件的数据呢？再看一看上面的SQL语法，WHERE段后可以输入查询条件，比如：需要年龄在20到30岁之间的人员信息，其语句为：Select
name,... From register where age$#@62;20 and
age$#@60;30; 我们只要根据用户输入的条件构成新的SQL语句，并利用DATA控件的Refrensh方法刷新数据库，就可以完成条件查询了。 整个程序十分简单，当用户在文本框中输入年龄段后，点按“查询”命令，就会显示符合条件的查询结果。程序代码如下：
Option
Explicit Const allinfo = "select name as 姓名,sex as 性别,hometown as 籍贯,age as
年龄,birthday as 生日,company as 单位,address as 地址,zip as 邮编,telephone as 电话,fax as
传真 from 登记" ’定义不带条件的SQL查询语句
Private Sub Command1_Click() Dim t1, m, n
As String ’构造SQL语句的WHERE条件段 If IsNumeric(Text1.Text) Then m = " age
$#@62;" + Text1.Text End If If IsNumeric(Text2.Text) Then n = " age
$#@60; " + Text2.Text End If If m = "" And n = "" Then t1 =
"" Else If m = "" Then t1 = n Else If n = ""
Then t1 = m Else t1 = m + " and " + n End If End
If End If If t1 $#@60;$#@62; "" Then t1 = " where " + t1 End
If Data1.RecordSource = allinfo +
t1 ’将RecordSource属性的值设置为新的SQL语句 Data1.Refresh ‘刷新数据库，获得符合当前条件的查询结果 End
Sub
六、拨云见雾 还记得我们在前面说过Visual
Basic 提供了两种与 Jet 数据库引擎接口的方法吗？Data 控件和数据访问对象。我们已经见识了DATA控件，确实给人意想不到的方便，但Data
控件只给出有限的访问现存数据库的功能。而 DAO
模型则可以全面控制数据库的完整编程接口。这两种方法事实上并不是互斥的，实际上，它们常同时使用。 DAO
模型是设计关系数据库系统结构的对象类集合。它们提供了完成管理这样一个系统所需的全部操作属性和方法，包括创建数据库，定义表、字段和索引，建立表间的关系，定位和查询数据库等工具。DAO结构的主要对象如图10所示。 Visual
Basic 中的数据库编程就是创建DAO（数据访问对象）。这些对象对应于被访问物理数据库的不同部分，如 Database、TableDef、Field 和
Index 对象，用这些对象的属性和方法来实现对数据库的操作，能够在 Visual Basic
窗体中使用绑定和非绑定控件来显示操作结果并接收用户输入。这样就简化了代码，它赋予程序员很大的灵活性。因为可以使用同样的对象、属性和方法来处理各种不同的数据库格式。同时，如果从一种数据库格式变到另一种格式（例如，将本地的
Microsoft Access 数据库转换为网络上的 SQL Server
数据库），只需变动少量的代码就可以适应这种改变。甚至可以创建这样的应用程序，在单一的查询或报表中连接来自多个不同数据库的表。 我们先介绍DAO对象，从上图中我们可以看到，DAO对象中最关键的是DBEngine对象，所有的数据库操作都要通过它来完成。
DBEngine对象 DBEngine对象相当于jet数据库引擎，不需要创建该对象。 CreateWorkspace方法:创建一个工作区对象 例如
： Dim ws As Workspace Set ws = DbEngine.CreateWorkspace
(SpName,UserID,password",SpType) 其中 SpName 工作区名称String UserID 用户名
String Password 口令String SpType 工作区类型 = dbUsejet jet工作区 =
dbUseODBCODBC工作区
Workspace对象 Workspace对象为用户定义一个会话，通过与之关联的用户名和口令建立一个安全级别。当不需要安全级别时可使用缺省的工作区DBEngine.Workspace。 方法： OpenDatebase
打开一个数据库 Close 关闭当前工作区 BeginTrans 启动一个事务 CommitTrans 提交当前事务 RollBack
回滚当前事务 例如我们需要打开一个数据库。 我们调用Workspace的OpenDatabase方法打开一个数据库。 例如： Dim
db As DataBase Set
db=OpenDatabase(dbname,exc,readonly,source) 其中： dbname
数据库文件名（对于单表数据库为路径） exc = TRUE 表示打开数据库后，该数据库不能被其它应用程序访问。 FALSE
表示共享地打开数据库 Readonly=TRUE 表示打开数据库后，只能对数据库进行读操作 =FALSE
表示打开数据库后，可对数据库进行读写操作 source数据源名，用于指定打开地数据库类型。
创建记录集 我们使用DataBase对象的OpenRecordSet方法打开一个记录集。 例如： Dim
rs As RecordSet Set rs=db.OpenRecordSet(source，type) 其中： source
指定记录集的内容，它可以是一个表名，查询名或SQL语句 type
创建记录集的类型 =dbOpenTable表型记录集 =dbOpenDynaset动态型记录集 =dbOpenSnapshot快照型记录集
访问ODBC数据库 Visual
Basic 通过 DAO 和 Jet 引擎可以识别三类数据库：Visual Basic 数据库，外部数据库，ODBC
数据库。在开发大中型数据库系统中一般都采用ODBC 数据库，如 Microsoft SQL Server等。DAO（数据访问对象）的 ODBCDirect
模式允许直接访问 ODBC 数据。另外，远程数据对象 (RDO) 库和远程数据控件 (RDC)也 允许直接访问 ODBC
数据。 要访问ODBC数据库需要两步，首先需要在WINDOWS 95 或WINDOWS
NT的控制面板中设置ODBC数据源名（DSN）。然后在OpenDatabase方法的Source参数中使用该数据源名。 例如：访问Microsoft
SQL
Server Source="ODBC;DSN=MyDSN;UID=sa;PWD=xx;DataBase=pubs" 在程序中使用DAO DAO的强大功能确实让人兴奋，只是较之DATA控件要复杂得多。在复杂的数据库处理中，这两种方法常常同时使用。要使用DAO，必须选中VB的“工程”菜单下的“部件……”项，在控件标签中选中"Microsoft
DAO 3.5 Object
Library"之后就可以在程序中定义DAO变量了。在这篇文章中我们所举的数据库例子比较简单，有兴趣的朋友不妨采用数据访问对象（DAO）来实现这个程序。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
