易語言access資料庫

『壹』 易語言的外部資料庫怎麼讀寫access資料庫

外部資料庫組件是一個單獨組件,不與其他組件一同使用,主要以
sql語句
為主.
.版本 2
.
程序集
窗口程序集_啟動窗口
.
子程序
_按鈕1_被單擊
.
局部變數
查詢
句柄
, 整數型
.如果真 (
取反
(外部資料庫1.打開MDB資料庫 (取運行目錄 () ＋ 「\db.mdb」, , , , 真)))
信息框 (「資料庫打開失敗.」, 0, , )
返回 ()
.如果真結束
' ----------------------------------------判斷是否連接到資料庫.
查詢句柄 ＝ 外部資料庫1.查詢 (「select * from 表名」)
' 查詢句柄,用於讀數據,可以添加條件篩選.比如:
' 查詢句柄 ＝ 外部資料庫1.查詢 (「select * from 表名 where name =」 ＋ 編輯框2.內容)
' -----------------------------------------開始讀取數據
.判斷循環首 (取反 (外部資料庫1.尾記錄後 (查詢句柄)))

列表框
1.加入項目 (外部資料庫1.讀 (查詢句柄, 2), )
' 這里的2表示欄位位置,也可以直接寫名字,比如欄位2為name
' 外部資料庫1.讀 (查詢句柄, 「name」)
外部資料庫1.到後一記錄 (查詢句柄)
.判斷循環尾 ()
外部資料庫1.關閉記錄集 (查詢句柄)
' 記錄集使用完畢後及時關閉.
' ----------------------------------------- 寫數據很簡單,直接執行sql語句.
.判斷開始 (外部資料庫1.執行 (「insert into 表名 (對應表內欄位名稱1,對應表內欄位名稱2) values ('內容','內容')」, ))
信息框 (「成功」, 0, , )
.默認
信息框 (「失敗」, 0, , )
.判斷結束
' 內容這里注意前後的單引號必須有.示例:
' 外部資料庫1.執行 (「insert into 表名 (ID,name) values ('」 ＋ 編輯框1.內容 ＋ 「','」 ＋ 編輯框2.內容 ＋ 「')」, )
' ------------------------------------------修改命令 update
.判斷開始 (外部資料庫1.執行 (「update 表名 Set ID='」 ＋ 編輯框1.內容 ＋ 「',name='」 ＋ 編輯框2.內容, ))
信息框 (「成功」, 0, , )
.默認
信息框 (「失敗」, 0, , )
.判斷結束
' ---------------------------------------刪除命令 delete
.判斷開始 (外部資料庫1.執行 (「delete from 表名 where 條件」, ))
' 示例:
' 外部資料庫1.執行 (「delete from 表名 where name=」 ＋ 編輯框2.內容, )
信息框 (「成功」, 0, , )
.默認
信息框 (「失敗」, 0, , )
.判斷結束
.子程序 __啟動窗口_將被銷毀
外部資料庫1.關閉 ()

『貳』 易語言如何讀取Access資料庫中多個欄位、表名、條件。

【1】.連接Access資料庫代碼！.版本
2
.支持庫
eDB
.如果
(資料庫連接.連接Access
(MDB資料庫,
「」)
＝
真)
記錄集.置連接
(資料庫連接)
排序條件
＝
「欄位，表名，條件」
.如果
(記錄集.打開並排序
(MDB數據表,
排序條件)
＝
真)
.否則
銷毀
()
【2】.填充樹形框欄位到父項目代碼！.版本
2
.支持庫
eDB
.支持庫
iext.局部變數
分類變數,
文本型
.局部變數
樹項目總數,
整數型
.局部變數
樹循環循環,
整數型
.局部變數
臨時項目文本,
文本型
.局部變數
是否存在重復,
整數型
記錄集.到首記錄
()
.判斷循環首
(記錄集.尾記錄後
＝
假)
記錄集.讀文本
(「欄位」,
分類變數)
樹項目總數
＝
樹型框.取項目數
()
.如果
(樹項目總數
＝
0)
樹型框.加入項目
(,
分類變數,
,
,
)
.否則
.計次循環首
(樹項目總數,
樹循環循環)
臨時項目文本
＝
樹型框.取項目文本
(樹循環循環
－
1)
.如果
(臨時項目文本
＝
分類變數)
是否存在重復
＝
1
跳出循環
()
.否則
是否存在重復
＝
0
.如果結束
樹循環循環
＝
樹循環循環
＋
1
.計次循環尾
()
.如果真
(是否存在重復
＝
0)
樹型框.加入項目
(,
分類變數,
,
,
)
.如果真結束
.如果結束
記錄集.到下一條
()
.判斷循環尾
()
【3】.填充表名到樹形框子項目並過濾樹形框存在的重復項！.版本
2
.支持庫
iext
.支持庫
eDB.局部變數
原項目變數,
整數型
.局部變數
原項目循環,
整數型
.局部變數
項目數組,
文本型,
,
"0"
.局部變數
原項目文本,
文本型
.局部變數
新項目變數,
整數型
.局部變數
新項目循環,
整數型
.局部變數
新項目文本,
文本型
.局部變數
新項目標題,
文本型
.局部變數
過濾語句,
文本型
.局部變數
文本數組,
文本型,
,
"0"
.局部變數
文本變數,
文本型
.局部變數
數組成員,
整數型
.局部變數
數組循環,
整數型
.局部變數
次數數量,
整數型
.局部變數
項目變數,
整數型
.局部變數
循環變數,
整數型
.局部變數
次數循環,
整數型
原項目變數
＝
樹型框.取項目數
()
原項目循環
＝
1
.計次循環首
(原項目變數,
原項目循環)
加入成員
(項目數組,
樹型框.取項目文本
(原項目循環
－
1))
.計次循環尾
()
數組成員
＝
取數組成員數
(項目數組)原項目文本
＝
項目數組
[數組循環]
過濾語句
＝
「欄位」
＋
「=」
＋
「'」
＋
原項目文本
＋
「'」
.如果
(記錄集.過濾記錄
(過濾語句)
＝
真)
次數數量
＝
記錄集.記錄數量
清除數組
(文本數組)
.計次循環首
(次數數量,
次數循環)
記錄集.讀文本
(「表名稱」,
文本變數)
加入成員
(文本數組,
文本變數)
次數循環
＝
次數循環
＋
1
記錄集.到下一條
()
.計次循環尾
()
項目變數
＝
樹型框.取項目數
()
.計次循環首
(項目變數,
循環變數)
樹型框.置項目數值
(循環變數
－
1,
循環變數)
.計次循環尾
().否則

『叄』 易語言 如何在ACCESS資料庫中創建一個表

1.運行「易語言」主程序，打開「新建工程」對話框，選擇「Windows窗口程序」，點擊「確定」按鈕，進入「Windows窗口程序」設計界面。如圖：