易语言连接Mysql模块，类似thinkphp的链式操作2.0版

dsjeissdff

易语言连接Mysql模块，类似thinkphp的链式操作，使用简单，支持所有的CURD操作，可以有效的提高数据存取的代码清晰度和开发效率。本次更新较1.0版本改动较大，直接命名为2.0版本。

更新说明：
1.修复了insert，update操作内容含有特殊字符或敏感无法存储的问题
2.新增输出窗口直接输出mysql错误信息
3.新增 Error 方法获取mysql错误信息
4.新增 SQL 方法获取运行时的mysql语句
5.新增Mysql表达式类，更灵活更方便的生成where条件和data内容
6.新增对多线程的支持

由于精力和水平有限，开发使用过程中发现bug，欢迎广大易友留言反馈

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型
线程句柄1	整数型
Mysql	Mysql类

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
记录集	Mysql记录集
自增长ID	长整数型
计次	整数型
Mysql表达式	Mysql表达式

' 连接数据库
Mysql.Connect (“127.0.0.1”, “root”, “root”, “test”)
' 查询一条记录
记录集 ＝ Mysql.Table (“user”).Field (“name”).Find ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取字段值 (“name”))
' 输出数据： 夏明
' 使用left jion 查询
记录集 ＝ Mysql.Table (“article a”).Left (“user b”, “a.user_id = b.user_id”).Where (“b.user_id = 2”).Find ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())
' 输出数据： {"article_id":"2","title":"珍惜吧！没有谁会一直等你","user_id":"2","content":"","name":"张翰","age":"23","sex":"1"}
' 查询多条记录
记录集 ＝ Mysql.Table (“article”).Field (“article_id,title”).Select ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL ())
' 数据格式： [{"article_id":"1","title":"原谅别人就等于解脱自己"},{"article_id":"2","title":"珍惜吧！没有谁会一直等你"},{"article_id":"3","title":" 木拉提和古丽娜尔的故事"},{"article_id":"4","title":"再陪你吃一顿早餐"}]
计次循环首 (记录集.记录集数 (), 计次)
调试输出 (取程序名称 (1), 记录集.取字段值 (“article_id”, 计次), 记录集.取字段值 (“title”, 计次))  ' 这里计次无需减1
计次循环尾 ()
' 使用Mysql表达式进行where查询 article_id = 2 的记录,Or 和 And 的用法相同
Mysql表达式.And (“article_id”, “2”)  ' 第三个参数为表达式，缺省为 = ，可以使用 > , < , like , in , not in , butween , no butween
记录集 ＝ Mysql.Table (“article”).Field (“article_id,title”).Where (Mysql表达式.取Where ()).Select ()
调试输出 (取程序名称 (1), “语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())
' 输出数据：[{"article_id":"2","title":"珍惜吧！没有谁会一直等你"}]
' 查询article_id > 2 的记录
Mysql表达式.And (“article_id”, “2”, “>”)
记录集 ＝ Mysql.Table (“article”).Field (“article_id,title”).Where (Mysql表达式.取Where ()).Select ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())
' 查询name 包含 明 ,并且 user_id > 1 的记录
Mysql表达式.And (“name”, “%明%”, “like”)
Mysql表达式.And (“user_id”, “1”, “>”)
记录集 ＝ Mysql.Table (“user”).Where (Mysql表达式.取Where ()).Select ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())
启动线程 (&子程序1, , 线程句柄)
启动线程 (&子程序2, , 线程句柄1)

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
记录集	Mysql记录集
Mysql表达式	Mysql表达式
自增长ID	长整数型
影响行数	长整数型
计次	整数型

记录集 ＝ Mysql.Table (“article a”).Order (“article_id”, #DESC ).Select ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())
' 使用Mysql表达式 Data 新增数据，data
Mysql表达式.Data (“title”, “测试标题”)
Mysql表达式.Data (“content”, “测试数'据\'内容 %含有\” ＋ #引号 ＋ “特殊（敏感）字符\\\\\' and or 1 = 2”)
自增长ID ＝ Mysql.Table (“article”).Data (Mysql表达式.取Data ()).Insert ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 自增长ID)
Mysql表达式.Data (“name”, “王强”)
Mysql表达式.Data (“age”, “12”)
自增长ID ＝ Mysql.Table (“user”).Data (Mysql表达式.取Data ()).Insert ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 自增长ID)
强制结束线程 (线程句柄)

