----在VB5.0中，用MicrosoftJet数据库引擎和
数据访问对象DAO（DataAccessObject）可以创建功能强大的客户/服务器应用
程序。对远程
数据库的访问是开发这类应用
程序的关键环节，本文将介绍在VB5.0中用DAO通过MiscrosoftJet数据库引擎访问远程
数据库的方法。
----用DAO访问远程
数据库大体上可以通过三步来实现，即
数据连接、
数据处理和断开连接。下面主要介绍
数据连接和
数据处理的具体操作。
----一、
数据连接
----DAO一般通过链接远程表的方式来进行
数据连接。这样，
数据虽然驻留在远程
数据源上，但在本地的MicrosoftJet数据库中可以存储与远程
数据的永久性连接，同时缓存链接的表结构信息，从而在下一次访问该表时，不用再次从
服务器中检索这些结构信息，加快了连接速度。一旦链接了一个表，该链接便会保留在各会话期间，直到连接断开。链接远程表的具体操作是：
用OpenDatabase方法打开将要包含该链接的本地MicrosoftJet数据库
用CreateTableDef方法在该
数据库中创建一个新的TableDef对象
将TableDef对象的Connect属性设置为一个合法的连接字符串，标识要访问的远程
数据库类型、
数据文件的路径以及用户名和远程
数据源密码等。
将TableDef对象的SourceTableName属性设置为远程
数据库中要访问的表的名称。
添加TableDef对象到TableDefs集合中。
---- 实现链接远程表操作的过程如下：
PublicSubLinkTable(strDBAsString,strRoDBAsString,strCnAsString,strTdfAsString,linkTdfNameAsString)
DimlinkTdfAsNewTableDef
Setdbs=OpenDatabase(strDB)
linkTdf.Name=linkTdfName
100
tempTable=UCase(linkTdf.Name)
Fori=0Todbs.TableDefs.Count-1
IfUCase(dbs.TableDefs(i).Name)=tempTableThen
IfMsgBox(linkTdfName "已存在，是否删除？",vbQuestion vbYesNo)=vbYesThen
dbs.TableDefs.DeletelinkTdf.Name
ExitFor
Else:MsgBox"重新输入新表名"
linkTdfName=InputBox("新表名")
GoTo100
EndIf
EndIf
Nexti
SetlinkTdf=dbs.CreateTableDef
(linkTdfName)'链接远程表
linkTdf.Connect=";database=" strCn
linkTdf.SourceTableName=strTdf
dbs.TableDefs.AppendlinkTdf
EndSub
----上述过程用来实现远程表的连接，它有5个参数，其中strRoDB是要访问的远程
数据库名（包括路径）；strTdf是该
数据库中的表名；strDB是要链接的本地
数据库（包括路径）；linkTdfName是本地
数据库的一个新表名，用来建立远程表的链接；strCn是指定连接信息的字符串。需要特别注意的是，除了在访问远程MicrosoftJet数据库时，连接字符串要以分号（；）开头外，指定连接信息的字符串都必须以所访问的远程
数据库类型开头。DAO可以访问的远程
数据源有以下三类：
MicrosoftJet数据源，如：Access数据。
IISAM（可安装的索引化顺序访问方法）格式
数据源，如：FoxPro、Paradox、dBASE数据。
ODBC数据源，如：SQLServer数据、
Oracle数据。
----例如：设
网络服务器名为server，共享目录为C:\Sales的FoxPro3.0数据库，连接字符串应为
----strCn="FoxPro3.0;database=\\server\c$\Sales\Region1"
----此外，DAO通过MicrosoftJet数据库引擎访问远程
数据时，还可以用OpenDatabase方法直接打开远程表。在本地
数据库中并未存储与远程
数据源建立连接所需要的信息。如果使用链接方式访问
数据，则不必在每次会话开始时提供连接信息，从而可以提高效率。
----二、
数据处理
----
数据连接建立后，可以用OpenRecordset方法打开一个记录集，并可用DBGrid控件和Data控件方便地浏览整个记录集。如果使用表类型（Table-type）记录对象，则对应的是一个实际存在的
数据库表，在多用户环境下，其它用户对
数据的修改会立即反映到表中；如果使用动态集类型（Dynaset-type）记录对象，则对应的既可以是一个表中全部记录，又可以是一个查询的结果，并且可以更新记录集中的记录；如果使用快照类型（Snapshot-type）记录对象，则对应的可以是表中的全部记录，也可以是一个查询结果，但不能进行记录的增加、删除和修改操作。此外，还可以建立其它类型的记录对象，如仅向前型（ForwardOnly-type）记录对象和动态型（Dynamic-type）记录对象。
----下面是打开动态集记录对象并显示记录的过程：
PublicSubrst_display(strDBAsString,
strRstAsString,strFormAsForm)
Setdbs=OpenDatabase(strDB)
Setrst=dbs.OpenRecordset(strRst,dbOpenDynaset)
strForm!Data1.DatabaseName=dbs.Name
strForm!Data1.RecordSource=rst.Name
strForm!Data1.Refresh
strForm!DBGrid1.ReBind
EndSub
----上述过程有三个参数，其中strDB用来指定本地
数据库名（包括路径），linkTdfName是在本地
数据库中新建的链接远程表的表名，strForm是网格控件和
数据控件所在的窗体名。调用此过程可以基于新表建立一个动态集类型的记录对象，并可在网格中浏览各个记录。
----断开连接可以通过关闭应用
程序或设置连接超时来实现。注意：如果对
数据库对象使用Close方法，则由于在MiscrosoftJet数据库引擎内部缓存了连接，实际上连接并未取消。
----三、应用举例
----以上介绍了用DAO访问远程
数据库的具体操作，下面通过一个例子说明链接远程表和建立记录集对象的方法。
----首先建立一个新工程，在窗体上画5个命令按钮，1个
数据控件和1个
数据网格控件（DBGrid），各对象的属性设置见表1。
表1窗体1对象属性设置对象标题（Caption）名称（Name）
窗体远程
数据访问Form1
命令按钮1链接远程表cmd链接
命令按钮2添加cmdAdd
命令按钮3删除cmdDel
命令按钮4修改cmdModify
命令按钮5结束cmdEnd
数据控件Data1Data1
数据网格DBGrid1
----其中DBGrid1中的DataSource属性设为Data1，命令按钮2，3，4的Visible属性设为False。
----编写如下事件过程：
----
PrivateSubcmdAdd_Click()'添加记录子过程
OnErrorGoToerrHandler
Withrst
.AddNew
Fori=0To.Fields.Count-1'遍历记录集中的每个字段
'在输入框中输入各字段的
数据.Fields(i).Value=InputBox
("输入记录信息"&vbCr "字段名：" .Fields(i).Name)
Nexti
.Update
EndWith
Data1.Refresh
DBGrid1.ReBind
errHandler:'错误处理
SelectCaseErr
Case3022,3421
MsgBox(Error vbCr "输入无效")
ExitSub
CaseElse
Response=0
ExitSub
EndSelect
EndSub
PrivateSubcmdDel_Click()'删除记录过程
OnErrorGoToerrHandler
BeginTrans'事务处理
WithData1.Reco