【 tulaoshi.com - 编程语言 】
----在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->
