新手分享一个连接ORACLE数据库cha询EMP表数据的源码

一把小钢刀

用到的组件：数据库连接、记录集
希望能给想我一样迷茫的小白一点帮助

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
连接oracle数据库	逻辑型		oracle数据库连接方法
参数名	类 型	参考	可空	数组	备 注
服务器地址	文本型				数据库的连接地址
数据库名称	文本型				预操作的数据库名称
用户名	文本型				数据库的登录名
密码	文本型				数据库的登陆密码
数据库组件名称	数据库连接				“数据库连接”组件

变量名	类 型	静态	数组	备 注
连接代码	文本型
连接结果	逻辑型

连接代码 ＝ “Driver={Microsoft ODBC for Oracle};Server=” ＋ 服务器地址 ＋ “/” ＋ 数据库名称 ＋ “;Uid=” ＋ 用户名 ＋ “;Pwd=” ＋ 密码 ＋ “;”
连接结果 ＝ 数据库组件名称.连接 (连接代码)
返回 (连接结果)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
连接状态	逻辑型
记录_到数据库	逻辑型
记录_EMP表_打开	逻辑型
外循环次数	整数型
临时变量	文本型
内循环次数	整数型
表项索引	整数型
表项列数	整数型

连接状态 ＝ 连接oracle数据库 (“127.0.0.1”, “orcl”, “scott”, “tiger”, 数据库连接1)
记录_到数据库 ＝ 记录集1.置连接 (数据库连接1)
记录_EMP表_打开 ＝ 记录集1.打开 (“emp”, #数据表名, )
表项列数 ＝ 超级列表框1.取列数 ()
超级列表框1.全部删除 ()
记录集1.到首记录 ()
计次循环首 (记录集1.记录数量, 外循环次数)
表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (表项列数, 内循环次数)
记录集1.读文本 (内循环次数 － 1, 临时变量)
如果真 (内循环次数 ＝ 1 或 内循环次数 ＝ 4 或 内循环次数 ＝ 6 或 内循环次数 ＝ 7 或 内循环次数 ＝ 8)
判断 (临时变量 ＝ “”)
超级列表框1.置标题 (外循环次数 － 1, 内循环次数 － 1, 临时变量)
超级列表框1.置标题 (外循环次数 － 1, 内循环次数 － 1, 到文本 (到整数 (临时变量)))
到循环尾 ()
超级列表框1.置标题 (外循环次数 － 1, 内循环次数 － 1, 临时变量)
计次循环尾 ()
记录集1.到下一条 ()
计次循环尾 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 连接oracle数据库, 逻辑型, , oracle数据库连接方法<br /> .参数 服务器地址, 文本型, , 数据库的连接地址<br /> .参数 数据库名称, 文本型, , 预操作的数据库名称<br /> .参数 用户名, 文本型, , 数据库的登录名<br /> .参数 密码, 文本型, , 数据库的登陆密码<br /> .参数 数据库组件名称, 数据库连接, , “数据库连接”组件<br /> .局部变量 连接代码, 文本型<br /> .局部变量 连接结果, 逻辑型<br /> <br /> 连接代码 ＝ “Driver={Microsoft ODBC for Oracle};Server=” ＋ 服务器地址 ＋ “/” ＋ 数据库名称 ＋ “;Uid=” ＋ 用户名 ＋ “;Pwd=” ＋ 密码 ＋ “;”<br /> 连接结果 ＝ 数据库组件名称.连接 (连接代码)<br /> 返回 (连接结果)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 连接状态, 逻辑型<br /> .局部变量 记录_到数据库, 逻辑型<br /> .局部变量 记录_EMP表_打开, 逻辑型<br /> .局部变量 外循环次数, 整数型<br /> .局部变量 临时变量, 文本型<br /> .局部变量 内循环次数, 整数型<br /> .局部变量 表项索引, 整数型<br /> .局部变量 表项列数, 整数型<br /> <br /> 连接状态 ＝ 连接oracle数据库 (“127.0.0.1”, “orcl”, “scott”, “tiger”, 数据库连接1)<br /> 记录_到数据库 ＝ 记录集1.置连接 (数据库连接1)<br /> 记录_EMP表_打开 ＝ 记录集1.打开 (“emp”, #数据表名, )<br /> 表项列数 ＝ 超级列表框1.取列数 ()<br /> 超级列表框1.全部删除 ()<br /> 记录集1.到首记录 ()<br /> .计次循环首 (记录集1.记录数量, 外循环次数)<br />     表项索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     .计次循环首 (表项列数, 内循环次数)<br />         记录集1.读文本 (内循环次数 － 1, 临时变量)<br />         .如果真 (内循环次数 ＝ 1 或 内循环次数 ＝ 4 或 内循环次数 ＝ 6 或 内循环次数 ＝ 7 或 内循环次数 ＝ 8)<br />             .判断开始 (临时变量 ＝ “”)<br />                 超级列表框1.置标题 (外循环次数 － 1, 内循环次数 － 1, 临时变量)<br />             .默认<br />                 超级列表框1.置标题 (外循环次数 － 1, 内循环次数 － 1, 到文本 (到整数 (临时变量)))<br />             .判断结束<br />             到循环尾 ()<br />         .如果真结束<br />         超级列表框1.置标题 (外循环次数 － 1, 内循环次数 － 1, 临时变量)<br />     .计次循环尾 ()<br />     记录集1.到下一条 ()<br /> .计次循环尾 ()

oracle连接.zip (1.66 MB, 下载次数: 189)

2017-11-14 15:47 上传

点击文件名下载附件

qq306992604

报错  能不能连接网络的

1061250149

谢谢楼主，正在学习数据库

一把小钢刀

我这代码现在开起来不是很好，如果通过SQL语句，把字段转成文本型的就不需要这么繁琐了，转换字段可以这么写，select cast(字段名 as varchar(字段长度)) from 表名

一把小钢刀

qiufuzi 发表于 2017-12-14 12:34
大神,用到哪些模块能发下么,

没有用模块啊，就用的是数据库连接、记录集，这两个数据库操作的组件，操作cha询的时候用记录集，增删改，也可以用记录集也可以用数据库连接

一把小钢刀

qiufuzi 发表于 2017-12-14 12:58
11G版本的貌似无法连接

怎么会，我的就是11G，不过精简版的貌似不可以，本机必须安装oracle客户Duan，或者安装了oracle的驱动才可以

qiufuzi

11G版本的貌似无法连接

qiufuzi

大神,用到哪些模块能发下么,

qiufuzi

谢谢分享 一直在找实例

WSW120

谢谢分享啊

hjjadg

谢谢.收藏了