Button процедура для загрузки БД

[detalik]

Здравствуйте, есть программка, суть которой заключается в том, с помощью элемента ADO.Connection привязывается БД, в которой хранятся имена компьютеров,их ip. Все в принципе работает, но обнаружился один косяк-если я выкладываю программу в сетевую папку, то поскольку в ADO.Connection прописан четкий путь к БД, то ничего работать не будет. Собственно вопрос- как написать процедуру для кнопки, чтобы можно было указать , где лежит необходимая БД. Прилагаю скрин проги для удобства . Спасибо.

Я попробовал так:

begin
If OpenDialog1.Execute then ADOConnection2.Open;

Процедура для кнопки button
Это правильно?

Видимо неправильно, т.к не работает...

[evg_m]

http://programmersforum.ru/showthread.php?t=145498
Здесь это решили.

[detalik]

Получение пути к MDB файлу:
Код:


if Form1.dlgOpen1.Execute then
begin
Form4.sStatusBar2.Panels[1].Text:=Form1.dlgOpen1.FileName;
end;

Подключение к выбранной БД:
Код:


Form2.con1.Close;
Form2.con1.ConnectionString:='Provi der=VFPOLEDB.1;Data Source=' + Form4.sStatusBar2.Panels[1].Text + ';Mode=Share Deny None;User ID="";Mask Password=False;Cache Authentication=False;Encrypt Password=False;Collating Sequence=MACHINE;DSN="";DELETED=Tru e;CODEPAGE=1251;MVCOUNT=16384;ENGIN EBEHAVIOR=90;TABLEVALIDATE=3;REFRES H=5;VARCHARMAPPING=False;ANSI=True; ';
Form2.con1.Open;

А что это такое и где это писать?...не подскажите?

Это нужно создать еще дополнительные формы?

[OlegVE]

Здравствуйте
Перетянул из ранее указанной Вам ссылки

procedure TForm1.Button1Click(Sender: TObject);
begin
  openDialog1 := TOpenDialog.Create(self);
  openDialog1.InitialDir := GetCurrentDir;
  openDialog1.Options := [ofFileMustExist];
  openDialog1.Filter :=     'MS Access files|*.mdb';

  if openDialog1.Execute
  then //ShowMessage('File : '+openDialog.FileName)
   begin
    adoconnection1.connected:=false;
    adoconnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ opendialog1.filename+  ';Persist Security Info=False';
    adoconnection1.connected:=true;
//    adoconnection1.GetTableNames(ListBox1.Items, False); // Здесь выводится список всех таблиц в БД   
   end
  else ShowMessage('Ошибка подключения');

  // Освобождаем
  openDialog1.Free;
end;

Не забудьте кинуть на форму TOpenDialog и TADOConnection (или подправьте что нужно для adoconnection1).
До свидания

[Serge_Bliznykov]

OlegVE, пример Ваш мне понравился.

единственное, я бы рекомендовал openDialog1 описать там же, где она и используется (т.е. в процедуре Button1Click). Это и нагляднее, да и надёжнее (и не будет конфликтовать, если на форме уже есть Button1Click )

Сообщение от OlegVE

procedure TForm1.Button1Click(Sender: TObject);
var openDialog1 : TOpenDialog;
begin
  openDialog1 := TOpenDialog.Create(self);

[detalik]

огромнейшее спасибо!!! все работает.

[detalik]

Здравствуйте, еще раз, а как использовать эту процедуру, если на форме два компонента DBGrid и выводят они разные таблицы одной БД, соответственно для вывода этих двух таблиц я разместил на форме 2 компонета ADOQUery, Adoconnection. Или можно это реализовать как то иначе?
Вообщем нужно вывести две таблицы одной БД. Спасибо.

[detalik]

Вот процедура для наглядности

procedure TForm1.N2Click(Sender: TObject);
begin
  openDialog1 := TOpenDialog.Create(self);
  openDialog1.InitialDir := GetCurrentDir;
  openDialog1.Options := [ofFileMustExist];
  openDialog1.Filter :=     'MS Access files|*.mdb';

  if openDialog1.Execute
  then //ShowMessage('File : '+openDialog.FileName)
   begin
    adoconnection2.connected:=false;
    adoconnection1.Connected:=false;
    adoconnection2.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ opendialog1.filename+  ';Persist Security Info=False';
    adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ opendialog1.filename+  ';Persist Security Info=False';
    adoconnection2.connected:=true;
    adoconnection1.Connected:=true;
//    adoconnection1.GetTableNames(ListBox1.Items, False); // Çäåñü âûâîäèòñÿ ñïèñîê âñåõ òàáëèö â ÁÄ   
   end
  else ShowMessage('Îøèáêà ïîäêëþ÷åíèÿ');

  // Îñâîáîæäàåì
  openDialog1.Free;
end;


end.

[Serge_Bliznykov]

ADOConnection нужен всего один!! И все ADOQuery (сколько бы их не было!) подключайте через него!

[RUSt88]

учите матчасть сначала, а потом задавайте вопросы