| 在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, strTdf 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是要链接的本地数据库（包括路径）；linkTdfName是本地数据库的一个新表名，用来建立远程表的链接；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控件和Data控件方便地浏览整个记录集。如果使用表类型（Table-type）记录对象，则对应的是一个实际存在的数据库表，在多用户环境下，其它用户对数据的修改会立即反映到表中；如果使用动态集类型（Dynaset-type）记录对象，则对应的既可以是一个表中全部记录，又可以是一个查询的结果，并且可以更新记录集中的记录；如果使用快照类型（Snapshot-type）记录对象，则对应的可以是表中的全部记录，也可以是一个查询结果，但不能进行记录的增加、删除和修改操作。此外，还可以建立其它类型的记录对象，如仅向前型（Forward
Only-type）记录对象和动态型（Dynamic-type）记录对象。
下面是打开动态集记录对象并显示记录的过程：
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是网格控件和数据控件所在的窗体名。调用此过程可以基于新表建立一个动态集类型的记录对象，并可在网格中浏览各个记录。
断开连接可以通过关闭应用程序或设置连接超时来实现。注意：如果对数据库对象使用Close方法，则由于在Miscrosoft
Jet数据库引擎内部缓存了连接，实际上连接并未取消。
三、应用举例
以上介绍了用DAO访问远程数据库的具体操作，下面通过一个例子说明链接远程表和建立记录集对象的方法。
首先建立一个新工程，在窗体上画5个命令按钮，1个数据控件和1个数据网格控件（DBGrid）。各对象的属性设置见表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属性设为False。
编写如下事件过程：
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 = " 远 程 数 据：" + strCn + "-" + strTdf
' 显 示“ 添 加”，“ 删 除”，“ 修 改” 控 件
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 |