用到的组件:数据库连接、记录集
希望能给想我一样迷茫的小白一点帮助
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | |
|
连接oracle数据库 | 逻辑型 | | |
服务器地址 | 文本型 | | | | 数据库名称 | 文本型 | | | | 用户名 | 文本型 | | | | 密码 | 文本型 | | | | 数据库组件名称 | 数据库连接 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 连接代码 | 文本型 | | | 连接结果 | 逻辑型 | | |
连接代码 = “Driver={Microsoft ODBC for Oracle};Server=” + 服务器地址 + “/” + 数据库名称 + “;Uid=” + 用户名 + “;Pwd=” + 密码 + “;”连接结果 = 数据库组件名称. 连接 (连接代码 )返回 (连接结果 )变量名 | 类 型 | 静态 | 数组 | 备 注 | 连接状态 | 逻辑型 | | | 记录_到数据库 | 逻辑型 | | | 记录_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. 到下一条 ()计次循环尾 ()
oracle连接.zip
(1.66 MB, 下载次数: 189)
|