oracle使用ADODB对象连接、cha询例子源码

sony09090 · 发表于 2021-9-12 20:11:31

本帖最后由 sony09090 于 2021-9-12 20:51 编辑

1、（必须）ODAC 和 oracle客户Duan 2选1 最好选择32位的。
2、连接oracle (“system”, “123”, “192.168.56.101”, “orcl”) 代码里面的参数改成所需的。
3、附件包含源码、ODAC。因为超过3MB所以放网盘了。下载后可对比下附件的MD5。

附件信息：
大小: 25343233 字节
修改时间: 2021年9月12日, 20:30:46
MD5: E927808872E864DE58365F9415B4F24F
SHA1: 656DB74396A6123191FA7EC4B13EE84E71F8425F
CRC32: 658ED11A

https://url98.ctfile.com/f/11757998-513401627-8c3806
（访问密码：cjqa）
解压密码：cjq123

窗口程序集名	保留	保留	备注
程序集1
变量名	类型	数组	备注
连接对象	对象		Connection
记录集对象	对象		Recordset

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类型	静态	数组	备注
sql	文本型

' （必须）ODAC 和 oracle客户Duan 2选1 最好选择32位的。
' ODAC下载地址：https://www.oracle.com/databases/technologies/net-downloads.html
初始化环境 ()
连接执行sql (“select * from help where TOPIC='HELP'”)
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
连接执行sql
参数名	类型	参考	可空	数组	备注
sql	文本型

对象初始化 (0)
' sql ＝ “select * from user_tables”
' sql ＝ “select * from help”
' sql ＝ “select * from help where TOPIC='HELP'”

如果真 (连接oracle (“system”, “123”, “192.168.56.101”, “orcl”))

调试输出 (取oracle记录集 (sql))

连接对象.方法 (“Close”, )
记录集对象.方法 (“Close”, )
对象卸载 ()

子程序名	返回值类型	公开	备注
初始化环境

变量名	类型	静态	数组	备注
ORACLE_HOME	文本型

如果真 (读环境变量 (“ORACLE_HOME”) ＝ “”)

ORACLE_HOME ＝取当前目录 () ＋ “\ODAC”

写环境变量 (“ORACLE_HOME”, ORACLE_HOME)

写环境变量 (“path”, 读环境变量 (“ORACLE_HOME”) ＋ “;” ＋读环境变量 (“ORACLE_HOME”) ＋ “\bin” ＋ “;” ＋读环境变量 (“path”))

子程序名	返回值类型	公开	备注
连接oracle	逻辑型
参数名	类型	参考	可空	数组	备注
账号	文本型
密码	文本型
地址	文本型
实例名	文本型

变量名	类型	静态	数组	备注
连接文本	文本型

' BY:CJQ
' 16620028601

如果真 (连接对象.创建 (“ADODB.Connection”, ) ＝假)

调试输出 (“连接：ADODB.Connection 创建失败”)

返回 (假)
连接文本＝ “Provider=OraOLEDB.Oracle;User ID=” ＋账号＋ “;Password=” ＋密码＋ “;Data Source=” ＋地址＋ “/” ＋实例名＋ “;”
连接对象.方法 (“Open”, 连接文本)

如果真 (连接对象.取错误 () ≠ “”)

调试输出 (“连接失败”)

返回 (假)
返回 (真)

子程序名	返回值类型	公开	备注
取oracle记录集	文本型
参数名	类型	参考	可空	数组	备注
sql	文本型

变量名	类型	静态	数组	备注
次数
记数
连接变体	变体型
字段	文本型		0
记录	文本型

如果真 (记录集对象.创建 (“ADODB.Recordset”, ) ＝假)

调试输出 (“记录集：ADODB.Recordset 创建失败”)

返回 (“”)

连接变体.赋值 (连接对象, )
记录集对象.方法 (“open”, sql, 连接变体)

如果真 (记录集对象.取错误 () ≠ “”)

调试输出 (“取记录集失败”)

返回 (“”)

次数＝记录集对象.读对象型属性 (“Fields”, ).读数值属性 (“Count”, )
重定义数组 (字段, 假, 次数)

计次循环首 (次数, 记数)

字段 [记数] ＝记录集对象.读对象型属性 (“Fields”, ).读对象型属性 (“Item”, 记数－ 1).读文本属性 (“Name”, )

记录＝记录＋字段 [记数] ＋字符 (9)

计次循环尾 ()
记录＝记录＋ #换行符

判断循环首 (记录集对象.读逻辑属性 (“EOF”, ) ＝假)

计次循环首 (次数, 记数)

记录＝记录＋记录集对象.读对象型属性 (“Fields”, ).读对象型属性 (“Item”, 字段 [记数]).读属性 (“Value”, ).取文本 () ＋字符 (9)

计次循环尾 ()

记录＝记录＋ #换行符

记录集对象.方法 (“MoveNext”, ) ' 移到下一个记录

