[Maxjuvefan]

Проблема такая: устанавливаю соединение с базой sql через AdoConnection. Ввожу в поле edit имя базы. Если введено имя существующей базы, то соединение устанавливается. А если несуществующей - то delphi 2010 выдает ошибку Error "Источник данных не найден и не указан драйвер, используемый по умолчанию". Как сделать так, чтобы выводилось корректное соообщение о т ом, что соединение не удалось установить?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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;