Что нового

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

Rouzenrot

Новичок
Сообщения
30
Репутация
0
Здравствуйте!
Есть база 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

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
Rouzenrot
MsgBox выдает пустое окошко
MsgBox не может выводить массивы - только конкретные элементы
Код:
MsgBox(64, 'Info', $aDBRecords[0])

Для просмотра массива целиком используйте
Код:
_ArrayDisplay($aDBRecords)
 
Автор
R

Rouzenrot

Новичок
Сообщения
30
Репутация
0
InnI сказал(а):
Rouzenrot
MsgBox выдает пустое окошко
MsgBox не может выводить массивы - только конкретные элементы
Код:
MsgBox(64, 'Info', $aDBRecords[0])

Для просмотра массива целиком используйте
Код:
_ArrayDisplay($aDBRecords)

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