首页 > > 程序设计 > VB >

VB5中远程数据库的访问

2018-06-17 17:09:24来源：未知阅读 ()

----在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.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->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有