|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверка на установление связи с БД
Проблема такая: устанавливаю соединение с базой sql через AdoConnection. Ввожу в поле edit имя базы. Если введено имя существующей базы, то соединение устанавливается. А если несуществующей - то delphi 2010 выдает ошибку Error "Источник данных не найден и не указан драйвер, используемый по умолчанию". Как сделать так, чтобы выводилось корректное соообщение о т ом, что соединение не удалось установить?
Код:
procedure TFormConnection.Edit1Change(Sender: TObject); var Edi : TEdit; begin Edi := Sender as TEdit; s:=edi.Text; end; procedure TFormConnection.ПодключитьClick(Sender: TObject); begin FormMain.ADOConnection1.Connected := false; FormMain.AdoConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=' + s; FormMain.ADOConnection1.Connected := true; if FormMain.ADOConnection1.Connected = true then begin ShowMessage('Соединение установлено!'); end else ShowMessage('Соединение не удалось установить!'); end; Последний раз редактировалось lmikle, 01.10.2015 в 23:00. |
#2
|
||||
|
||||
Код:
try FormMain.ADOConnection1.Connected := true; except ShowMessage('Ну не шмогла я...'); end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |