易语言数据库创建

.版本 2

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

子程序 执行查询
    ' 创建命令对象
    DBComm = 创建对象("ADODB.Command")
    DBComm.ActiveConnection = DBConn
    ' 设置SQL语句
    DBComm.CommandText = "SELECT * FROM users"
    ' 执行查询
    RS = DBComm.Execute()
    ' 处理结果集
    循环 (RS.EOF = 否)
        信息框("ID: " + 转文本(RS.Fields("id").Value) + ", Name: " + RS.Fields("name").Value)
        RS.MoveNext()
    结束循环
    ' 关闭结果集
    RS.Close()
结束子程序

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