Отключение диалога при ошибке подключения к Jet через ADO

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Odvin
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 10.05.2004 (Пн) 22:20
Откуда: Москва, Россия

Отключение диалога при ошибке подключения к Jet через ADO

Сообщение Odvin » 05.08.2004 (Чт) 13:37

Я использую ADO (через VB6 Data Environment). Во время выполнения программы при ошибке подключения к базе данных Jet 4.0 (Access 2000) появляется диалоговое окно для ввода правильных параметров подключения. Хотелось бы как-нибудь отключить это окно, чтобы вместо него просто появлялось сообщение вроде "Не удалось подключиться к БД". Это можно как-нибудь сделать?

Dzhon
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 236
Зарегистрирован: 09.12.2003 (Вт) 13:30
Откуда: Россия, Омск

Сообщение Dzhon » 08.08.2004 (Вс) 12:13

Опиши процедуру обработки ошибки.

Odvin
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 10.05.2004 (Пн) 22:20
Откуда: Москва, Россия

Сообщение Odvin » 08.08.2004 (Вс) 13:38

Что ты имеешь в виду? Какое действие я хочу выполнить в случае ошибки?

Dzhon
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 236
Зарегистрирован: 09.12.2003 (Вт) 13:30
Откуда: Россия, Омск

Сообщение Dzhon » 09.08.2004 (Пн) 5:06

Конечно.

Odvin
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 10.05.2004 (Пн) 22:20
Откуда: Москва, Россия

Сообщение Odvin » 10.08.2004 (Вт) 13:20

Выдать сообщение типа "Не удалось подключиться к базе данных" и завершить работу программы. (Инициализация соединения происходит в начале работы.)

Dzhon
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 236
Зарегистрирован: 09.12.2003 (Вт) 13:30
Откуда: Россия, Омск

Сообщение Dzhon » 11.08.2004 (Ср) 5:11

Не понял :roll: это вопрос или мысли в слух :lol:

Odvin
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 10.05.2004 (Пн) 22:20
Откуда: Москва, Россия

Сообщение Odvin » 11.08.2004 (Ср) 9:36

Боюсь, мы друг друга не поняли :roll: Значит так :)
Ты просил меня описать, какое действие я хочу выполнить в случае ошибки. Я тебе ответил:
Выдать сообщение типа "Не удалось подключиться к базе данных" и завершить работу программы. (Инициализация соединения происходит в начале работы.)

Т.е. я имел в виду, что в случае, если ADO не удалось подключиться к базе данных формата Access 2000 через Jet 4.0, я хочу, чтобы появлялось не стандартное окно ADO для ввода параметров подключения, а мое собственное сообщение об ошибке, после чего программа завершала работу. Я понятно изъясняюсь? :D

Sedge
Alternative Choice
Alternative Choice
Аватара пользователя
 
Сообщения: 1049
Зарегистрирован: 16.05.2002 (Чт) 18:23
Откуда: Somewhere-In-The-Net

Сообщение Sedge » 11.08.2004 (Ср) 10:32

Объект Connection в дизайн-тайм. Свойство RunPromptBehavior устанавливаешь в adPromprNever. Спрашивать не будет. Далее в событии ConnectComplete проверяешь значение adStatus и, в зависимости от него, выводишь нужное сообщение.

Код: Выделить всё
Private Sub Connection1_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
  If adStatus = adStatusErrorsOccurred Then MsgBox "ERROR!"
End Sub


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

    TopList  
cron