global $gSqlInstance, $gSqlUser, $gSqlPassword, $gSqlDatabase
$gSqlInstance="IP"
$gSqlUser="ID"
$gSqlPassword="PWD"
$gSqlDatabase="DBNAME"
$connectString="DRIVER={SQL Server};SERVER=" & $gSqlInstance & ";uid=" & $gSqlUser & ";pwd=" & $gSqlPassword & ";DATABASE=" & $gSqlDatabase & ";"
$sqlCmd = "SELECT * FROM TABLE"
$str = ""
$recordcount =0
$db = ObjCreate ("ADODB.Connection")
$db.Open ($connectString)
if @error Then
MsgBox(0, "ERROR", "Failed to connect to the database")
Exit
EndIf
$result = $db.Execute($sqlCmd)
For $Field In $result.Fields
$str = $str & $Field.name & @TAB
Next
$str = $str & @CRLF
While $result.eof <> TRUE
For $Field In $result.Fields
$sValue = $result.Fields($Field.name).value
$str = $str & $sValue & @TAB
Next
$str = $str & @CRLF
$recordcount +=1
$result.MoveNext
WEnd
MsgBox(0, "", "Total:" & $recordcount & @CRLF & $str)
$db.Close
