紫丁香社区 → VB编程 → 精华区文章阅读

VB 版 (精华区)

open: Permission denied
发信人: zxfsnow (别怕我伤心), 信区: VB
标  题: VB5.0中远程数据库的访问
发信站: 哈工大紫丁香 (2000年06月01日19:12:32 星期四), 转信

发信人: hy ( 云间堡主), 信区: VB
标  题: VB5.0中远程数据库的访问
发信站: 饮水思源站 (Sat Jul 17 21:13:03 1999) , 站内信件
在VB5.0中，用Microsoft Jet数据库引擎和数据访问对象DAO（Data Access Object）可
以创 建功能强大的客户/服务器应用程序。对远程数据库的访问是开发这类应用程序的
关键环节，本文将介绍在VB5.0中用DAO通过Miscrosoft Jet数据库引擎访问远程数据库
的方法。
用DAO访问远程数据库大体上可以通过三步来实现，即数据连接、数据处理和断开连接。
下妹 主要介绍数据连接和数据处理的具体操作。
　
一、数据连接
DAO一般通过链接远程表的方式来进行数据连接。这样，数据虽然驻留在远程数据源上，
但栽 本地的MicrosoftJet数据库中可以存储与远程数据的永久性连接，同时缓存链接的
表结构信息，从而在下一次访问该表时，不用再次从服务器中检索这些结构信息，加快
了连接速度。一旦链接了一�
 表，该链接便会保留在各会话期间，直到连接断开。链接
远程表的具体操作是：
用OpenDatabase方法打开将要包含该链接的本地Microsoft Jet数据库
用CreateTableDef方法在该数据库中创建一个新的TableDef对象
将TableDef对象的Connect属性设置为一个合法的连接字符串，标识要访问的远程数据库
类�
、数据文件的路径以及用户名和远程数据源密码等。
将TableDef对象的SourceTableName属性设置为远程数据库中要访问的表的名称。
添加TableDef对象到TableDefs集合中。
实现链接远程表操作的过程如下：
Public Sub LinkTable(strDB As String, strRoDB As String, strCn As String, st
rTdf
As String, _linkTdfName As String)
Dim linkTdf As New TableDef
Set dbs = OpenDatabase(strDB)
linkTdf.Name = linkTdfName
100
tempTable = UCase(linkTdf.Name)
For i = 0 To dbs.TableDefs.Count - 1
If UCase(dbs.TableDefs(i).Name) = tempTable Then
If MsgBox(linkTdfName + " 已 存 在， 是 否 删 除 ？", _
vbQuestion + vbYesNo) = vbYes Then
dbs.TableDefs.Delete linkTdf.Name
Exit For
Else: MsgBox " 重 新 输 入 新 表 名"
linkTdfName = InputBox(" 新 表 名")
GoTo 100
End If
End If
Next i
Set linkTdf = dbs.CreateTableDef(linkTdfName) ' 链 接 远 程 表
linkTdf.Connect = ";database=" + strCn
linkTdf.SourceTableName = strTdf
dbs.TableDefs.Append linkTdf
End Sub
上述过程用来实现远程表的连接，它有5个参数，其中strRoDB是要访问的远程数据库名
（包
 路径）；strTdf是该数据库中的表名；strDB是要链接的本地数据库（包括路径）；li
nkTd
Name是本地数据库的一个新表名，用来建立远程表的链接；strCn是指定连接信息的字符
串�
需要特别注�
 的是，除了在访问远程Microsoft Jet数据库时，连接字符串要以分
号（；）开头外，指定
 接信息的字符串都必须以所访问的� 程数据库类型开头。DAO可以访问的远程数据源有
以下
 类：
.Microsoft Jet数据源，如：Access数据。
.IISAM（可安装的索引化顺序访问方法）格式数据源，如：FoxPro、Paradox、dBASE数
据。
.ODBC数据源，如：SQLServer数据、Oracle数据。
例如：设网络服务器名为server，共享目录为C:\Sales的FoxPro3.0数据库，连接字符串
应�

strCn="FoxPro3.0;database=\\server\c$\Sales\Region1"
此外，DAO通过Microsoft Jet数据库引擎访问远程数据时，还可以用OpenDatabase方法
直接
 开远程表。在本地数据库中并未存储与远程数据源建立连接所需要的信息。如果使用链
