易语言数据库教程

.版本 2

子程序 连接数据库
    ' 创建数据库连接对象
    数据库连接 = 创建对象("ADODB.Connection")
    
    ' 设置连接字符串
    连接字符串 = "Provider=MSDASQL;Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;"
    
    ' 打开数据库连接
    数据库连接.Open (连接字符串)
    
    ' 输出连接状态
    输出 "数据库连接状态: " + 数据库连接.State
    
    ' 关闭数据库连接
    数据库连接.Close
结束子程序

子程序 执行查询
    ' 创建数据库连接对象
    数据库连接 = 创建对象("ADODB.Connection")
    
    ' 设置连接字符串
    连接字符串 = "Provider=MSDASQL;Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;"
    
    ' 打开数据库连接
    数据库连接.Open (连接字符串)
    
    ' 创建记录集对象
    记录集 = 创建对象("ADODB.Recordset")
    
    ' 执行查询语句
    记录集.Open "SELECT * FROM users", 数据库连接
    
    ' 输出查询结果
    输出 "查询结果:"
    Do While Not 记录集.EOF
        输出 "ID: " + 转文本(记录集.Fields("id").Value)
        输出 "Name: " + 转文本(记录集.Fields("name").Value)
        记录集.MoveNext
    Loop
    
    ' 关闭记录集和数据库连接
    记录集.Close
    数据库连接.Close
结束子程序