精易论坛

标题: 新手分享一个连接ORACLE数据库cha询EMP表数据的源码 [打印本页]

作者: 一把小钢刀    时间: 2017-11-14 15:49
标题: 新手分享一个连接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扩展界面支持库一
oracle连接.zip (1.66 MB, 下载次数: 197)

作者: 花开一半    时间: 2017-11-14 15:57
谢谢分享啊
作者: 15887059803    时间: 2017-11-14 16:52
感谢分享支持开源
作者: kyo9766    时间: 2017-11-16 09:00
感谢分享
作者: hjjadg    时间: 2017-11-16 17:40
谢谢.收藏了
作者: WSW120    时间: 2017-11-16 22:15
谢谢分享啊
作者: qiufuzi    时间: 2017-12-14 12:30
谢谢分享 一直在找实例
作者: qiufuzi    时间: 2017-12-14 12:34

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

作者: qiufuzi    时间: 2017-12-14 12:58
11G版本的貌似无法连接
作者: 一把小钢刀    时间: 2017-12-15 13:31
qiufuzi 发表于 2017-12-14 12:58
11G版本的貌似无法连接

怎么会,我的就是11G,不过精简版的貌似不可以,本机必须安装oracle客户Duan,或者安装了oracle的驱动才可以
作者: 一把小钢刀    时间: 2017-12-15 13:32
qiufuzi 发表于 2017-12-14 12:34
大神,用到哪些模块能发下么,

没有用模块啊,就用的是数据库连接、记录集,这两个数据库操作的组件,操作cha询的时候用记录集,增删改,也可以用记录集也可以用数据库连接
作者: 一把小钢刀    时间: 2017-12-15 13:35
我这代码现在开起来不是很好,如果通过SQL语句,把字段转成文本型的就不需要这么繁琐了,转换字段可以这么写,select cast(字段名 as varchar(字段长度)) from 表名
作者: 1061250149    时间: 2018-1-7 09:25
谢谢楼主,正在学习数据库
作者: qq306992604    时间: 2024-6-1 19:57
报错  能不能连接网络的




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4