ado连接数据库代码

Dim conn
Dim strConn
Dim strSQL

' 设置连接字符串
strConn = "Provider=SQLOLEDB;Data Source=your_server_name;Initial Catalog=your_database_name;User ID=your_username;Password=your_password;"

' 创建Connection对象
Set conn = CreateObject("ADODB.Connection")

' 打开连接
conn.Open strConn

' 设置SQL查询
strSQL = "SELECT * FROM your_table_name"

' 创建Command对象
Dim cmd
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = strSQL

' 执行查询并获取结果
Dim rs
Set rs = cmd.Execute

' 处理结果
Do While Not rs.EOF
    For Each field In rs.Fields
        WScript.Echo field.Name & ": " & field.Value
    Next
    rs.MoveNext
Loop

' 关闭连接
rs.Close
conn.Close

' 释放对象
Set rs = Nothing
Set cmd = Nothing
Set conn = Nothing