'#######################################################################################
'功能:VBS访问SQL数据库
dim conn
set conn=WScript.CreateObject("ADODB.Connection")
conn.Open "Driver={SQL server};server=192.168.1.1;database=mydb;uid=myuser;pwd=mypwd;"
dim rst
set rst=WScript.CreateObject("ADODB.Recordset")
sSQL="select * from ......"
rst.open sSQL,conn,1,1
if rst.eof and rst.bof then
WScript.Echo "没有记录"
else
do while not rst.eof
WScript.Echo rst("Field1") & " " & rst("Field2")
rs.movenext
loop
end if
WScript.QUIT
rst.close
set rst=nothing
conn.close
set conn=thing