Как открыть любую таблицу БД аксесс через opendialog?

[OlegVE]

Отвечаю на другой вопрос:
С использование OpenDialog открыта база данных MS Access. Как узнать какие есть и просмотреть таблицы? Т.к. на Ваш никто не ответит.
Ваш код (исправленный):

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;

На форму поместите ListBox и создайте для него процедуру

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 adotable1.Active := False;
 adotable1.Connection:=adoconnection1; // А это нельзя сделать заранее?
 adotable1.TableName := ListBox1.Items[ListBox1.ItemIndex];
 adotable1.Active :=True;
end;

[rita3]

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

Извините artemavd, но похоже что эта тема вместо помощи новичкам попала в БД в Delphi. Жаль что Вы этого не поняли. Боюсь теперь Вам придётся объяснять что такое Form4.sStatusBar2.Panels[1].Text

Это объяснять, конечно, нет необходимости.

Но вот с этим мне предстоит познакомиться.

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

и Provider=VFPOLEDB.1 и как последний использовать с *.mdb и *.accdb и всё остальное связанное с этим драйвером.
Спасибо за замечание

Конечно же я не нашла его в списке поставщиков. Если дадите четкую информацию буду благодарна.

[rita3]

Я как раз таки не спрашивала, как узнать какие есть таблицы в БД. Мне нужно было открыть 1 единственную таблицу в БД через opendialog. Точнее есть несколько БД, в которых по 1 таблице. При этом не использовать никакие лист-, комбобоксы, эдиты и т.п. Это возможно?
И если я правильно поняла, если в БД есть несколько таблиц, то лист-, комбобоксы, эдиты и т.п. необходимы, а можно, опять-таки, обойтись без них и только с помощью opendialog?

P.S. Спасибо за исправление кода.

[evg_m]

чтобы иметь возможность открыть таблицу TadoTable мы должны сделать ДВЕ вещи:
1. присоединиться к БД (Opendialog)
2. указать ее имя. Не имя файла БД (openDilalog). а ИМЯ ТАБЛИЦЫ.

Это имя можно задать заранее (если знаем).
Либо выбрать из списка. по указанию пользователя
всегда выбирать первое имя из списка.(если оно есть).

[rita3]

Спасибо! Теперь все понятно.