VBSCRIPT訪問MSSQL

 

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