判断循环尾 ()
返回 (记录)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 程序集1<br />
.程序集变量 连接对象, 对象, , , Connection<br />
.程序集变量 记录集对象, 对象, , , Recordset<br />
<br />
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />
.局部变量 sql, 文本型<br />
<br />
' （必须）ODAC 和 oracle客户Duan 2选1 最好选择32位的。<br />
' ODAC下载地址：https://www.oracle.com/databases/technologies/net-downloads.html<br />
初始化环境 ()<br />
连接执行sql (“select * from help where TOPIC='HELP'”)<br />
<br />
返回 (0)  ' 可以根据您的需要返回任意数值<br />
<br />
.子程序 连接执行sql<br />
.参数 sql, 文本型<br />
<br />
对象初始化 (0)<br />
<br />
' sql ＝ “select * from user_tables”<br />
' sql ＝ “select * from help”<br />
' sql ＝ “select * from help where TOPIC='HELP'”<br />
<br />
.如果真 (连接oracle (“system”, “123”, “192.168.56.101”, “orcl”))<br />
    调试输出 (取oracle记录集 (sql))<br />
.如果真结束<br />
<br />
连接对象.方法 (“Close”, )<br />
记录集对象.方法 (“Close”, )<br />
<br />
对象卸载 ()<br />
<br />
.子程序 初始化环境<br />
.局部变量 ORACLE_HOME, 文本型<br />
<br />
.如果真 (读环境变量 (“ORACLE_HOME”) ＝ “”)<br />
    ORACLE_HOME ＝ 取当前目录 () ＋ “\ODAC”<br />
    写环境变量 (“ORACLE_HOME”, ORACLE_HOME)<br />
    写环境变量 (“path”, 读环境变量 (“ORACLE_HOME”) ＋ “;” ＋ 读环境变量 (“ORACLE_HOME”) ＋ “\bin” ＋ “;” ＋ 读环境变量 (“path”))<br />
.如果真结束<br />
<br />
<br />
.子程序 连接oracle, 逻辑型<br />
.参数 账号, 文本型<br />
.参数 密码, 文本型<br />
.参数 地址, 文本型<br />
.参数 实例名, 文本型<br />
.局部变量 连接文本, 文本型<br />
<br />
' BY:CJQ<br />
' 16620028601<br />
.如果真 (连接对象.创建 (“ADODB.Connection”, ) ＝ 假)<br />
    调试输出 (“连接：ADODB.Connection 创建失败”)<br />
    返回 (假)<br />
.如果真结束<br />
连接文本 ＝ “Provider=OraOLEDB.Oracle;User ID=” ＋ 账号 ＋ “;Password=” ＋ 密码 ＋ “;Data Source=” ＋ 地址 ＋ “/” ＋ 实例名 ＋ “;”<br />
连接对象.方法 (“Open”, 连接文本)<br />
.如果真 (连接对象.取错误 () ≠ “”)<br />
    调试输出 (“连接失败”)<br />
    返回 (假)<br />
.如果真结束<br />
返回 (真)<br />
<br />
.子程序 取oracle记录集, 文本型<br />
.参数 sql, 文本型<br />
.局部变量 次数<br />
.局部变量 记数<br />
.局部变量 连接变体, 变体型<br />
.局部变量 字段, 文本型, , "0"<br />
.局部变量 记录, 文本型<br />
<br />
.如果真 (记录集对象.创建 (“ADODB.Recordset”, ) ＝ 假)<br />
    调试输出 (“记录集：ADODB.Recordset 创建失败”)<br />
    返回 (“”)<br />
.如果真结束<br />
<br />
连接变体.赋值 (连接对象, )<br />
记录集对象.方法 (“open”, sql, 连接变体)<br />
.如果真 (记录集对象.取错误 () ≠ “”)<br />
    调试输出 (“取记录集失败”)<br />
    返回 (“”)<br />
.如果真结束<br />
<br />
次数 ＝ 记录集对象.读对象型属性 (“Fields”, ).读数值属性 (“Count”, )<br />
重定义数组 (字段, 假, 次数)<br />
.计次循环首 (次数, 记数)<br />
    字段 [记数] ＝ 记录集对象.读对象型属性 (“Fields”, ).读对象型属性 (“Item”, 记数 － 1).读文本属性 (“Name”, )<br />
    记录 ＝ 记录 ＋ 字段 [记数] ＋ 字符 (9)<br />
.计次循环尾 ()<br />
记录 ＝ 记录 ＋ #换行符<br />
<br />
.判断循环首 (记录集对象.读逻辑属性 (“EOF”, ) ＝ 假)<br />
    .计次循环首 (次数, 记数)<br />
        记录 ＝ 记录 ＋ 记录集对象.读对象型属性 (“Fields”, ).读对象型属性 (“Item”, 字段 [记数]).读属性 (“Value”, ).取文本 () ＋ 字符 (9)<br />
    .计次循环尾 ()<br />
    记录 ＝ 记录 ＋ #换行符<br />
    记录集对象.方法 (“MoveNext”, )  ' 移到下一个记录<br />
.判断循环尾 ()<br />
<br />
返回 (记录)

补充内容 (2023-11-15 23:06):
新下载地址：https://www.eyuyan.la/post/18817.html
不知道如何再次编辑帖子，用补充的形式添加新的下载地址。