很多朋友在写易语言软件的时候需要用到链接DB2等内容,大家参阅下。
‘database=rbsj;这是连数据库名,Hostname=PC-200806261910;”这是自己的计算机的名字,
如果真 (数据库连接.连接 (“Provider=IBMDADB2;database=rbsj;Hostname=PC-200806261910;”))
sql = “SELECT * FROM ADMIN.RBSJ ”
.版本 2 .支持库 eDB .支持库 eGrid .如果真 (记录集.打开 (sql, #SQL语句) = 真) ' 如果真 (记录集.打开并排序 (“日报数据”, " 编号 排序升")) 信息框 (“已连接表”, #错误图标, “连接数据库错误”) 高级表格1.清空数据 () 高级表格1.表头行数 = 1 高级表格1.表头列数 = 0 高级表格1.行数 = 记录集.记录数量 + 1 高级表格1.列数 = 记录集.字段数量 ' 高级表格1.置数据 (0, 0, #表格常量.文本型, 到文本 (“标签”)) .计次循环首 (记录集.字段数量, 变量1) 高级表格1.置数据 (0, 变量1 - 1, #表格常量.文本型, 记录集.取字段名 (变量1 - 1)) .计次循环尾 () 到首记录 () .计次循环首 (记录集.记录数量, 变量2) .计次循环首 (记录集.字段数量, 变量1) 记录集.读文本 (变量1 - 1, 单元) 高级表格1.置数据 (变量2, 变量1 - 1, #表格常量.文本型, 单元) ' 高级表格1.置数据 (变量2, 1 - 1, #表格常量.文本型, 到文本 (记录集.取字段名 (0))) .计次循环尾 () 记录集.到下一条 () .计次循环尾 ()
感谢大家对亿速云的支持。
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。