Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > VB+SSH+MySQL=проблема

Автор: velltar 24.9.2009, 19:22

Проблема конекта из VB через SSH к MySQL, пишет что не может приконектится. Может кто знает в чем может быть проблема. Опишу все ключевые моменты в деталях.
1. Хостинг Мастерхост с поддержкой базы данных. Логин, хост, пароль сразу говорю что верные на 100%
2. Поддержка доступа через SSH на этом тарифе присудствует.
3. Для конекта к базе через SSh использую софт Plink (и конект происходит удачно).
4. Для конекта к самой базе использую библиотеки VBMySQLDirect.dll + подключаю ее в самом проекте и библиотека libmysql.dll которую положил в папку windows\system32
5. ПО Vista
6. Код конекта к базе

Код


Private Function OpenDB() As Boolean
' Устанавливает соединение с MySQL
' Если соединение успешно установлено, возвращает True. Если возникла ошибка, показывает сообщение об ошибке и возвращает False
On Error GoTo eo
conConnection.CursorLocation = adUseClient
conConnection.OpenConnection MySqlServer, Login, Password, DataBaseName, MySqlPort
OpenDB = True
Exit Function

eo:
MsgBox conConnection.Error.Description, vbCritical, "Не удаётся подключиться к базе данных"
OpenDB = False
End Function

ВАЖНОЕ ЗАМЕЧАНИЕ
Полгода назад писал прогу эту под XP и все работало. Грубо говоря вчера взял исходник рабочий запустил под вистой и уже не пашет. Вот и ломаю голову в чем дело.
Помогите пожалуйста разобратся

Автор: Akina 24.9.2009, 20:01

M
Akina

Используйте тег "Код".

Добавлено через 2 минуты и 8 секунд
1) На какой именно строке возникает ошибка?
2) Какой именно код ошибки?
3) Каков статус соединения в момент возникновения ошибки?

Автор: velltar 24.9.2009, 20:31

Ошибка происходит в сам момент конекта к базе вот здесь

Код


conConnection.OpenConnection MySqlServer, Login, Password, DataBaseName, MySqlPort
OpenDB = True

После успешного конекта OpenDB должен быть True, но конект почему то не происходит и обработчик ошибок перенаправляет на MSGBox

Код


On Error GoTo eo
.....
.....
eo:
MsgBox conConnection.Error.Description, vbCritical, "Не удаётся подключиться к базе данных"
OpenDB = False

Ошибка критическая №16 выдает, только такую я не знаю
Описания Ошибки не выдает, только номер

Автор: Akina 24.9.2009, 20:54

Отключите обработчик ошибки и запустите программу из-под среды. Полученную информацию - в студию.

Автор: velltar 24.9.2009, 21:09

вот теперь немного проясняется ситуация. Ошибка 48 libmySQL не находит. В системной папке лежит, даже в папку с исходником положил - эффект нулевой

Автор: Akina 24.9.2009, 21:11

А зарегистрировал?

Код


regsvr32 c:\windows\system32\libmysql.dll

Автор: velltar 24.9.2009, 21:16

Зарeгистрировать не хочет. Говорит что возможно libmysql.dll не совместим с данной версией Windows. Vista так ее! :(

Автор: Akina 24.9.2009, 21:23

Вот тебе и корень проблемы. Обновляй коннектор.

Автор: velltar 24.9.2009, 21:51

Проблема решена. ОГРОМНЕЙШЕЕ спасибо всем. Проблема как всегда была на поверхности. Надо было просто обновить коннектор к базе. Всем удачи, хорошего настроения и отличных выходных smile

Добавлено через 5 минут и 23 секунды
Akina жаль не могу поставить тебе + постов не хватает, но благодарю от души smile