|
发表于 2025-3-11 22:59:46
高大上手机用户
|
显示全部楼层
陕西省西安市
-----[连接数据库]-----
.版本 2
.子程序 连接数据库
.局部变量 MySQL句柄, 整数型
.局部变量 连接结果, 逻辑型
连接结果 = 连接MySql ("localhost", "root", "123456", "mydb", 3306)
.如果真 (连接结果 = 假)
信息框 ("数据库连接失败", 0, , )
返回 ()
.如果真结束
MySQL句柄 = 取MySQL连接句柄 ()
-----[插入数据]-----
执行SQL (MySQL句柄, "INSERT INTO users(name,age) VALUES('张三',20)")
.如果 (是否已执行())
信息框 ("插入成功,影响行数:" + 到文本(取影响行数()), 0, , )
.否则
信息框 ("插入失败:" + 取错误信息(), 0, , )
.如果结束
-----[cha询数据]-----
.局部变量 记录集句柄, 整数型
记录集句柄 = 取记录集 (MySQL句柄, "SELECT * FROM users WHERE age > 18")
.判断循环首 (到下一行 (记录集句柄))
输出调试文本 ("姓名:" + 读字段文本 (记录集句柄, "name"))
输出调试文本 ("年龄:" + 到文本(读字段整数值 (记录集句柄, "age")))
.判断循环尾 ()
释放记录集 (记录集句柄)
-----[更新数据]-----
执行SQL (MySQL句柄, "UPDATE users SET age=21 WHERE name='张三'")
.如果 (是否已执行())
信息框 ("更新成功,影响行数:" + 到文本(取影响行数()), 0, , )
.否则
信息框 ("更新失败", 0, , )
.如果结束
-----[删除数据]-----
执行SQL (MySQL句柄, "DELETE FROM users WHERE id=5")
.如果 (是否已执行())
信息框 ("删除成功,影响行数:" + 到文本(取影响行数()), 0, , )
.否则
信息框 ("删除失败", 0, , )
.如果结束
-----[关闭连接]-----
断开MySQL ()
注意事项:
需要安装易语言MySQL支持库
字符串参数必须用单引号包裹
生产环境应使用参数化cha询防注入
建议错误处理使用 取错误信息() 获取详细错误
操作前确保已成功获取MySQL连接句柄 |
|