VB5.0中远程数据库的访问

fg5676

fg5676

2016-02-19 12:29

今天给大家分享的是由图老师小编精心为您推荐的VB5.0中远程数据库的访问,喜欢的朋友可以分享一下,也算是给小编一份支持,大家都不容易啊!
----在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->

展开更多 50%)
分享

猜你喜欢

VB5.0中远程数据库的访问

编程语言 网络编程
VB5.0中远程数据库的访问

VB5中远程数据库的访问

编程语言 网络编程
VB5中远程数据库的访问

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

VB中远程数据库的访问(1)-数据连接

编程语言 网络编程
VB中远程数据库的访问(1)-数据连接

VB中远程数据库的访问(2)-数据处理

编程语言 网络编程
VB中远程数据库的访问(2)-数据处理

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

VB中远程数据库的访问(3)-应用举例

编程语言 网络编程
VB中远程数据库的访问(3)-应用举例

VB5.0数据库编程经验小集

编程语言 网络编程
VB5.0数据库编程经验小集

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

兜兜里的钱 相爱了多好 生好多小孩~ - QQ搞笑分组

兜兜里的钱 相爱了多好 生好多小孩~ - QQ搞笑分组

分页代码

分页代码
下拉加载更多内容 ↓