易语言连接edb数据库

.版本 2

子程序 连接数据库
    ' 定义ODBC连接字符串
    本地连接字符串 ＝ "DRIVER={EDB ODBC Driver};SERVER=127.0.0.1;PORT=5432;DATABASE=mydatabase;UID=myuser;PWD=mypassword"
    
    ' 打开数据库连接
    数据库句柄 ＝ 连接 (连接字符串)
    
    如果 (数据库句柄 ≠ 0)
        输出调试信息 ("数据库连接成功")
        
        ' 执行SQL查询
        查询句柄 ＝ 执行查询 (数据库句柄, "SELECT * FROM mytable")
        
        如果 (查询句柄 ≠ 0)
            ' 处理查询结果
            循环 (查询句柄)
                记录 ＝ 读取记录 (查询句柄)
                输出调试信息 (记录["column_name"])
            结束循环
        否则
            输出调试信息 ("查询失败")
        结束如果
        
        ' 关闭查询句柄
        关闭查询 (查询句柄)
    否则
        输出调试信息 ("数据库连接失败")
    结束如果
    
    ' 关闭数据库连接
    关闭连接 (数据库句柄)
结束子程序