子程序名	返回值类型	公开	备 注
子程序2

变量名	类 型	静态	数组	备 注
记录集	Mysql记录集
Mysql表达式	Mysql表达式
自增长ID	长整数型
影响行数	长整数型
计次	整数型

记录集 ＝ Mysql.Table (“article a”).Left (“user b”, “a.user_id = b.user_id”).Where (“b.user_id = 2”).Find ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())
' 使用Mysql表达式 Data 更新数据，data
Mysql表达式.And (“user_id”, “4”)
Mysql表达式.Data (“name”, “王强A”)
Mysql表达式.Data (“age”, “18”)
Mysql表达式.Data (“sex”, “1”)
影响行数 ＝ Mysql.Table (“user”).Data (Mysql表达式.取Data ()).Where (Mysql表达式.取Where ()).Update ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 影响行数)
' 删除记录
Mysql表达式.And (“user_id”, “4”, “>”)
影响行数 ＝ Mysql.Table (“user”).Where (Mysql表达式.取Where ()).Delete ()
调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 影响行数)
强制结束线程 (线程句柄1)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (“----------------------------_按钮1_被单击--------------------------------------------”)
启动线程 (&子程序2, , 线程句柄1)

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> .程序集变量 线程句柄1, 整数型<br /> .程序集变量 Mysql, Mysql类<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 记录集, Mysql记录集<br /> .局部变量 自增长ID, 长整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 Mysql表达式, Mysql表达式<br /> <br /> ' 连接数据库<br /> Mysql.Connect (“127.0.0.1”, “root”, “root”, “test”)<br /> <br /> ' 查询一条记录<br /> 记录集 ＝ Mysql.Table (“user”).Field (“name”).Find ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取字段值 (“name”))<br /> ' 输出数据： 夏明<br /> <br /> ' 使用left jion 查询<br /> 记录集 ＝ Mysql.Table (“article a”).Left (“user b”, “a.user_id = b.user_id”).Where (“b.user_id = 2”).Find ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())<br /> ' 输出数据： {"article_id":"2","title":"珍惜吧！没有谁会一直等你","user_id":"2","content":"","name":"张翰","age":"23","sex":"1"}<br /> <br /> ' 查询多条记录<br /> 记录集 ＝ Mysql.Table (“article”).Field (“article_id,title”).Select ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL ())<br /> ' 数据格式： [{"article_id":"1","title":"原谅别人就等于解脱自己"},{"article_id":"2","title":"珍惜吧！没有谁会一直等你"},{"article_id":"3","title":" 木拉提和古丽娜尔的故事"},{"article_id":"4","title":"再陪你吃一顿早餐"}]<br /> <br /> .计次循环首 (记录集.记录集数 (), 计次)<br />     调试输出 (取程序名称 (1), 记录集.取字段值 (“article_id”, 计次), 记录集.取字段值 (“title”, 计次))  ' 这里计次无需减1<br /> .计次循环尾 ()<br /> <br /> ' 使用Mysql表达式进行where查询 article_id = 2 的记录,Or 和 And 的用法相同<br /> Mysql表达式.And (“article_id”, “2”)  ' 第三个参数为表达式，缺省为 = ，可以使用 > , < , like , in , not in , butween , no butween<br /> 记录集 ＝ Mysql.Table (“article”).Field (“article_id,title”).Where (Mysql表达式.取Where ()).Select ()<br /> 调试输出 (取程序名称 (1), “语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())<br /> ' 输出数据：[{"article_id":"2","title":"珍惜吧！没有谁会一直等你"}]<br /> <br /> ' 查询article_id > 2 的记录<br /> Mysql表达式.And (“article_id”, “2”, “>”)<br /> 记录集 ＝ Mysql.Table (“article”).Field (“article_id,title”).Where (Mysql表达式.取Where ()).Select ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())<br /> <br /> ' 查询name 包含 明 ,并且 user_id > 1 的记录<br /> Mysql表达式.And (“name”, “%明%”, “like”)<br /> Mysql表达式.And (“user_id”, “1”, “>”)<br /> 记录集 ＝ Mysql.Table (“user”).Where (Mysql表达式.取Where ()).Select ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())<br /> <br /> 启动线程 (&子程序1, , 线程句柄)<br /> 启动线程 (&子程序2, , 线程句柄1)<br /> <br /> .子程序 子程序1<br /> .局部变量 记录集, Mysql记录集<br /> .局部变量 Mysql表达式, Mysql表达式<br /> .局部变量 自增长ID, 长整数型<br /> .局部变量 影响行数, 长整数型<br /> .局部变量 计次, 整数型<br /> <br /> <br /> 记录集 ＝ Mysql.Table (“article a”).Order (“article_id”, #DESC).Select ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())<br /> <br /> ' 使用Mysql表达式 Data 新增数据，data<br /> Mysql表达式.Data (“title”, “测试标题”)<br /> Mysql表达式.Data (“content”, “测试数'据\'内容 %含有\” ＋ #引号 ＋ “特殊（敏感）字符\\\\\' and or 1 = 2”)<br /> 自增长ID ＝ Mysql.Table (“article”).Data (Mysql表达式.取Data ()).Insert ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 自增长ID)<br /> <br /> Mysql表达式.Data (“name”, “王强”)<br /> Mysql表达式.Data (“age”, “12”)<br /> 自增长ID ＝ Mysql.Table (“user”).Data (Mysql表达式.取Data ()).Insert ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 自增长ID)<br /> 强制结束线程 (线程句柄)<br /> <br /> .子程序 子程序2<br /> .局部变量 记录集, Mysql记录集<br /> .局部变量 Mysql表达式, Mysql表达式<br /> .局部变量 自增长ID, 长整数型<br /> .局部变量 影响行数, 长整数型<br /> .局部变量 计次, 整数型<br /> <br /> <br /> 记录集 ＝ Mysql.Table (“article a”).Left (“user b”, “a.user_id = b.user_id”).Where (“b.user_id = 2”).Find ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 记录集.取数据文本 ())<br /> <br /> ' 使用Mysql表达式 Data 更新数据，data<br /> Mysql表达式.And (“user_id”, “4”)<br /> Mysql表达式.Data (“name”, “王强A”)<br /> Mysql表达式.Data (“age”, “18”)<br /> Mysql表达式.Data (“sex”, “1”)<br /> 影响行数 ＝ Mysql.Table (“user”).Data (Mysql表达式.取Data ()).Where (Mysql表达式.取Where ()).Update ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 影响行数)<br /> <br /> ' 删除记录<br /> Mysql表达式.And (“user_id”, “4”, “>”)<br /> 影响行数 ＝ Mysql.Table (“user”).Where (Mysql表达式.取Where ()).Delete ()<br /> 调试输出 (取程序名称 (1), “SQL语句：” ＋ Mysql.SQL (), 影响行数)<br /> <br /> 强制结束线程 (线程句柄1)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (“----------------------------_按钮1_被单击--------------------------------------------”)<br /> 启动线程 (&子程序2, , 线程句柄1)

低调的生活

感谢楼主分享

nejun

#在这里快速回复#66666666666666666666666666666666

13824055147

增加记录可以吗

byHandsome

谢谢楼主的分享

冰之棱

大佬牛逼哎

smisjk62

没有断开链接操作？？？

dokuro

收藏了，多谢

x0305x

牛逼了，很喜欢

追忆帝

一只小萌 发表于 2020-4-2 20:11
我也觉得花里胡哨的。用自带mysql 我就碰到一个问题，程序长时间不用mysql  然后cha询取个字段就乱码，ch ...

使用mysql连接池

无忧无虑L

6666666666666666666