易语言怎么打开数据库

.版本 2

子程序 连接数据库
    ' 创建数据库连接对象
    DBConnect = 创建对象("ADODB.Connection")
    
    ' 设置连接字符串
    连接字符串 = "Provider=MSDASQL;Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=testdb;Uid=root;Pwd=root;"
    
    ' 打开数据库连接
    DBConnect.Open (连接字符串)
    
    ' 检查是否连接成功
    如果 (DBConnect.State = 1) 则
        输出 "数据库连接成功！"
    否则
        输出 "数据库连接失败！"
    结束如果
结束子程序

子程序 执行查询
    ' 创建记录集对象
    ResultSet = 创建对象("ADODB.Recordset")
    
    ' 执行SQL查询
    SQL = "SELECT * FROM users"
    ResultSet.Open (SQL, DBConnect)
    
    ' 输出查询结果
    如果 (ResultSet.EOF) 则
        输出 "没有数据！"
    否则
        循环 (直到 (ResultSet.EOF))
            输出 "ID: " + 转文本(ResultSet.Fields("id").Value) + ", Name: " + ResultSet.Fields("name").Value
            ResultSet.MoveNext
        结束循环
    结束如果
    
    ' 关闭记录集和数据库连接
    ResultSet.Close
    DBConnect.Close
结束子程序

' 调用子程序
连接数据库()
执行查询()