-
vb.net教程之Dao对象模型
DAO提供了两种不同的对象模型,一种对象模型是通过Jet引擎来访问数据,如下图所示。另一种对象模型是通过ODBCDirect来访问数据。这两种对象模型都是层次结构的。现在分别对这两种对象模型进行介绍。
DBEngine是一个基于对象,它包含了两个重要的集合(Collection),一个是Errors集合,另一个是Workspaces集合。对DAO的操作总会产生一些错误,每产生一个错误,DAO就生成一个Error对象,这些Error对象都放在Errors集合中,可以用Errors.Count来计算错误的个数。事实上,对于每一个集合,都可以用Collection.Count来求出该集合中对象的个数。
每一个应用程序只能有一个DBEngine对象,但可以有多个Workspace对象,这些Workspace对象都包含在Workspace集合中。每个Workspace对象都包含了一个Database对象对应了一个数据库,它里面包含了许多用于操作数据库的对象。这些对象中,有一些是Jet数据库专用的,如Container、TableDef和Relation对象,有一些则是对所有数据库都有用的,如Recordset对象和QueryDef对象。
下面对对象模型中的主要对象进行详细的说明。
1.DBEngine对象
DBEngine对象是惟一的,不能创建,也不能声明。通常,可以用DBEngine对象的属性来设置数据库访问的安全性,即设置访问数据库缺省用户名和缺省口令,如:
Dim DbEn AS DAO.DBEngine=New DAO.DBEngine()
DbEn.DefaultUser="RtLinux"
DbEn.DefaultPassword="aaa"
由于Jet数据库引擎允许用户定义一个工作组,对于工作组中的每一个用户可以设置不同的数据库访问权限。必须把存储这个工作组有关信息的文件告诉DAO,方法就是设置DBEngine对象的"SystemDB"属性,如:
DbEn.SystemDB="C:\"&"System.mdw"
当使用Jet数据库引擎时,必须把DBEngine对象的"DefaultType"属性设置为"dbUseJet"。
DBEngine对象还提供了很多方法来操作工作区(Workspace)和数据库,如:Creat Workspace方法创建一个工作区,Creatdatabase创建一个数据库,OpenDatabase打开一个数据库,CompactDatabase压缩一个数据库,RepairDatabase修复一个数据库,等等。
2.Error对象
Error对象是DBEngine对象的一个子对象。在发生数据库操作错误时,可以用标准的VB的Err对象来进行错误处理,也可以把错误信息保存在DAO的Error对象中。Error对象包含以下属性:
(1)Description属性。这个属性包含了错误警告信息文本,如果没有进行错误处理,这个文本将出现在屏幕上。
(2)Number属性。这个属性包含了产生错误的错误号。
(3)Source属性。这个属性包含了产生错误的对象名。
(4)HelpFile属性和HelpContext属性。这两个属性设置有关这个错误的Windows帮助文件和帮助主题。
3.Workspace对象
一个Workspace对象定义一个数据库会话(Session)。会话描述出由Microsoft Jet完成的一系列功能,所有在会话期间的操作形成了一个事务范围,并服从于由用户名和密码决定的权限。所有的Workspace对象组合在一起形成了一个Workspace集合。可以用DBEngine对象的CreateWorkspace方法画创建一个新的工作区,只需把工作区的名称和用户信息传递给这个方法,如:
注意:当创建了一个新的Workspace对象时,它并不会自动添加到Workspace集合中,必须用Append方法把Workspace对象添加到Workspace集合中。
4.Database对象
一旦用CreateDatabase创建了一个数据库或用OpenDatabase打开了一个数据库,就生成了一个Database对象。所有的Database对象都自动添加到Database集合中。下面的这段代码就是使用Database集合列出了所有的数据库的路径名:
db=ws.OpenDatabase(txtMDBFile.text)
Database对象有5个子集合,分别是Recordsets集合,QueryDefs集合,TableDefs集合,Relation集合和Containers集合,这些集合分别是Recordset对象、QueryDef对象、TableDef对象、Relation对象和Container对象的集合。Database对象提供一些方法来操纵数据库和创建这些对象。
(1)Execute方法。执行一个SQL语句。这个SQL语句不仅可以操作数据库中的数据,还可以是DLL,用来修改数据库的结构。
(2)OpenRecordset方法。在数据库中执行一个查询,查询可能涉及到表的连接,查询的结果作为一个Recordset对象返回。
(3)CreateQuery方法。在数据库中创建一个存储过程并创建一个QueryDef对象。
(4)CreateRelation方法。创建一个Relation对象,定义两个TableDef或QueryDef之间的关系。
(5)CreatTableDef方法。在数据库中创建一个数据表,并返回一个TableDef对象。
5.Recordset对象
Recordset对象是使用最频繁的一个对象,它代表了数据库中一个表或一个查询结果的记录等。例如下面的语句在数据库的第一表中添加一条记录:
For Each tempdb In Workspace(0).Databases
Debug.Write("databases(x).Name=",temdb.Name)
Next
还可以在Recordset中任意移动当前的记录的位置,使用的是Recordset对象MoveNext、MovePrevious、MoveFirst和MoveLast方法。
Recordset对象中还包含另一个对象--Field对象,这个对象代表了数据表的一个字段,用这个对象可以访问数据表中的任何一个字段,如:下面的语句把表中当前记录的Name字段值赋给变量sName:
Dim db As DAO.Database=ws.OpenDatabase("user","aaa")
SName=CStr(db.recordsets(0).Fields("name").value)
Source参数可以是一个表名,也可以是一个查询的名字,还可以是一个用来创建Recordset对象的SQL语句。这个参数是必须的,而其他的三个参数是可选的。
Type参数是指Recordset的类型,这里有必要说明一下Dynaset(动态集)和Snapshot(快照)之间的区别。Dynaset这种Recordset对象的功能强大,使用灵活,当Recordset被创建时,只有每个记录的主键被取到且被缓存在本地,由于主键的大小总是小于整条记录的大小,所以Dynaset创建的速度很快。在Dynaset创建以后,如果要查询记录,则用缓存的主键来进行查询。相反,Snapshot则是把整条记录都取出来存在本地,因此速度很慢,而且,如果别的用户修改了数据库,本用户将无法看到这种改变。
6.TableDef对象
TableDef对象也是一个经常使用的对象,它有两个子对象:一个是Field对象,另一个是Index对象。用TableDef对象可以访问单个表的每个字段(Field对象)和表的索引(Index对象)。TableDef对象的一个重要的方法是CreateField。CreatField方法用来在表中创建一个新的字段,它的语法为:
Field=tabledef.CreateField(fieldname,fieldtype,fieldlength)
三个参数分别指明新增字段的字段名,字段类型和字段长度。
对于动态地创建一个新表或动态地修改表的结构时,这个对象是必不可少的。例如下面的语句创建一个只有字段的新表:
7.QueryDef对象
QueryDef对象用来定义一个查询。它有两个对象:一个是Field对象,一个是Parameter对象。用Database对象的CreateQueryDef方法来创建一个QueryDef对象。用户可以在Jet对象模型中这样使用QueryDef对象:
(1)用QueryDef对象的SQL属性来设置或返回查询的SQL语句的定义;
(2)用QueryDef对象的子对象Parameter来设置或返回查询定义的参数;
(3)用QueryDef对象的Type属性来设置查询的类型,查询的类型包括:从已有的表中取出记录、创建一个新表、把一个表中的记录插入到另一个表中、删除记录、更新记录等;
(4)用对象的MaxRecords属性来限制查询返回的记录数;
(5)用对象的ReturnRecords属性取得查询返回的记录数;
(6)用对象的Execute方法来执行查询;
(7)对象的RecordsAffected属性来返回此查询的所影响的记录数;
(8)用对象ODBTimeout来设置查询ODBC数据源时花费的最长时间;
(9)用对象的connect属性来连接ODBC数据源进行查询;
(10)用对象的OpenRecordset方法来返回Recordset对象,并用此recordset对象来取得查询的结果。
8.Relation对象
Relation对象用来定义不同的表中或不同查询中字段之间的关系。例如,定义一个表中的主键为另一个表的外键,定义一个表中的字段之间的一对一或一对多的关系等等。用Database对象的CreateRelation方法来创建一个Relation对象。
9.Field对象
Field对象是Jet对象模型中的最底层的对象,它代表了一个表中的一个字段。可以设置字段的各种属性,如字段类型("Type"属性)、字段长度("Size"属性)、当前记录中字段的值("Value"属性)、字段的缺省值("DefaultValue"属性)、字段是否可以为空("Required"属性)等等。
10.Group对象和User对象
User对象代表了数据库的一个用户,Group对象则包含了具有相同权限的一组用户。可以用这两个对象来管理数据库的用户。下面给出了一个函数来创建用户,使用这个函数时,必需具有创建用户的权限。
ODBCDirect是一种不用加载Microsoft Jet数据库引擎就可以操作ODBC数据库服务器的技术。它是DAO3.5之后才增加的新特性。ODBCDirect提供了一种机制,使得DAO能把基于Jet的访问变为基于RDO的访问方法。但是,ODBCDirect并不能完全替代RDO。要在应用程序中使用ODBCDirect来访问数据库,只需要把下面这些话添加到应用程序的开始就可以了(任何使用DAO之前):
DbEngine.DefaultType=dbUseODBC
也可以在CreateWorkspace方法中指定dbUserODBC参数来使用ODBCDirect。如:
Dim wrkODBC as dao.Workspace=new dao.Workspaces(0)
Set wrkODBC=CreateWorkspace("ODBCWorkspace","admin","",dbUseODBC)
使用ODBCDirect的DAO对象模型和Jet对象模型大同小异,模型的层次结构图如下:
与Jet对象模型相比,ODBCDirect去掉了用于数据库定义的对象,如TableDef对象和Relation对象,但是新增Connection对象。Connection对象代表了和ODBC数据源的一个连接。一般用OpenConnect方法来建立一个连接并创建一个Connection对象。OpenConnection的语法如下:
conection=workspace.Openconnection(name,options,readonly,connect)
四个参数的含义和OpenDatabase方法的四个参数的含义一样,在此就不再赘述了。请参阅前面讲过的Opendatabase方法。
使用ODBCDirect操作ODBC数据源有如下一些优点:
(1)ODBCDirect通过提供对ODBC数据源的直接访问,使程序代码执行得更快、效率更高。因为它不需要加载Microsoft Jet数据库引擎,所以在客户端只需消耗较少的资源。ODBC服务器可以响应所有的查询处理。
(2)ODBCDirect提供对特定服务器进行访问的功能,这些访问是Microsoft Jet使用ODBCA无法实现的。例如,对于支持光标集的服务器,ODBCDirect允许用户指定光标集位置是在本地还是在服务器上。此外,也可以通过指定输入值以及检查返回值,来与服务器级别的存储过程进行交互,这在Microsoft Jet中是不可以的。
(3)ODBCDirect支持数据的批量更新,可以将Recordset对象在本地的更改存入高速缓存,然后批理向服务器导出这些更改。
(4)使用ODBCDirect,既可以创建简单的无游标集的结果集,也可以创建复杂的游标集。它也可以执行返回多个结果集的查询,或是限制返回的行数,并监视所有远程数据源生成的信息和错误,并不影响查询的执行性能。
但是,ODBCDirect也有一些缺点。下面的一些功能就是ODBCDirect无法完成的,但是Microsoft Jet能够完成的。
(1)可更新的连接。只有使用Microsoft Jet工作区才能更新基于多表连接的Recordset对象中的数据。
(2)异种连接。只有使用Microsoft Jet工作区才能执行不同数据源种的表连接。
(3)数据定义语言(DDL)的操作。只有使用Microsoft Jet工作区才能通过Dao进行DDL操作。ODBCDirect不提供TableDef对象,所以不能使用DAO来创建或修改表。不过,使用ODBCDirect可以通过执行SQL DDL语句来执行DDL操作。
(4)窗体和控件结合。如果应用程序需要将ODBC数据源种的数据与窗体相结合,就必须使用Microsoft Jet,在ODBCDirect工作区中访问的数据不能与窗体或控件结合。
如果应用程序不需要上述功能,就可以使用ODBCDirect。
注意:可以在应用程序中同是定义Microsoft Jet和ODBCDirect工作区,并通过各种形式将它们组合起来。例如,在同一个函数中,可以定义Microsoft Jet工作区来使用DAO执行DDL操作,同时也可以定义ODBCDirect工作区来执行异步查询。