VB中超长OLE数据库字段的 *** 纵方法

概述现 在， 多 数 数 据 库 都 支 持OLE 类 型 的 数 据 库 字 段， 利 用 这 种 字 段， 可 以 存 放Word 文 档 和Excel 表 格 等 任 何 种 类 的 文 件， 而 且， 使 用OLE Automation 方 法， 可 直 接 激 活 文 件 的 原 始 编 辑 器， 也 就 是 它 们 的OLE Server。 这 样， 我 们 就 有 了 一 个 安 全 可

现 在， 多 数 数 据 库 都 支 持olE 类 型 的 数 据 库 字 段， 利 用 这 种 字 段， 可 以 存 放Word 文 档 和Excel 表 格 等 任 何 种 类 的 文 件， 而 且， 使 用olE automation 方 法， 可 直 接 激 活 文 件 的 原 始 编 辑 器， 也 就 是 它 们 的olE Server。 这 样， 我 们 就 有 了 一 个 安 全 可 靠 的 保 存 各 类 重 要 文 件 的 方 法。 但 是， 因 为 这 些 文 件 常 常 是 很 大， 几 十K ， 甚 至 上 百K， 就 要 求 我 们 有 一 种 切 实 可 行 的 *** 纵 方 法， 实 现 对 这 种 字 段 的 存 取。 VB 为 程 序 员 提 供 了 数 据 库 控 件Data， 使 用 它， 可 以 方 便 地 *** 纵 数 据 库， 如 浏 览 数 据 库， 增 加 新 记 录， 编 辑 且 更 新 现 存 的 记 录， 删 除 记 录 等。 但 这 些 功 能 是 对 普 通 的 数 据 库 而 言 的， 当 数 据 库 中 有 超 长 的olE 字 段 时， 仅 仅 使 用Data 则 不 能 完 成 上 述 *** 作 了。 此 时， 需 要 解 决 二 个 问 题： 第 一， 如 何 存 取olE 字 段 中 的 内 容； 第 二， 如 何 同 步 存 取Data 控 件 所 显 示 记 录 中olE 字 段 与 其 它 字 段 的 内 容。 针 对 上 述 二 个 问 题， 介 绍 一 种 解 决 方 法。 第 一、 如 何 存 取olE 字 段 中 的 内 容。 VB 提 供 了 文 件 存 取 的 方 法， 利 用 这 种 方 法 我 们 可 以 方 便 地 存 取olE 数 据 库 字 段。 下 面 给 出 的 函 数 就 利 用 文 件 存 取 的 方 法， 实 现 了 对olE 数 据 库 字 段 的 存 取 *** 作。 这 里， 使 用Get、Put、Seek 等 语 句， 以 二 进 制 形 式 打 开 一 个 临 时 文 件， 把 它 作 为olE 字 段 与olE 控 件 的 中 间 缓 冲 器， 当 从olE 字 段 向olE 控 件 中 读 数 据 时， 先 将olE 字 段 的 数 据 写 入 临 时 文 件， 再 将 临 时 文 件 用olE 控 件 的olE_LOAD_FROM_file 动 作 插 入olE 控 件； 当 把olE 控 件 的 数 据 写 入olE 字 段 时， 则 先 用olE 控 件 的olE_SAVE_TO_file 动 作， 将 其 存 入 临 时 文 件， 再 将 临 时 文 件 写 入olE 字 段。 这 里， 以 固 定 块 长 的 方 式 读 写olE 字 段 和 临 时 文 件。 这 些 函 数 都 没 有 错 误 检 测 部 分。 下 面 所 有 例 子 使 用 的 都 是Access2.0 数 据 库。 变 量 声 明： Option Explicit Const olE_SAVE_TO_file = 11 'olE Action 常 量 Const olE_LOAD_FROM_file = 12 'olE Action 常 量 Const CHUNK_SIZE = 32000 ' 文 件 读 写 块 的 大 小 下 面 的 函 数 将Access 1.x 数 据 库 中olE 字 段 的 内 容 取 出 并 插 入olE2 控 件 中。 Function AccessFIEldToolE (oleObject As Control,fdobject As FIEld) Dim eError As Integer Dim ifileNumber As Integer Dim wOffsetToObject As Integer ifileNumber = Freefile ' 获 取 文 件 号 Open App.Path & "\olE.TMP" For Binary As ifileNumber ' 创 建 临 时 文 件 eError = FIEldTofileStream(ifileNumber,fdobject) ' 将 字 段 的 内 容 写 到 文 件 中 Get ifileNumber,3,wOffsetToObject ' 获 得Object 的 偏 移 地 址 Seek ifileNumber,wOffsetToObject + 1 ' 到 object 的 起 始 位 置 oleObject.fileNumber = ifileNumber ' 将 olE control 指 向 临 时 文 件 oleObject.Action = olE_LOAD_FROM_file ' 从 文 件 中 取 出 olE object Close ifileNumber ' 关 闭 临 时 文 件 Kill App.Path & "\olE.TMP" ' 删 除 临 时 文 件 AccessFIEldToolE = 0 ' 返 回 End Function 下 面 的 函 数 将olE 字 段 中 的 内 容 写 到 临 时 文 件 中。 Function FIEldTofileStream (ifileNumber As Integer,fdobject As FIEld) As Integer Dim sChunkHolder As String Dim lChunkCount As Long Dim lChunkRemainder As Long Dim I As Long lChunkCount = fdobject.FIEldSize() \ CHUNK_SIZE ' 获 得 文 件 的 块 数 lChunkRemainder = fdobject.FIEldSize() Mod CHUNK_SIZE ' 整 块 后 余 下 的 数 据 For I = 0 To lChunkCount - 1 sChunkHolder = fdobject.GetChunk (I * CHUNK_SIZE,CHUNK_SIZE) ' 取 一 块 Put ifileNumber,sChunkHolder ' 将 块 写 入 临 时 文 件 Next If lChunkRemainder > 0 Then sChunkHolder = fdobject.GetChunk (lChunkCount * CHUNK_SIZE,lChunkRemainder) ' 取 余 下 的 数 据 Put ifileNumber,sChunkHolder ' 将 其 写 入 临 时 文 件 End If FIEldTofileStream = 0 ' 返 回 End Function 下 面 的 函 数 将olE2 数 据 库 字 段 的 内 容 取 出 并 插 入olE2 控 件 中。 Function FIEldToolE (oleObject As Control,fdobject As FIEld) Dim eError As Integer Dim ifileNumber As Integer ifileNumber = Freefile ' 获 取 文 件 号 Open App.Path & "\olE.TMP" For Binary As ifileNumber ' 创 建 临 时 文 件 eError = FIEldTofileStream(ifileNumber,fdobject) ' 将 字 段 的 内 容 写 到 临 时 文 件 中 Seek ifileNumber,1 ' 到 object 的 起 始 位 置 oleObject.fileNumber = ifileNumber 'olE 控 件 指 向 临 时 文 件 oleObject.Action = olE_LOAD_FROM_file ' 从 文 件 中 取 出 olE object Close ifileNumber ' 关 闭 临 时 文 件 Kill App.Path & "\olE.TMP" ' 删 除 临 时 文 件 FIEldToolE = 0 ' 返 回 End Function 下 面 的 函 数 将 临 时 文 件 写 入 数 据 库 的olE2 字 段 中。 Function fileStreamToFIEld (ifileNumber As Integer,fdobject As FIEld) As Integer Dim sChunkHolder As String Dim lChunkCount As Long Dim lChunkRemainder As Long Dim I As Long sChunkHolder = Space$(CHUNK_SIZE) ' 临 时 存 贮 块 lChunkCount = (LOF(ifileNumber) - Seek(ifileNumber) + 1) \ CHUNK_SIZE ' 取 块 数 lChunkRemainder = (LOF(ifileNumber) - Seek (ifileNumber) + 1) Mod CHUNK_SIZE ' 取 整 块 后 余 下 的 数 据 For I = 1 To lChunkCount Get ifileNumber,sChunkHolder ' 从 文 件 中 取 出 一 块 fdobject.AppendChunk (sChunkHolder) ' 将 块 写 入 字 段 中 Next If lChunkRemainder > 0 Then sChunkHolder = Space$(lChunkRemainder) ' 临 时 存 贮 块 Get ifileNumber,sChunkHolder ' 取 出 该 块 fdobject.AppendChunk (sChunkHolder) ' 写 入 字 段 中 End If fileStreamToFIEld = 0 ' 返 回 End Function 下 面 的 函 数 将olE2 Object 从olE2 控 件 中 取 出， 并 存 入 数 据 库 字 段 中。 Function oletoFIEld (oleObject As Control,fdobject As FIEld) As Integer Dim eError As Integer Dim ifileNumber As Integer ifileNumber = Freefile ' 获 取 文 件 号 Open App.Path & "\olE.TMP" For Binary As ifileNumber ' 创 建 临 时 文 件 oleObject.fileNumber = ifileNumber 'olE 控 件 指 向 临 时 文 件 oleObject.Action = olE_SAVE_TO_file ' 将 字 段 的 内 容 写 到 临 时 文 件 中 Seek ifileNumber,1 ' 到 object 的 起 始 位 置 fdobject = "" 清 空olE2 字 段 eError = fileStreamToFIEld(ifileNumber,fdobject) ' 将 文 件 写 入olE2 字 段 中 Close ifileNumber ' 关 闭 临 时 文 件 Kill App.Path & "\olE.TMP" ' 删 除 临 时 文 件 oletoFIEld = 0 ' 返 回 End Function 上 述 函 数 的 调 用 方 法 十 分 简 单， 下 面 的 两 个 子 程 序 给 出 了 调 用 例 子。 将olE2 字 段 中 的 内 容 取 出 并 插 入olE 控 件 中 Sub GetoLEObject() Dim eError As Integer ' 将olE 字 段file_Cont 中 的 内 容 取 出 并 插 入olE 控 件olE1 中 eError = FIEldToolE(olE1,tbolEObjects("file_Cont")) End Sub 将olE2 控 件 中 的 内 容 写 入olE2 字 段 Sub PutolEObject() Dim eError As Integer tbolEObjects.Edit ' 修 改olEObjects 的 工 作 方 式 eError = oletoFIEld(olE1,tbolEObjects("file_Cont")) ' 保 存olE 控 件olE1 中 的 内 容 tbolEObjects.Update ' 更 新tbolEObjects DoEvents End Sub 因 为Access1.x 的olE 字 段 格 式 与olE2 字 段 的 格 式 不 同， 所 以， 若 是olE2 字 段， 在 读 取 字 段 内 容 时， 应 使 用FIEldToolE 函 数； 若 是Access1.x 的 olE 字 段， 应 使 用AccessFIEldToolE 函 数。 这 两 种 格 式olE 字 段 的 存 贮 过 程 是 相 同 的。 当 使 用Access2.0 建 立 数 据 库 并 存 贮olE 字 段 时， 它 是olE2 格 式 的， 应 使 用FIEldToolE 函 数。 用VB3 编 程 时， 系 统 中 应 安 装VB/Access2.0 兼 容 层， 否 则 无 法 *** 纵Access2.0 数 据 库。 第 二、 如 何 使Data 控 件 显 示 的 记 录 与olE 字 段 的 内 容 同 步。 这 个 问 题 是 因 为Data 控 件 不 支 持 超 长 的olE 字 段 引 起 的。 对 于 普 通 的 数 据 库 字 段， 把 显 示 该 字 段 内 容 控 件 的DataSource 和datafield 属 性 分 别 置 为Data 控 件 和 数 据 库 的 字 段 名， 就 可 以 由Data 控 件 正 确 地 显 示 数 据 库 记 录 的 字 段 内 容。 而 用 于 显 示olE2 字 段 内 容 的olE 控 件 的 数 据 是 无 法 用Data 控 件 来 存 取 的， 必 须 用 上 面 提 供 的 函 数 来 存 取。 这 时， 关 键 问 题 是 使olE 控 件 显 示 的 内 容 是Data 控 件 所 在 记 录 中olE 字 段 的 内 容， 也 就 是olE 控 件 要 与Data 控 件 同 步。

总结

以上是内存溢出为你收集整理的VB中超长OLE数据库字段的 *** 纵方法全部内容，希望文章能够帮你解决VB中超长OLE数据库字段的 *** 纵方法所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。