[转贴]从Oracle Developer/2000 调 用VB

horse

Oracle 数 据 库 管 理 系 统 是 优 秀 的 数 据 库 管 理 系 统， 其 开 发 工 具Developer/2000 也 是 一 个 功 能 强 大， 方 便 灵 活 的 工 具 软 件， 许 多Oracle 数 据 库 开 发 人 员 都 选 择Developer/2000 作 为 系 统 开 发 的 工 具。 但 当 今 的 数 据 库 用 户 再 也 不 会 仅 仅 局 限 于 枯 燥 无 味 的 数 据， 他 们 希 望 以 图 文 并 茂 的 方 式 显 示 查 询 结 果。 因 此 在 设 计 项 目 时， 一 般 是 选 择Developer/2000 来 开 发 有 关 数 据 库 的 维 护 功 能， 而 选 择 其 它 如VB、VC 等 优 秀 的 程 序 语 言 来 开 发 有 关 图 形 等 方 面 的 工 作。 这 就 带 来 一 个 问 题： 如 何 实 现Oracle 与 它 们 的 连 接。 本 文 就Oracle 与VB5.0 的 连 接 来 谈 一 点 自 己 的 体 会。

---- 一 ． VB5.0 与Oracle 数 据 库 的 连 接

---- VB5.0 可 以 与 多 种 外 部 数 据 库 的 连 接。VB5.0 可 以 从Microsoft Access、dBASE、Microsoft Excel、FoxPro、Lotus、Paradox 等 数 据 库 中 读 取 数 据； 通 过ODBC，VB5.0 可 以 与SQL SERVER 和ORACLE 相 连。 通 过ODBC 连 接 数 据 库 时， 首 先 要 正 确 配 置ODBC 的DSN（Data Name Source， 即 数 据 源）， 然 后 在VB5.0 中 可 以 通 过Data 控 件 或RDO 对 象 连 接 数 据 库。

---- 1. 配 置ODBC

