易语言操作sql数据库

.版本 2

子程序 连接数据库
    ' 创建ADO对象
    ADOConn ＝ 创建对象("ADODB.Connection")
    ' 设置连接字符串
    连接字符串 ＝ "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    ' 打开连接
    ADOConn.Open (连接字符串)
    输出 "数据库连接成功！"
结束子程序

子程序 查询数据
    ' 创建ADO对象
    ADOConn ＝ 创建对象("ADODB.Connection")
    ADOCmd ＝ 创建对象("ADODB.Command")
    ADORec ＝ 创建对象("ADODB.Recordset")
    
    ' 设置连接字符串和SQL语句
    连接字符串 ＝ "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    SQL ＝ "SELECT * FROM 表名"
    
    ' 打开连接
    ADOConn.Open (连接字符串)
    ' 设置命令对象
    ADOCmd.ActiveConnection ＝ ADOConn
    ADOCmd.CommandText ＝ SQL
    ' 执行查询
    ADORec.Open (ADOCmd)
    
    ' 输出查询结果
    Do While Not ADORec.EOF
        输出 ADORec.Fields("字段名").Value
        ADORec.MoveNext
    Loop
    
    ' 关闭连接
    ADORec.Close
    ADOConn.Close
结束子程序