Option Explicit '表示所有變量必須先聲明后使用
Dim mssqlconn
On Error Resume Next
Set mssqlconn = CreateObject("ADODB.Connection")
' DataBaseName : tbabinxm
' DbUserName : sa
' DbPwd : abinxm
mssqlconn.Open "Provider=SQLOLEDB.1;Data Source=192.168.1.113;Initial Catalog=tbabinxm","sa","abinxm"
If Err.Number <> 0 Then
WScript.Echo "sql server database connect error!"
WScript.Echo Err.Description
WScript.Echo Err.Source
Err.Clear
Set mssqlconn = Nothing
WScript.Quit
End If
Dim mssqlresult
Set mssqlresult = mssqlconn.Execute("select col1,col2 from t1")
Do While Not mssqlresult.EOF
MsgBox mssqlresult("col1") & " - " & mssqlresult("col2")
mssqlresult.MoveNext
Loop
mssqlresult.Close
mssqlresult = Nothing
mssqlconn.Close
Set mssqlconn = Nothings
WScript.Echo "sql server database connect cuss!"
WScript.Quit