---- 在WINDOWS 95 的 控 制 面 板 中 用 属 标 双 击32bit ODBC 就 启 动 了ODBC 数 据 源 管 理 器（ODBC Data Source Administrator）， 在"UserDSN" 方 式 下 按"Add" 按 钮， 出 现"Create New Data Source" 对 话 框， 从 中 选 择"Microsoft ODBC Driver for Oracle"( 安 装VB 时 自 动 安 装 该 驱 动； 或 安 装VB 时 选 择"Custom" 方 式， 在Data Access 选 项 中 选 择"Oracle ODBC Driver" 并 按 下"Finish" 按 钮， 出 现"Microsoft ODBC Driver for Oracle Setup" 对 话 框， 在"Data Source Name" 中 给 定 一 名 称（ 如my_dsn）， 在"User Name" 中 写 上 你 在ORACLE 数 据 库 中 的 用 户 名（ 如scott）， 在"Connect String" 中 写 上 想 要 连 接 的Oracle 数 据 库 别 名（ 该 别 名 登 记 在tnsnames.ora 文 件 中， 可 以 通 过 手 工 编 辑 该 文 件 或 通 过Developer/2000 中 的 工 具"SQL Net Easy Configuration" 来 配 置）。

---- 2. 设 置Data 控 件

---- Data 控 件 非 常 简 单 易 用， 可 以 用 来 执 行 大 部 分 数 据 访 问 操 作， 而 根 本 不 用 编 写 代 码。 一 个Data 控 件 可 以 对 应 一 个 基 表 或 视 图（ 可 以 是 数 据 库 中 所 固 有 的 视 图 对 象， 也 可 以 是 在RecordSource 属 性 中 的SQL SELECT 语 句 所 选 出 的 数 据 集 合）。

---- 启 动VB， 在Form 上 添 加Data 控 件（ 如Data1）， 并 设 置 其Connect 属 性。Connect 属 性 中 记 载 着 连 接 字 符 串， 它 可 以 由 多 个 参 数 组 成：

DSN：用名称注册 ODBC数据源
UID：数据库的一个可识别的用户名。
PWD：与用户名相关的密码

---- 例 如 将Connect 属 性 置 为"ODBC;DSN=my_dsn;UID=scottWD=tiger"， 然 后 从RecordSource 属 性 的 列 表 框 中 选 择 某 一 基 表 或 视 图。

---- Data 控 件 可 以 与DBList、DBCombo、DBGrid 和 MSFlexGrid 字 段 结 合 使 用， 只 要 将 它 们 的DataSource 属 性 设 置 为 某 一 控 件（ 如Data1）， 详 见VB 的 有 关 手 册。

---- 关 于VB 与 远 程 数 据 库 的 连 接， 请 参 阅《 计 算 机 世 界》1998 年4 月20 日 的"VB5.0 中 远 程 数 据 库 的 访 问" 及1998 年5 月25 日 的" 用VB 和RDO 访 问SQL Server"， 此 处 不 在 赘 说。

---- 二 ． 从Developer/2000 向VB 应 用 程 序 传 递 参 数

---- Developer/2000 调 用VB 应 用 程 序 可 以 有 两 种 方 式， 一 是 通 过HOST 过 程 调 用 外 部 命 令（VB 应 用 程 序）， 如：HOST（"notepad.exe"）; 二 是 通 过DDE 包 来 调 用VB 应 用 程 序， 如：

DECLARE
AppID  PLS_INTEGER;
BEGIN
AppID := DDE.APP_BEGIN('notepad.exe')；
END;

---- 下 面 主 要 介 绍 一 下Developer/2000 中 向VB 应 用 程 序 的 参 数 传 递：

---- 1. 命 令 行 参 数

---- 我 们 知 道，C 语 言 中 是 通 过int main( int argc[ , char *argv[ ] [, char *envp[ ] ] ] ) 来 接 收 命 令 行 参 数 的， 但 在VB 中 没 有 对 应 的 语 法。 好 在VB 提 供 了COMMAND（） 函 数 来 返 回 命 令 行 参 数， 以 下 函 数 可 以 分 解 命 令 行 参 数 并 返 回 参 数 数 组：

Function GetCommandLine(Optional MaxArgs)
Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
'检查是否提供了 MaxArgs参数。
If IsMissing(MaxArgs) Then MaxArgs = 10
ReDim ArgArray(MaxArgs) As String
NumArgs = 0: InArg = False
CmdLine = Command()
CmdLnLen = Len(CmdLine)
'以一次一个字符的方式取出命令行参数。
For I = 1 To CmdLnLen
C = Mid(CmdLine, I, 1)
If (C < >; " " And C < >; vbTab) Then
If Not InArg Then
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs + 1
InArg = True
End If
'将字符加到当前参数中。
ArgArray(NumArgs) = ArgArray(NumArgs) + C
Else
InArg = False
End If
Next I
ReDim Preserve ArgArray(NumArgs)
GetCommandLine = ArgArray()
End Function
调用方式如下：
Dim cmdarray As Variant
Rem cmdarray = GetCommandLine()

---- 这 样， 从Developer/2000 中 调 用 用VB 编 写 的 应 用 程 序 时 就 可 以 向 它 传 递 参 数， 如：

AppID := DDE.APP_BEGIN('notepad.exe myfile')；

注 意： 别 忘 了 在 退 出Developer/2000 之 前 先 终 止 所 调 用 的 程 序， 如DDE.APP_END（AppID）
---- 2. 用 基 表 或 视 图 来 传 递 参 数

---- 当 要 传 递 大 量 的 数 据 时， 上 述 方 法 就 行 不 通 了。 例 如， 将 在Developer/2000 中 从 数 据 库 某 个 基 表 中 查 询 出 的 记 录 集 合 传 给VB 以 进 行 图 形 显 示。 解 决 这 一 问 题 的 通 常 方 法 是 将 数 据 全 部 写 入 文 件（Oracle Developer/2000 提 供 了 内 建 软 件 包TEXT_IO 来 进 行 文 件 操 作）， 然 后 以 文 件 名 为 参 数 调 用VB 应 用 程 序， 但 采 用 这 种 方 法 时VB 应 用 程 序 对 数 据 进 行 检 索 和 排 序 比 较 困 难， 而 且 文 件 操 作 本 身 也 比 较 烦 琐， 数 据 量 大 时， 速 度 问 题 比 较 突 出。

---- 一 种 好 的 解 决 方 法 是 用 数 据 库 作 为 传 递 参 数 的 中 介， 利 用 基 表 或 视 图 来 保 存 检 索 出 的 数 据， 然 后 只 要 向VB 应 用 程 序 传 递 基 表 或 视 图 名 即 可， 而VB 的 强 大 的 数 据 库 功 能 能 够 使 你 得 心 应 手 地 操 纵 数 据。 但 是Oracle 的PL ／SQL 只 支 持DML（Data Manipulation Language， 即 数 据 操 作 语 言） 而 不 支 持DDL（Data Definition Language， 即 数 据 描 述 语 言）， 因 此 在PL ／SQL 中 不 能 动 态 产 生 基 表 或 视 图， 好 在Oracle 数 据 库 中 提 供 了DBMS_SQL 包， 该 包 可 以 让 你 执 行 任 何DDL 或DML， 包 括 创 建 或 删 除 基 表 及 视 图。

---- 下 例 是 在Developer/2000 FORMS 中 根 据 当 前 块 的 默 认 选 择 条 件 创 建 一 视 图：

DECLARE
cursor_name INTEGER;
rows_processed  INTEGER;
table_name VARCHAR2(20):= get_block_property
( :system.cursor_block, base_table);
wh_string VARCHAR2(500) := Rtrim(get_block_property
(:system.cursor_block,default_where));
sql_string VARCHAR2(400);
BEGIN
:globe.view_name := 'v_'|| table_name;
sql_string := 'create view '|| :globe.view_name ||'
as select * from '|| table_name;
If wh_string Is Not Null Then
sql_string := sql_string || '  where '|| wh_string;
End If;
cursor_name := dbms_sql.open_cursor;
dbms_sql.parse(cursor_name, sql_string, dbms_sql.v7);
rows_processed := dbms_sql.execute(cursor_name);
dbms_sql.close_cursor(cursor_name);
END;

---- 上 例 中，open_cursor 获 得 一 个 新 的 光 标（cursor） 号， parse 对 所 要 执 行 的 语 句 进 行 语 法 分 析， execute 执 行 给 定 的 光 标，close_cursor 关 闭 光 标、 释 放 内 存。 DBMS_SQL 包 还 有 其 它 许 多 功 能（ 如 将 值 绑 定 给SQL 语 句 中 的 变 量、 读 取 查 询 结 果 等）， 有 兴 趣 的 读 者 可 以 查 阅ORACLE 手 册Oracle Server Application Developer's Guide。

---- 三 ． Developer/2000 与VB 应 用 程 序 的 统 一

---- 用Developer/2000 开 发 的 应 用 程 序 在 执 行 时 会 出 现 一 个MDI 窗 口， 应 用 程 序 中 的 所 有 窗 口 都 在 此MDI 窗 口 之 内， 而 用VB 开 发 的 应 用 程 序 拥 有 自 己 独 立 的 窗 口， 这 样 开 发 出 的 应 用 软 件 会 给 用 户 以 两 个 平 台、 两 套 系 统 之 嫌。 如 果 能 够 解 决 这 个 问 题， 就 会 使 应 用 软 件 系 统 增 色 不 少。 我 们 很 自 然 地 想 到 将VB 的Form( 窗 口) 的 父 窗 口 设 成Develop 2000 的MDI 窗 口。

---- 1. 获 得Developer/2000 的MDI 窗 口 句 柄

---- Developer/2000 FORMS 用FORMS_MDI_WINDOW 标 记FORMS 的MDI 窗 口， 用get_window_property 获 得 其 窗 口 句 柄 后 就 可 以 将 它 作 为 参 数 传 给VB 应 用 程 序。

DECLARE
w_hdl BINARY_INTEGER;
BEGIN
w_hdl := TO_NUMBER(get_window_property
(FORMS_MDI_WINDOW, WINDOW_HANDLE));
AppID := DDE.APP_BEGIN('My_app.exe '|| :globe.view_name ||
' ' || TO_CHAR(w_hdl))；
END;

---- 2. 将VB 的 窗 口（Form） 放 入Developer/2000 的MDI 窗 口

---- Visual Basic 调 用WINDOWS API 非 常 简 单， 只 要 在 调 用 之 前 对 所 调 函 数 进 行 说 明 即 可。 格 式 说 明 可 以 使 用Visual Basic 的 工 具API Text Viewer。 运 行API Text Viewer， 装 载Win32api.MDB， 从 中 选 出 所 需 的API 函 数， 增 加 到"Selected Items" 框 内， 再 拷 贝 到 剪 贴 板， 然 后 粘 贴 到VB 的 说 明 部 分 即 可。 示 例 如 下：

Private Declare Function SetParent Lib "user32"
(ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
Dim cmdarray As Variant
cmdarray = GetCommandLine()
rc = SetParent(Me.hWnd, cmdarray(2))

Data1.Connect = "ODBC;DSN=my_dsn;UID=scottWD=tiger"
Data1.RecordSource = " scott." + cmdarray(1)
End Sub

---- 将 该VB 应 用 程 序 编 译 成 可 执 行 程 序（EXE）， 以 便Developer/2000 调 用。 至 此，VB 的 窗 口 已 经 纳 入Developer/2000 的MDI 窗 口 内. 你 可 以 将VB Form 的ShowInTaskbar 属 性 设 置 成False 使VB 应 用 程 序 不 出 现 在 任 务 栏 内， 同 时 给 该Form 的Icon 属 性 赋 一 个 与Developer/2000 窗 口 图 标 的 相 似 的 图 标， 这 样 谁 还 能 分 得 出 你 的 软 件 哪 一 部 分 是 用Developer/2000 开 发 的， 哪 一 部 分 是 用Visual Basic 开 发 的 呢 ？