很多朋友在寫易語言軟件的時候需要用到鏈接DB2等內容，大家參閱下。
‘database=rbsj；這是連數據庫名，Hostname=PC-200806261910;”這是自己的計算機的名字，
如果真 (數據庫連接.連接 (“Provider=IBMDADB2;database=rbsj;Hostname=PC-200806261910;”))
sql ＝ “SELECT * FROM ADMIN.RBSJ ”
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
.版本 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))).計次循環尾 ()記錄集.到下一條 ().計次循環尾 () |
感謝大家對服務器之家的支持。
