MySQL + vb6

[Q2W]

Мне нужно соединиться с mysql сервером,
выполнить запрос
взять результат запроса в массив.

Просба: ответте поподробней.

[snov]

Мне нужно соединиться с mysql сервером,
выполнить запрос
взять результат запроса в массив.

Просба: ответте поподробней.

1. Ставим дрова MySQL
2. Подключаем библиотеку ADO
3. Цепляемся к серверу
4. Данные из базы передаем в Recordset по средством Conection
5. В цикле перебераем все кортежи, а содержимое в массив

[Q2W]

Мне нужно соединиться с mysql сервером,
выполнить запрос
взять результат запроса в массив.

Просба: ответте поподробней.

1. Ставим дрова MySQL
2. Подключаем библиотеку ADO
3. Цепляемся к серверу
4. Данные из базы передаем в Recordset по средством Conection
5. В цикле перебераем все кортежи, а содержимое в массив

1. Дай ссылку плиз.
2. Ну здесь разберусь.
3-5. Вот здесь напиши код, плиз.

[snov]

1. Дай ссылку плиз.
2. Ну здесь разберусь.
3-5. Вот здесь напиши код, плиз.

1. mysql.org там и скажут, что куда вставляется и куда зщелкивается
3. библиотека подключеатся в Project>Refrences там выбираем Microsoft ActiveX Data Objects x.xx library
4.

Код: Выделить всё

dim conn as New ADODB.Connection
conn.Open CNTS

Где CNTS - ConnectionStringб по генерации их сюда: connectionstring.com
5.

Код: Выделить всё

Dim rs as ADODB.Recordset
..
Set rs=conn.Execute("Собсно запрос")

6.

Код: Выделить всё

While not rs.eof
  redim preserve a(ubound(a)+1)
  a(ubound(a))=rs.Fields("Поле")
  rs.movenext
wend

[Q2W]

Код: Выделить всё

Public conn As New ADODB.Connection
Public rs As ADODB.Recordset

Private Sub cmdConnect_Click()
    conn.Open "DRIVER=MySQL ODBC 3.51 Driver;User=root;Server=server;Database=q;Option=0;Password=mypass;"
    'Connection string соорудил сам по инфе отсюда: http://dev.mysql.com/doc/mysql/ru/myodbc-connect-parameters.html, ибо больше нигде не нашёл варианта лучше.
    'Уж на http://connectionstring.com этого я никак не нашёл. Там вапще какая-то хрень!
    conn.Close

End Sub

Говорит

Run-time error 8000ffff:
Разрушительный сбой

[Ennor]

www.connectionstrings.com

Ты про s на конце забыл .

[Q2W]

Код: Выделить всё

    conn.Open "DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.1;Port=3306;Option=3;Stmt=;Database=q;Uid=root;Pwd=mypass;"


Та же фигня!

[Ennor]

А у тебя вот эта шняга

MySQL ODBC 3.51 Driver

стоит? Открываешь Control Panel -> Administrative Tools -> Data Sources (ODBC). В этом апплете четвертая закладка - Drivers. Ну и ищешь в списке, какая именно версия ODBC-драйвера для мускула у тебя установлена, если вообще установлена хоть одна. Если ни одной не находишь - идешь сюда, выбираешь нужное и качаешь дистриб.

[Konst_One]

у него наверное просто MySQL не стартован

[Q2W]

Не, mySQL запущен на серваке, просто у меня драйвер кривой какой-то был. Поставил нормальный - заработало.

Щас Мучаюсь с двумя проблемами: русский текст сохраняется как-то криво (возвращаются вопросы) и не объявляется массив a из листинга snov'а (точнее объявляется, но при redim'е вылетает ошибка Array already dimensioned.

[Konst_One]

Код: Выделить всё

Redim Preserve (n)

[Q2W]

Variable not defined

[Konst_One]

Я тебе про ключевое слово Preserve толкую, а дальше сам смотри.

Код: Выделить всё

ReDim Preserve arr(1)

[Q2W]

Перед редимом как объявить массив?

Код: Выделить всё

'Если
    Dim a(10) As String ', то Array already dimensioned
'Если
    ReDim Preserve a(10) As String ', то Variable not defined


[Konst_One]

Код: Выделить всё

Dim  a() as String

Redim a(10)

.....


Redim Preserve a(20)

[Q2W]

Отлично, а что делать с русскими символами в базе?

русский текст сохраняется как-то криво (возвращаются вопросы)

[alexanderz]

Можно в поиске koders.com вбить "mysql" (без кавычек) - выдаст три модуля, а там уже сам...

MySQL ODBC (самая последняя версия под видны):
http://ftp.citkit.ru/pub/MySQL/Download ... -2-win.msi

[Q2W]

тут их несколько больше трёх и всё - какая-то фигня. ОДБЦ у меня и так последнее.

[Inferno]

Ндя. По умолчанию мускул создает таблицы в кодировке Latin1. Тебе очевидно нужна 1251. Ковыряйся в настройках чтобы изменить умолчания, либо создавай правильно таблицы с указанием кодировки.

[Q2W]

Inferno, фишка не в таблицах, т.к. в моей проге русский текст, который возвратил MySQL в ответ на мой вопрос, показывается нормально.
Проблема с кодировкой именно в MySQL Query Browser.