[Данные, строки] Запрос к MySQL выдает пустое поле

[Rouzenrot]

Здравствуйте!
Есть база mysql, в ней есть таблица с пользователями. Нужно что бы по запросу id выдавался логин. Поискал на форуме, изобразил вот такой вот скрипт:

;определение архитектуры для поиска в реестре драйвера
if @OSArch = 'X64' Then Local Const $reg_drv_path = 'HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI\ODBC Drivers'
if @OSArch = 'X86' Then Local Const $reg_drv_path = 'HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers'

Local $sSubKey, $i=0, $sDriver
While @error = 0
   $i+=1
   $sSubKey = RegEnumval($reg_drv_path, $i)
   if StringInStr($sSubKey,'MySQL ODBC') And StringInStr($sSubKey,'Unicode Driver') Then $sDriver = $sSubKey
   if Stringlen($sSubKey)=0 Then ExitLoop
WEnd
$sDriver='MySQL ODBC 5.3 Unicode Driver';если все хорошо то должно быть так
if Stringlen($sDriver)=0 Then
   MsgBox(16,"Ошибка!","не установлен коннектор к MySQL !")
   _Exit()
EndIf
;
Local $sDBServerIP = "***" ; IP адрес севера с MySQL
Local $sDBUsername = "***"        ; Имя пользователя для подключения к базе данных
Local $sDBPassword = "***"      ; Пароль
Local $sDatabase   = "p356048_dead-number"      ; База Данных к которой будем подключаемся

; Подключаемся к Серверу
Global $MySQLConn = ObjCreate("ADODB.Connection")
$MySQLConn.Open("DRIVER="&$sDriver&";SERVER=" & $sDBServerIP & ";DATABASE=" & $sDatabase & ";UID=" & $sDBUsername & ";PWD=" & $sDBPassword & ";PORT=3306")

; Получаем значения из таблицы
Dim $r = 1
Dim $aDBRecords[3] ; Создаем массив для хранения данных
Dim $oGetRecords = $MySQLConn.Execute("SELECT username FROM users WHERE id = 706")

$aDBRecords[0] = $oGetRecords.Fields(0).Value ; сюда будет записан результат запроса

MsgBox(64, 'Info', $aDBRecords)

$MySQLConn.Close

MsgBox выдает пустое окошко. Подскажите, в чем проблема?

 

[InnI]

Rouzenrot

MsgBox выдает пустое окошко

MsgBox не может выводить массивы - только конкретные элементы

MsgBox(64, 'Info', $aDBRecords[0])

Для просмотра массива целиком используйте

_ArrayDisplay($aDBRecords)

 

[Rouzenrot]

Rouzenrot

MsgBox выдает пустое окошко

MsgBox не может выводить массивы - только конкретные элементы

MsgBox(64, 'Info', $aDBRecords[0])

Для просмотра массива целиком используйте

_ArrayDisplay($aDBRecords)

Спасибо большое! Значит сам запрос в базу работает