易语言mysql导出数据

.版本 2

子程序 导出数据为CSV
    ' 连接MySQL数据库
    MySQL连接句柄 ＝ MySQL连接("localhost", "用户名", "密码", "数据库名")
    如果 (MySQL连接句柄 ＝ 0) 则
        输出调试文本("连接数据库失败！")
        返回
    结束如果

    ' 执行SQL查询
    SQL语句 ＝ "SELECT * FROM 表名"
    MySQL结果集句柄 ＝ MySQL执行查询(MySQL连接句柄, SQL语句)
    如果 (MySQL结果集句柄 ＝ 0) 则
        输出调试文本("查询失败！")
        MySQL关闭连接(MySQL连接句柄)
        返回
    结束如果

    ' 创建CSV文件
    文件句柄 ＝ 文件创建("导出数据.csv")
    如果 (文件句柄 ＝ 0) 则
        输出调试文本("创建文件失败！")
        MySQL关闭结果集(MySQL结果集句柄)
        MySQL关闭连接(MySQL连接句柄)
        返回
    结束如果

    ' 写入CSV文件
    循环 (MySQL结果集行数(MySQL结果集句柄))
        记录 ＝ MySQL结果集获取记录(MySQL结果集句柄)
        行数据 ＝ ""
        循环 (MySQL结果集字段数(MySQL结果集句柄))
            字段名 ＝ MySQL结果集字段名(MySQL结果集句柄, 循环变量)
            字段值 ＝ 记录[字段名]
            行数据 ＝ 行数据 ＋ """" ＋ 字段值 ＋ """" ＋ ","
        结束循环
        行数据 ＝ 左(行数据, 长度(行数据) - 1) ＋ 换行符
        文件写入(文件句柄, 行数据)
    结束循环

    ' 关闭文件和数据库连接
    文件关闭(文件句柄)
    MySQL关闭结果集(MySQL结果集句柄)
    MySQL关闭连接(MySQL连接句柄)

    输出调试文本("数据导出成功！")
结束子程序