Renz
Осваивающий
- Сообщения
- 63
- Репутация
- 37
Нижеприведенный код возвращает пустые значения, может кто-нибудь знает в чем причина? (в Management Studio результат есть) Причем кол-во возвращаемых строк соответствует запросу.
Код:
Dim $server, $db, $username, $password,$ConnObj,$RezObj
$server = "\SQLEXPRESS"
$db = "arktica"
$username = "sa"
$password = "******"
;создание объекта для поключения к SQl
$ConnObj = ObjCreate("ADODB.Connection")
If $ConnObj = 0 Then
MsgBox(0,"","Error create ADODB.Connection",2)
Exit
EndIf
;создание объекта для получения данных из SQl
$RezObj = ObjCreate("ADODB.Recordset")
If $RezObj = 0 Then
MsgBox(0,"","Error create ADODB.Connection",2)
Exit
EndIf
;подключение к SQL
$ConnObj.Open("DRIVER={SQL Server};SERVER=" & $server & ";DATABASE=" & $db & ";uid=" & $username & ";pwd=" & $password & ";")
;обработать ошибку
If $ConnObj.State = 0 Then
MsgBox(0,"","Error create Connect SQL",2)
Exit
EndIf
;определить активное подключение
$RezObj.ActiveConnection = $ConnObj
;запрос к базе с возвратом результата
$sqlString = "Select code,name From spr_000 Where tname = 'spr_'"
$QueryRez = $RezObj.Open($sqlString)
;обработка результата
While $RezObj.EOF <> "False"
$code = $RezObj(0) ;$code = $RezObj("code")
$name = $RezObj(1) ;$name = $RezObj("name")
MsgBox(0,"","code: "&$code&" name: "&$name,2)
$RezObj.MoveNext
WEnd
;закрываем соединение с sql
$ConnObj.Close