详解易语言链接DB2 OLEDB实例方法
很多朋友在写易语言软件的时候需要用到链接DB2等内容，大家参阅下。
‘database=rbsj；这是连数据库名，Hostname=PC-200806261910;”这是自己的计算机的名字，
如果真(数据库连接.连接(“Provider=IBMDADB2;database=rbsj;Hostname=PC-200806261910;”))
sql＝“SELECT*FROMADMIN.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))) .计次循环尾() 记录集.到下一条() .计次循环尾()
感谢大家对毛票票的支持。