易语言查询mysql

.版本 2

子程序 连接数据库
    ' 初始化ADO对象
    ADOConn ＝ 创建对象("ADODB.Connection")
    ' 设置连接字符串
    ADOConn.ConnectionString ＝ "Provider=MSDASQL;Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;"
    ' 打开连接
    ADOConn.Open
    ' 输出连接状态
    输出 "数据库连接状态: " ＋ ADOConn.State
    返回 ADOConn
结束子程序

子程序 执行查询
    本地 ADOConn ＝ 连接数据库()
    本地 ADORs ＝ 创建对象("ADODB.Recordset")
    ' 执行SQL查询
    ADORs.Open "SELECT * FROM users", ADOConn
    ' 处理查询结果
    输出 "查询结果:"
    DO WHILE NOT ADORs.EOF
        输出 "ID: " ＋ 转文本(ADORs.Fields("id").Value) ＋ ", Name: " ＋ 转文本(ADORs.Fields("name").Value)
        ADORs.MoveNext
    LOOP
    ' 关闭记录集和连接
    ADORs.Close
    ADOConn.Close
结束子程序

' 调用执行查询子程序
执行查询()