没有合适的资源?快使用搜索试试~ 我知道了~
精彩编程与编程技巧-VB中超长OLE数据库字段的操纵方法...
需积分: 9 8 下载量 26 浏览量
2009-10-09
20:30:49
上传
评论
收藏 14KB TXT 举报
温馨提示
试读
12页
精彩编程与编程技巧-VB中超长OLE数据库字段的操纵方法 ...
资源推荐
资源详情
资源评论
VB中超长OLE数据库字段的操纵方法
作者:程毅
现 在, 多 数 数 据 库 都 支 持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)
作者:程毅
现 在, 多 数 数 据 库 都 支 持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
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
剩余11页未读,继续阅读
资源评论
求伯乐
- 粉丝: 22
- 资源: 3095
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功