易語言實現鏈接mysql數據庫，執行sql語句

 

.版本 2
.支持庫 mysql

.程序集 窗口程序集_啓動窗口

.子程序 _按鈕1_被單擊
.局部變量 ip, 文本型
.局部變量 端口, 整數型
.局部變量 用戶, 文本型
.局部變量 密碼, 文本型
.局部變量 數據庫名, 文本型

ip ＝ 編輯框1.內容
端口 ＝ 到整數 (編輯框4.內容)
用戶 ＝ 編輯框2.內容
密碼 ＝ 編輯框3.內容
數據庫名 ＝ 編輯框7.內容
句柄 ＝ 子_鏈接數據 (ip, 端口, 用戶, 密碼, 數據庫名)
輸出調試文本 (“句柄：” ＋ 到文本 (句柄))
按鈕1.禁止 ＝ 真
按鈕3.禁止 ＝ 假

.子程序 子_鏈接數據, 整數型
.參數 ip, 文本型
.參數 端口, 整數型
.參數 用戶, 文本型
.參數 密碼, 文本型
.參數 數據庫名, 文本型
.局部變量 數據庫句柄, 整數型


數據庫句柄 ＝ 連接MySql (ip, 用戶, 密碼, 數據庫名, 端口)
返回 (數據庫句柄)

.子程序 _按鈕2_被單擊
.局部變量 SQL, 文本型
.局部變量 記錄集句柄, 整數型
.局部變量 字段名, 文本型
.局部變量 循環計次, 整數型
.局部變量 字段值, 文本型
.局部變量 行數, 整數型

SQL ＝ 編輯框5.內容
編輯框6.加入文本 (“開始執行SQL。。。” ＋ #換行符)
輸出調試文本 (“執行SQL:” ＋ SQL)
執行SQL語句 (句柄, SQL)
記錄集句柄 ＝ 取記錄集 (句柄)
輸出調試文本 (“記錄句柄集：” ＋ 到文本 (記錄集句柄))
.計次循環首 (取字段總數 (記錄集句柄), 循環計次)
    序號到字段名 (記錄集句柄, 循環計次 － 1, 字段名)
    輸出調試文本 (“字段名：” ＋ 字段名)
    編輯框6.加入文本 (字段名 ＋ “|”)
.計次循環尾 ()
編輯框6.加入文本 (#換行符)
行數 ＝ 取記錄集行數 (記錄集句柄)
.計次循環首 (行數, )
    .計次循環首 (取字段總數 (記錄集句柄), 循環計次)
        序號到字段名 (記錄集句柄, 循環計次 － 1, 字段名)
        讀字段值 (記錄集句柄, 字段名, 字段值)
        輸出調試文本 (“字段值：” ＋ 字段值)
        編輯框6.加入文本 (字段值 ＋ “|”)
    .計次循環尾 ()
    編輯框6.加入文本 (#換行符)
    到下一行 (記錄集句柄)
.計次循環尾 ()
釋放記錄集 (記錄集句柄)


.子程序 _按鈕3_被單擊

斷開MySql (句柄)
按鈕1.禁止 ＝ 假
按鈕3.禁止 ＝ 假