VB5中远程数据库的访问

---- 在VB5.0 中， 用Microsoft Jet 数 据 库 引 擎 和 数 据 访 问 对 象DAO（Data Access Object） 可 以 创 建 功 能 强 大 的 客 户/ 服 务 器 应 用 程 序。 对 远 程 数 据 库 的 访 问 是 开 发 这 类 应 用 程 序 的 关 键 环 节， 本 文 将 介 绍 在VB5.0 中 用DAO 通 过Miscrosoft Jet 数 据 库 引 擎 访 问 远 程 数 据 库 的 方 法。

---- 用DAO 访 问 远 程 数 据 库 大 体 上 可 以 通 过 三 步 来 实 现， 即 数 据 连 接、 数 据 处 理 和 断 开 连 接。 下 面 主 要 介 绍 数 据 连 接 和 数 据 处 理 的 具 体 操 作。

---- 一、 数 据 连 接

---- DAO 一 般 通 过 链 接 远 程 表 的 方 式 来 进 行 数 据 连 接。 这 样， 数 据 虽 然 驻 留 在 远 程 数 据 源 上， 但 在 本 地 的Microsoft Jet 数 据 库 中 可 以 存 储 与 远 程 数 据 的 永 久 性 连 接， 同 时 缓 存 链 接 的 表 结 构 信 息， 从 而 在 下 一 次 访 问 该 表 时， 不 用 再 次 从 服 务 器 中 检 索 这 些 结 构 信 息， 加 快 了 连 接 速 度。 一 旦 链 接 了 一 个 表， 该 链 接 便 会 保 留 在 各 会 话 期 间， 直 到 连 接 断 开。 链 接 远 程 表 的 具 体 操 作 是：

用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 数 据 源， 如：SQL Server 数 据、Oracle 数 据。
---- 例 如： 设 网 络 服 务 器 名 为server， 共 享 目 录 为C:\Sales 的FoxPro 3.0 数 据 库， 连 接 字 符 串 应 为

---- strCn="FoxPro3.0;database=\\server\c$\Sales\Region1"

---- 此 外，DAO 通 过Microsoft Jet 数 据 库 引 擎 访 问 远 程 数 据 时， 还 可 以 用OpenDatabase 方 法 直 接 打 开 远 程 表。 在 本 地 数 据 库 中 并 未 存 储 与 远 程 数 据 源 建 立 连 接 所 需 要 的 信 息。 如 果 使 用 链 接 方 式 访 问 数 据， 则 不 必 在 每 次 会 话 开 始 时 提 供 连 接 信 息， 从 而 可 以 提 高 效 率。

---- 二、 数 据 处 理

---- 数 据 连 接 建 立 后， 可 以 用OpenRecordset 方 法 打 开 一 个 记 录 集， 并 可 用DBGrid 控 件 和Data 控 件 方 便 地 浏 览 整 个 记 录 集。 如 果 使 用 表 类 型（Table-type） 记 录 对 象， 则 对 应 的 是 一 个 实 际 存 在 的 数 据 库 表， 在 多 用 户 环 境 下， 其 它 用 户 对 数 据 的 修 改 会 立 即 反 映 到 表 中； 如 果 使 用 动 态 集 类 型（Dynaset-type） 记 录 对 象， 则 对 应 的 既 可 以 是 一 个 表 中 全 部 记 录， 又 可 以 是 一 个 查 询 的 结 果， 并 且 可 以 更 新 记 录 集 中 的 记 录； 如 果 使 用 快 照 类 型（Snapshot-type） 记 录 对 象， 则 对 应 的 可 以 是 表 中 的 全 部 记 录， 也 可 以 是 一 个 查 询 结 果， 但 不 能 进 行 记 录 的 增 加、 删 除 和 修 改 操 作。 此 外， 还 可 以 建 立 其 它 类 型 的 记 录 对 象， 如 仅 向 前 型（ForwardOnly-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)

标签：

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