|
 一、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工作区。
=dbUseODBC ODBC工作区。
二、Workspace
Workspace对象为用户定义一个会话，通过与之关联的用户名和口令建立一个安全级别。当不需要安全级别时可使用缺省的工作区DBEngine.Workspace(0)。
［方法：］
·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 数据源名，用于指定打开的数据库类型。
例如："FoxPro 2.5"、"ODBC;DSN=..."
四、创建记录集
我们DataBase使用对象的OpenRecordSet方法打开一个记录集。
［例：］
Dim rs As RecordSet
Set rs=db.OpenRecordSet(source,type)
［其中：］
source 指定记录集的内容，它可以是一个表名、查询名或SQL语句。
type 创建记录集的类型。
=dbOpenTable表型记录集。
=dbOpenDynaset动态型记录集。
=dbOpenSnapshot快照型记录集。
五、事物处理
事物是对数据库所做的一系列改变。我们完成一项任务往往需要多步操作，而当其中一步出错后，以前的所有操作应取消，这时我们必需使用事物。首先启动事物，开始执行所有操作，当所有操作全部结束时，我们就提交事物。当发生错误时，我们就回滚事物。
［例：］
On Error Goto LE
BeginTrans
db.Execute"SQL语句1"
db.Execute"SQL语句2"
...
CommitTrans
...
LE:RollBack
六、访问ODBC数据库
要访问ODBC数据库需要两步。
首先需要在Windows95/98或WindowsNT的控件面板中设置ODBC数据源名（DSN）。然后在OpenDatabase方法的Source参数中使用该数据源名。
［例：］
访问Microsoft SQL Server：Source="ODBC;DSN=MyDSN;UID=sa;PWD=xx;DataBase=pubs"
|