接�
式访问数据，则不必在每次会话开始时提供连接信息，从而可以提高效率。
　
二、数据处理
数据连接建立后，可以用OpenRecordset方法打开一个记录集，并可用DBGrid控件和Dat
a控�
方便地浏览整个记录集。如果使用表类型（Table-type）记录对象，则对应的是一
个实际存
 的数据库表，在多用户环境下，其它用户� 数据的修改会立即反映� 表中；如果使用动
态�
类型（Dynas
et-type）记录对象，则对应的既可以是一个表中全部记录，又可以是一个查询的结果，
并�
可以更新记录集中的记录；如果使用快照类型（Snapshot-type）记录对象，则对应
的可以�
表中的全部记录，也可以是一个查询结果，但不能进行记录的增加、删除和修
改操作。此外
 还可以建立
其它类型的记录对象，如仅向前型（Forward Only-type）记录对象和动态型（Dynamic
-typ
）记录对象。
下面是打开动态集记录对象并显示记录的过程：
Public Sub rst_display(strDB As String, strRst As String, strForm As Form)
Set dbs = OpenDatabase(strDB)
Set rst = dbs.OpenRecordset(strRst, dbOpenDynaset)
strForm!Data1.DatabaseName = dbs.Name
strForm!Data1.RecordSource = rst.Name
　
strForm!Data1.Refresh
strForm!DBGrid1.ReBind
End Sub
上述过程有三个参数，其中strDB用来指定本地数据库名（包括路径），linkTdfName是
在本
 数据库中新建的链接远程表的表名，strForm是网格控件和数据控件所在的窗体名。调
用此
 程可以基于新表建立一个动态集类型的记录对象，并可在网格中浏览各个记录。
