Открытие БД через OpenDialog с помощью ADOConnection

[Maxjuvefan]

Доброго времени суток. Написал программу для работы с БД, используя для этого компоненты ADOConnection, ADOQuery, DataSource, DBGrid и OpenDialog1. БД с расширением mdf открывает через свойство ConnectionString компонента ADOConnection. Добавляет новые данные, редактирует, удаляет. Только вот мне понадобилось открывать БД щелчком по кнопке через компонент OpenDialog1. Как это можно сделать?

[Serge_Bliznykov]

Нужно просто формировать строчку ConnectionString у вашего adoconnection

как это сделать легко найти поиском по форуму.
например,

http://programmersforum.ru/showthread.php?t=175335

http://programmersforum.ru/showthread.php?t=237071

http://programmersforum.ru/showthread.php?t=256825

и множество других аналогичных тем...

[phomm]

Более предпочтительный имхо способ - через ADOConEd
http://www.cyberforum.ru/delphi/thread1208811.html
или тут на форуме по этому же слову поискать

[Maxjuvefan]

Проблема такая: устанавливаю соединение с базой 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;

Еще такой вопрос. Нужно подключиться к бд sql. Файл, открываемый через opendialog, идет в data sourse= . Что должен содержать этот файл и как называться (любое имя)? Это же не может быть файл *.mdf, т.к. подключенный к базе он не может быть открыт, а не подключенный, он не является источником данных...

procedure TFormConnection.Edit1Change(Sender: TObject);
var Edi : TEdit;
begin
   Edi := Sender as TEdit;
   s:=edi.Text;
end;

procedure TFormMain.ConnectionBDClick(Sender: TObject);
begin
   if OpenDialog2.Execute then
   begin
      ADOConnection1.Connected := false;
      AdoConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=' + s;
      ADOConnection1.Connected := true;
      ShowMessage('Соединение установлено!');
   end
   else
      ShowMessage('Соединение не удалось выполнить!');
end;

[Stilet]

procedure TFormConnection.ПодключитьClick(Sender: TObject);
begin   
   FormMain.ADOConnection1.Connected := false;
   FormMain.AdoConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=' + s;
 try
   FormMain.ADOConnection1.Connected := true;
   if FormMain.ADOConnection1.Connected then
   begin
      ShowMessage('Соединение установлено!');
   end
   else
   ShowMessage('Соединение не удалось установить!');
except
 on e:Exception do ShowMessage('Соединение не удалось установить!: '+e.Message);
end;
end;

Что должен содержать этот файл и как называться (любое имя)?

Имя значения не имеет. Главное формат файла.

[Аватар]

   if FormMain.ADOConnection1.Connected then
   begin
      ShowMessage('Соединение установлено!');
   end
   else
   ShowMessage('Соединение не удалось установить!');

Это зачем? Если оно не установится, то в except вывалится

[Maxjuvefan]

Все равно сначала выводит ошибку delphi Debugger Exception Notification, что источник данных не найден и не указан драйвер, используемый по умолчанию, а потом уже корректое сообщение. Можно ли как-нибудь избавиться от "системной" ошибки?

[Аватар]

Можно ли как-нибудь избавиться от "системной" ошибки?

Стартуй exe не из под делфи

[Maxjuvefan]

Хорошо, спасибо)

[Serge_Bliznykov]

Все равно сначала выводит ошибку delphi Debugger Exception Notification,

эту реакцию на ошибку можно выключить в настройках Delphi.
Но, я бы оставил. Для разработчика полезно видеть.
А так, Вы уже знаете, что пользователь программы эту ошибку не увидит, у него видно будет то сообщение, что Вы выдаетё в ветке Exception...