易语言创建edb数据库

.版本 2

子程序 创建数据库
    ' 创建一个名为 "test.edb" 的数据库文件
    数据库句柄 ＝ 创建数据库 ("test.edb")
    如果 (数据库句柄 ≠ 0)
        输出 "数据库创建成功！"
        ' 创建一个名为 "users" 的表
        执行SQL (数据库句柄, "CREATE TABLE users (id INTEGER PRIMARY KEY, name VARCHAR(50), age INTEGER)")
        输出 "表创建成功！"
    否则
        输出 "数据库创建失败！"
    结束如果
结束子程序

子程序 插入数据
    ' 插入一条记录到 "users" 表
    执行SQL (数据库句柄, "INSERT INTO users (name, age) VALUES ('张三', 25)")
    输出 "数据插入成功！"
结束子程序

子程序 查询数据
    ' 查询 "users" 表中的所有记录
    记录集句柄 ＝ 执行查询 (数据库句柄, "SELECT * FROM users")
    如果 (记录集句柄 ≠ 0)
        输出 "查询成功！"
        循环 (记录集句柄)
            输出 "ID: " ＋ 转文本 (记录集句柄.取字段值 ("id"))
            输出 "姓名: " ＋ 转文本 (记录集句柄.取字段值 ("name"))
            输出 "年龄: " ＋ 转文本 (记录集句柄.取字段值 ("age"))
        结束循环
    否则
        输出 "查询失败！"
    结束如果
    关闭记录集 (记录集句柄)
结束子程序

' 调用子程序
创建数据库 ()
插入数据 ()
查询数据 ()