易語言【第四篇】數據庫操作

本文轉載自查看原文 2020-10-04 13:24 409 易語言

原生數據庫

操作Sqlite3數據庫

配置支持庫

可視化操作

表設計

插入數據

.版本 2
.支持庫 sqlite3

.程序集 窗口程序集_啟動窗口
.程序集變量 程序集_Sqlit3數據庫, Sqlite數據庫

.子程序 _按鈕1_被單擊
.局部變量 局部表, Sqlite表

.如果真 (程序集_Sqlit3數據庫.打開 (取運行目錄 () ＋ “\sqlitedb.db”, 假) ＝ 假)
    信息框 (“打開數據庫失敗”, 0, , )
    返回 ()
.如果真結束

.如果真 (局部表.打開 (“Table1”, 程序集_Sqlit3數據庫) ＝ 假)
    信息框 (“打開表失敗”, 0, , )
    返回 ()
.如果真結束

局部表.插入 ()
局部表.寫字段值 (“productName”, “產品2號”)
局部表.寫字段值 (“Num”, 150)
局部表.提交 ()
局部表.關閉 ()

demo

讀取數據

.版本 2
.支持庫 sqlite3
.支持庫 spec

.程序集 窗口程序集_啟動窗口
.程序集變量 程序集_Sqlit3數據庫, Sqlite數據庫

.子程序 _按鈕1_被單擊
.局部變量 局部表, Sqlite表
.局部變量 SQL, 文本型
.局部變量 臨時_記錄集, Sqlite記錄集

.如果真 (程序集_Sqlit3數據庫.打開 (取運行目錄 () ＋ “\sqlitedb.db”, 假) ＝ 假)
    信息框 (“打開數據庫失敗”, 0, , )
    返回 ()
.如果真結束

.如果真 (局部表.打開 (“Table1”, 程序集_Sqlit3數據庫) ＝ 假)
    信息框 (“打開表失敗”, 0, , )
    返回 ()
.如果真結束

SQL ＝ 取文本 (“SELECT * From %s where uid<10”, “Table1”)
調試輸出 (SQL)

臨時_記錄集.置SQL語句 (SQL, 程序集_Sqlit3數據庫)
.如果真 (臨時_記錄集.打開 () ＝ 假)
    輸出調試文本 (“記錄集打開失敗，” ＋ 程序集_Sqlit3數據庫.取錯誤文本 ())
    返回 ()
.如果真結束

.如果真 (臨時_記錄集.首記錄前 ())
    臨時_記錄集.到下一記錄 ()
.如果真結束
調試輸出 (臨時_記錄集.取所有記錄 (假))

.計次循環首 (臨時_記錄集.取記錄個數 (), )
    臨時_記錄集.到下一記錄 ()
    輸出調試文本 (臨時_記錄集.讀字段文本值 (“productName”, ))

.計次循環尾 ()

臨時_記錄集.關閉 ()

demo