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

[Odvin]

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

[Dzhon]

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

[Odvin]

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

[Dzhon]

Конечно.

[Odvin]

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

[Dzhon]

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

[Odvin]

Боюсь, мы друг друга не поняли Значит так
Ты просил меня описать, какое действие я хочу выполнить в случае ошибки. Я тебе ответил:

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

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

[Sedge]

Объект 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