如何使用VBA确定Oracle客户端版本号？

Question

有人知道如何使用VBA获取当前使用的Oracle客户端版本号吗？(以及信息“32位”或“64位”客户端。)

如果是的话，请您张贴示例代码好吗？

提前谢谢。

1)与Oracle的连接正常

2) ADO与MS驱动程序的连接

3)连接对象属性在驱动程序、连接和数据库中显示了大量的信息。但是没有关于甲骨文客户端的信息：

• 不可同步中止:假
• 可同步提交:假
• 传递参考访问器:真
• 目录位置:2
• 目录术语: Datenbankverknüpfung
• 目录使用情况:1
• 列定义:1
• 空级联行为:2
• 连接状态:s1
• 数据源名称: BASE
• 只读数据源: FALSE
• DBMS名称: Oracle
• 数据库管理系统版本: 09.02.0000 Oracle9i企业版发行版9.2.0.8.0-64位生产
• 数据源对象线程模型:1
• 支助组:4
• 异构表支持:1
• 识别符大小写敏感性:1
• 最大索引大小:0
• 最大开放章节:0
• 最大行距:0
• 最大行大小包括BLOB: TRUE
• 选择中的最大表:0
• 多参数集:真
• 多重结果:0
• 多存储对象: FALSE
• 多表更新:假
• 空排序规则顺序:2
• OLE对象支持:1
• 选择列表中按列排序: FALSE
• 输出参数可用性:2
• 持久ID类型:4
• 准备中止行为:2
• 准备提交行为:2
• 程序术语: PL/SQL - Gespeicherte
• 提供程序友好名称: Microsoft OLE DB Provider für Oracle
• 提供者名称: MSDAORA.DLL
• OLE版本:2
• 提供程序版本: 02.81.1132.0
• 引用标识符敏感性:4
• 命令上的Rowset反转:真
• 模式术语: Besitzer
• 模式使用: 15
• SQL支持: 267
• 结构化存储:1
• 子查询支持: 31
• 交易DDL: 2
• 隔离级别: 1052672
• 隔离保留:0
• 表项: Tabelle
• 用户名:报表
• 表统计支助:3
• 开放罗塞特支持:8
• 密码: b_rep
• 用户ID:报告
• 资料来源:基
• 窗柄：
• 地区标识符: 1031
• OLE服务：-7
• 提示:4
• 扩展属性：
• 自动提交隔离级别: 4096

Answer 1

我不知道在VBA中是否可以这样做，但在VB.NET中，您可以这样做：

Dim con As System.Data.OleDb.OleDbConnection
Dim architecture As String

architecture = System.Reflection.AssemblyName.GetAssemblyName(con.GetType.Assembly.Location).ProcessorArchitecture.ToString

Console.WriteLine("Architecture: " & architecture)
Console.WriteLine("Assembly: " & con.GetType.Assembly.FullName)