----在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=serverc$SalesRegion1"
　　
　　----此外，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.Recordset
　　If.BOFAnd.EOFThenExitSub　'如果没有记录，退出过程
　　.Delete　　'删除
　　If.BOFAnd.EOFThen　　'如果没有记录，退出过程
　　ExitSub
　　ElseIf.EOFThen.MoveLast　
　　'如果删除的是最后一条记录，光标移至最后一记录
　　Else:.MoveNext　　'移至下一条记录
　　EndIf
　　　EndWith
　　IfMsgBox("确实要删除这一记录？",
　　vbQuestion vbYesNo)=vbYesThen
　　CommitTrans　'确认
　　Data1.Refresh
　　Else
　　Rollback　　　'撤消改动
　　　Data1.Refresh
　　EndIf
　　errHandler:　　　'错误处理
　　SelectCaseErr
　　　Case3021　'无当前记录
　　MsgBox("无当前记录，请选择要删除的记录")
　　ExitSub
　　　CaseElse
　　MsgBox(Error)
　　ExitSub
　　EndSelect
　　EndSub
　　
　　PrivateSubcmdEnd_Click()
　　End　　'结束应用程序
　　EndSub
　　
　　PrivateSubcmdModify_Click()
　　DBGrid1.AllowUpdate=True　'允许修改
　　EndSub
　　
　　PrivatevSubcmd链接_Click()
　　Form1.Hide
　　Form2.Show
　　EndSub
　　
　　PrivateSubDBGrid1_After
　　ColUpdate(ByValColIndexAsInteger)
　　'数据修改后触发该事件
　　OnErrorGoToerr1
　　Data1.Refresh
　　err1:
　　SelectCaseErr
　　Case0
　　　　Response=0
　　CaseElse
　　　　ExitSub
　　EndSelect
　　EndSub
　　
　　PrivateSubDBGrid1_BeforeColUpdate(ByVal
　　ColIndexAsInteger,
　　OldValueAsVariant,CancelAsInteger)
　　'数据修改前触发该事件
　　OnErrorGoToerrHandler:
　　BeginTrans
　　IfMsgBox("确实要修改这一内容？",
　　vbQuestion vbYesNo)=vbYesThen
　　CommitTrans
　　Else
　　Rollback
　　Data1.Refresh
　　EndIf
　　errHandler:
　　SelectCaseErr
　　Case0
　　　　Response=0
　　CaseElse
　　　　MsgBox(Error)
　　　　ExitSub
　　EndSelect
　　EndSub
　　
　　PrivateSubForm_Load()
　　'在窗体装入时，网格中的数据不可添加，修改
　　DBGrid1.AllowAddNew=False
　　DBGrid1.AllowUpdate=False
　　EndSub
　　
　　PrivateSubForm_Resize()
　　OnErrorResumeNext
　　　'当窗体调整时会调整网格
　　　DBGrid1.Height=Me.ScaleHeight
　　-Data1.Height-cmd删除.Height-30
　　EndSub
　　
　　----在工程中添加一个窗体，在窗体上画6个标签，1个命令按钮（标题为"确认"，名称为cmd确认），3个文本框和1个组合框在窗体的声明部份输入以下代码：
　　
　　----'声明窗体层变量
　　
　　DimrodbsAsDatabase
　　DimstrDBAsString,strRoDB
　　AsString,strCnAsString,strTdfAsString
　　DimlinkTdfNameAsString
　　
　　编写如下事件过程：
　　PrivateSubcmd确认_Click()
　　OnErrorGoToerrHandler:
　　strDB=text2.Text'本地数据库名及路径
　　linkTdfName=Text3.Text
　　'本地数据库中新建的链接远程表的表名
　　
　　strCn=strRoDB'连接字符串
　　strTdf=Combo1.Text
　　'指定远程数据库中要访问的表
　　'调用LinkTable过程
　　CallLinkTable(strDB,
　　strRoDB,strCn,strTdf,linkTdfName)
　　'调用rst_display过程
　　Callrst_display(strDB,linkTdfName,Form1)
　　Form2.Hide
　　Form1.Show
　　Form1.Caption=
　　"远程数据：" strCn "-" strTdf
　　'显示"添加"，"删除"，"修改"控件
　　Form1.cmdAdd.Visible=True
　　Form1.cmdDel.Visible=True
　　Form1.cmdModify.Visible=True
　　errHandler:
　　SelectCaseErr
　　Case0
　　　　Response=0
　　CaseElse
　　　　MsgBox(Error vbr "重新输入")
　　　　ExitSub
　　EndSelect
　　EndSub
　　
　　PrivateSubCombo1_GotFocus()
　　strRoDB=text1.Text　
　　'指定远程数据库名及路径
　　Setrodbs=OpenDatabase(strRoDB)
　　'打开远程数据库
　　'删除combo1中的内容
　　IfCombo1.ListCount=1Then
　　Fori=Combo1.ListCount-1To0Step-1
　　　　Combo1.RemoveItemi
　　Nexti
　　EndIf
　　'把数据库中的表名加到combo1中
　　Fori=0Torodbs.TableDefs.Count-1
　　Combo1.AddItemrodbs.TableDefs(i).Name
　　Nexti
　　EndSub->