易语言操作mysql数据库

连接数据库

失败返回 0

数据库句柄 ＝ 连接MySql (“127.0.0.1”, “用户名”, “密码”, “数据库名”, 3306)
调试输出 (数据库句柄)

增加数据

SQL ＝ 取文本 (“insert into Euser values ('%s','%s');”, “1666”, “2666”)

.版本 2
.支持库 mysql
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 SQL, 文本型
.局部变量 记录集句柄, 整数型
.局部变量 数据内容, 文本型, , "2"

数据库句柄 ＝ 连接MySql (“127.0.0.1”, “root”, “root”, “students”, 3306)
调试输出 (数据库句柄)
.如果真 (数据库句柄 ＝ 0)
    信息框 (“请检查您的mysql数据库是否安装正常”, 0, , )
    结束 ()
.如果真结束

SQL ＝ 取文本 (“insert into Euser values ('%s','%s');”, “1666”, “2666”)
执行SQL语句 (数据库句柄, SQL)
断开MySql (数据库句柄)

查询

精确查询

SQL ＝ 取文本 (“select * from Euser where Name = '666'”, )

模糊查询（只知道前半段）

SQL ＝ 取文本 (“select * from Euser where Name like '1%'”, )

模糊查询（只知道中间）

SQL ＝ 取文本 (“select * from Euser where Name like '%6%'”, )

模糊查询（只知道后半段）

SQL ＝ 取文本 (“select * from Euser where Name like '%7'”, )

查询并输出所有符合条件的内容 案例

.版本 2
.支持库 mysql
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 SQL, 文本型
.局部变量 记录集句柄, 整数型
.局部变量 数据内容, 文本型, , "2"

数据库句柄 ＝ 连接MySql (“127.0.0.1”, “root”, “root”, “students”, 3306)
调试输出 (数据库句柄)

.如果真 (数据库句柄 ＝ 0)
    信息框 (“请检查您的mysql数据库是否安装正常”, 0, , )
    结束 ()
.如果真结束

连接MySql (, , , , )
SQL ＝ 取文本 (“select * from Euser where Name = '666'”, )
调试输出 (SQL)

调试输出 (执行SQL语句 (数据库句柄, SQL))

记录集句柄 ＝ 取记录集 (数据库句柄)

.计次循环首 (取记录集行数 (记录集句柄), )
    清除数组 (数据内容)
    加入成员 (数据内容, “”)
    加入成员 (数据内容, “”)
    读字段值 (记录集句柄, “Name”, 数据内容 [1])
    读字段值 (记录集句柄, “psd”, 数据内容 [2])
    调试输出 (数据内容)
    到下一行 (记录集句柄)
.计次循环尾 ()

' 断开数据库
断开MySql (数据库句柄)

删除数据

SQL ＝ “delete from Euser where Name = '666'”

.版本 2
.支持库 mysql
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 SQL, 文本型
.局部变量 记录集句柄, 整数型
.局部变量 数据内容, 文本型, , "2"

数据库句柄 ＝ 连接MySql (“127.0.0.1”, “root”, “root”, “students”, 3306)
调试输出 (数据库句柄)

.如果真 (数据库句柄 ＝ 0)
    信息框 (“请检查您的mysql数据库是否安装正常”, 0, , )
    结束 ()
.如果真结束

连接MySql (, , , , )
SQL ＝ “delete from Euser where Name = '666'”
执行SQL语句 (数据库句柄, SQL)

' 断开数据库
断开MySql (数据库句柄)

更新

SQL ＝ 取文本 (“update 表名 set Name = '%s' where Name = '%s'”, “666”, “180”)

.版本 2
.支持库 mysql
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 SQL, 文本型
.局部变量 记录集句柄, 整数型
.局部变量 数据内容, 文本型, , "2"

数据库句柄 ＝ 连接MySql (“127.0.0.1”, “root”, “root”, “students”, 3306)
调试输出 (数据库句柄)

SQL ＝ 取文本 (“update Euser set Name = '%s' where Name = '%s'”, “666”, “180”)
调试输出 (SQL)
执行SQL语句 (数据库句柄, SQL)

调试输出 (执行SQL语句 (数据库句柄, SQL))

' 断开数据库
断开MySql (数据库句柄)

原文地址：https://www.couragesteak.com/article/70