断开连接可以通过关闭应用程序或设置连接超时来实现。注意：如果对数据库对象使用
Clos
方法，则由于在Miscrosoft Jet数据库引擎内部缓存了连接，实际上连接并未取消。
　
三、应用举例
以上介绍了用DAO访问远程数据库的具体操作，下面通过一个例子说明链接远程表和建立
记�
集对象的方法。
首先建立一个新工程，在窗体上画5个命令按钮，1个数据控件和1个数据网格控件（DBG
rid�
。各对象的属性设置见表1。
表1 窗体1对象属性设置
对 象 标 题（Caption） 名 称（Name）
窗体 远程数据访问 Form1
命令按钮1 链接远程表 cmd 链接
命令按钮2 添加 cmdAdd
命令按钮3 删除 cmdDel
命令按钮4 修改 cmdModify
命令按钮5 结束 cmdEnd
数据控件 Data1 Data1
数据网格 DBGrid1
其中DBGrid1中的DataSource属性设为Data1，命令按钮2，3，4的Visible属性设为Fals
e。
编写如下事件过程：
Private Sub cmdAdd_Click() ' 添 加 记 录 子 过 程
On Error GoTo errHandler
With rst
.AddNew
For i = 0 To .Fields.Count - 1 ' 遍 历 记 录 集 中 的 每 个 字 段
' 在 输 入 框 中 输 入 各 字 段 的 数 据
.Fields(i).Value = InputBox
(" 输 入 记 录 信 息" & vbCr + " 字 段 名：" + .Fields(i).Name)
Next i
.Update
End With
Data1.Refresh
DBGrid1.ReBind
errHandler: ' 错 误 处 理
Select Case Err
Case 3022, 3421
MsgBox (Error + vbCr + " 输 入 无 效")
Exit Sub
Case Else
Response = 0
Exit Sub
End Select
End Sub
　
Private Sub cmdDel_Click() ' 删 除 记 录 过 程
On Error GoTo errHandler
BeginTrans ' 事 务 处 理
With Data1.Recordset
If .BOF And .EOF Then Exit Sub
' 如 果 没 有 记 录， 退 出 过 程
.Delete ' 删 除
If .BOF And .EOF Then
' 如 果 没 有 记 录， 退 出 过 程
Exit Sub
ElseIf .EOF Then .MoveLast
' 如 果 删 除 的 是 最 后 一 条 记 录， 光 标 移 至 最 后 一 记 录
Else: .MoveNext
' 移 至 下 一 条 记 录
End If
End With
If MsgBox(" 确 实 要 删 除 这 一 记 录 ？",
vbQuestion + vbYesNo) = vbYes Then
CommitTrans ' 确 认
Data1.Refresh
Else
Rollback ' 撤 消 改 动
Data1.Refresh
End If
errHandler: ' 错 误 处 理
Select Case Err
Case 3021 ' 无 当 前 记 录
MsgBox (" 无 当 前 记 录， 请 选 择 要 删 除 的 记 录")
Exit Sub
Case Else
MsgBox (Error)
Exit Sub
End Select
End Sub
Private Sub cmdEnd_Click()
End ' 结 束 应 用 程 序
End Sub
Private Sub cmdModify_Click()
DBGrid1.AllowUpdate = True ' 允 许 修 改
End Sub
Privatev Sub cmd 链 接_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub DBGrid1_AfterColUpdate(ByVal ColIndex As Integer)
' 数 据 修 改 后 触 发 该 事 件
On Error GoTo err1
Data1.Refresh
err1:
Select Case Err
Case 0
Response = 0
Case Else
Exit Sub
End Select
End Sub
Private Sub DBGrid1_BeforeColUpdate
(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
' 数 据 修 改 前 触 发 该 事 件
On Error GoTo errHandler:
BeginTrans
If MsgBox(" 确 实 要 修 改
这 一 内 容 ？", vbQuestion + vbYesNo) = vbYes Then
CommitTrans
Else
Rollback
Data1.Refresh
End If
errHandler:
Select Case Err
Case 0
Response = 0
Case Else
MsgBox (Error)
Exit Sub
End Select
End Sub
Private Sub Form_Load()
' 在 窗 体 装 入 时， 网 格 中 的 数 据 不 可 添 加， 修 改
DBGrid1.AllowAddNew = False
DBGrid1.AllowUpdate = False
End Sub
Private Sub Form_Resize()
On Error Resume Next
' 当 窗 体 调 整 时 会 调 整 网 格
DBGrid1.Height = Me.ScaleHeight - Data1.Height - cmd 删 除.Height - 30
End Sub
在工程中添加一个窗体，在窗体上画6个标签，1个命令按钮（标题为“ 确认”，名称为
cmd
确认），3个文本框和1个组合框。
在窗体的声明部份输入以下代码：
' 声 明 窗 体 层 变 量
Dim rodbs As Database
Dim strDB As String, strRoDB As String, strCn As String, strTdf As String
Dim linkTdfName As String
编 写 如 下 事 件 过 程：
Private Sub cmd 确 认_Click()
On Error GoTo errHandler:
strDB = text2.Text
' 本 地 数 据 库 名 及 路 径
linkTdfName = Text3.Text
' 本 地 数 据 库 中 新 建 的 链 接 远 程 表 的 表 名
strCn = strRoDB ' 连 接 字 符 串
strTdf = Combo1.Text ' 指 定 远 程 数 据 库 中 要 访 问 的 表
' 调 用LinkTable 过 程
Call LinkTable(strDB, strRoDB, strCn, strTdf, linkTdfName)
' 调 用rst_display 过 程
Call rst_display(strDB, linkTdfName, Form1)
Form2.Hide
Form1.Show
Form1.Caption = " 远 程 数 据ERIOUS INTERNAL INDIGESTION CLASS 13
� 加”，“ 删 除”，“ 修 改” 控 件
Form1.cmdAdd.Visible = True
Form1.cmdDel.Visible = True
Form1.cmdModify.Visible = True
errHandler:
Select Case Err
Case 0
Response = 0
Case Else
MsgBox (Error + vbr + " 重 新 输 入")
Exit Sub
End Select
End Sub
Private Sub Combo1_GotFocus()
strRoDB = text1.Text ' 指 定 远 程 数 据 库 名 及 路 径
Set rodbs = OpenDatabase(strRoDB) ' 打 开 远 程 数 据 库
' 删 除combo1 中 的 内 容
If Combo1.ListCount >= 1 Then
For i = Combo1.ListCount - 1 To 0 Step -1
Combo1.RemoveItem i
Next i
End If
' 把 数 据 库 中 的 表 名 加 到combo1 中
For i = 0 To rodbs.TableDefs.Count - 1
Combo1.AddItem rodbs.TableDefs(i).Name
Next i
End Sub 
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]
[百宝箱] [返回首页] [上级目录] [根目录] [返回顶部] [刷新] [返回]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间：2.795毫秒