VBScript脚本连接数据库

'创建CONN对象

Set Conn = CreateObject("ADODB.Connection")

'创建RS对象

Set rsCustomers = CreateObject("ADODB.Recordset")

'这里是SQL语言

Source = "select * from XXXX"

Connect = "Provider=sqloledb;Data Source=数据源;" & _
    "Initial Catalog=初始库;Integrated Security=SSPI;uid=数据库名;pwd=密码"

Conn.Open Connect

Set rsCustomers = Conn.Execute(Source)

Do Until rsCustomers.EOF
   msgbox rsCustomers("name")'循环拿出字段"name"的值
   rsCustomers.MoveNext
loop