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

[rita3]

Добрый день. Подскажите, пожалуйста, что я не правильно пишу в коде? На форме есть adoconnection, adotable, datasourse, dbgrid, opendialog. Нужно открыть любую таблицу и БД через opendialog. При запуске приложения, когда выбираю имеющуюся таблицу с помощью opendialog выводится ошибка: 'Недопустимое имя файла'
Вот код:

PHP код:

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

  if openDialog1.Execute
  then //ShowMessage('File : '+openDialog.FileName)
   begin
   adoconnection1.connected:=false;
adoconnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(opendialog1.filename)+  ';Persist Security Info=False';
adoconnection1.connected:=true;
adotable1.Connection:=adoconnection1;
adotable1.TableName:=extractfilename(opendialog1.filename);
adotable1.Active:=true;
   end
  else ShowMessage('Îòêðûòèå ôàéëà îñòàíîâëåíî');

  // Îñâîáîæäåíèå äèàëîãà
  openDialog1.Free;
end; 


[evg_m]

adoconnection1.connectionstring:='P rovider=Microsoft.Jet.OLEDB.4.0;Dat a Source='+ ExtractFilePath(opendialog1.filename)+ ';Persist Security Info=False';

Объясните смысл выделенного?
зайдите и посмотрите

[OlegVE]

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

... openDialog1.Filter := 'MS Access files|*.mdb;*.accdb';
...
adoconnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0...
...
adotable1.TableName:=extractfilename(opendialog1.filenam e);

1. Вы открываете и *.mdb и *.accdb.
2. Для MS Access 2007 другой драйвер, а именно Microsoft.ACE.OLEDB.12.0. Нет возможности сейчас попробовать, попробуйте открыть с его помощью также *.mdb.
3. Что за таблицу Вы пытаетесь открыть? База данных MS Access идёт одним файлом в котором и таблицы и индексы и ... Посмотрите http://programmersforum.ru/showthread.php?t=98856 , может это Вам поможет в данной части, т.е. узнать имена существующих таблиц.

[rita3]

Открывать *.accdb не принципиально. Мне бы открыть единственную пока таблицу в единственной базе, но в будущем ожидается несколько баз с 1 таблицей или 1 база с несколькими таблицами, поэтому я не могу прописать имя таблицы в ADOTable1.TableName.
Спасибо за ссылку. Но могу я открывать таблицы через opendialog, не вводя имя таблицы в эдиты и др.?

[rita3]

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

Объясните смысл выделенного?

Если я использую ExtractFileName(opendialog1.filenam e),вместо ExtractFilePath(opendialog1.filenam e) то выходит ошибка:
Ядро БД MicrosoftJet не может найти входную таблицу 'mdb'. Проверьте существование таблицы и правильность имени'
Подскажите, пожалуйста, что из них нужно использовать и как решить ошибки, появляющиеся в любом случае?

[OlegVE]

Вам уже подсказывали (evg_m)

adoconnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(opendialog1.filename)+  ';Persist Security Info=False';

если не поняли, замените на следующий код

adoconnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ opendialog1.filename+  ';Persist Security Info=False';

у Вас появиться следующая ошибка
P.S. База данных Paradox размещается в папке, а база данных MS Access в файле...

[rita3]

Ошибка-то появилась: Ядро БД MicrosoftJet не может найти входную таблицу 'mdb'. Проверьте существование таблицы и правильность имени'
И как же ее исправить?

Я все равно не поняла, что мне с БД и файлом делать?

[OlegVE]

1. Откройте в MS Access свою базу данных.
2. Запомните или скопируйте название любой таблицы.
3. Вставьте это название вместо

adotable1.TableName:=extractfilename(opendialog1.filename);

следующее

adotable1.TableName:='ИмяЗапомненнойИлиСкопированнойТаблицы';

Я Вам уже давал ссылку на то, как узнать какие таблицы есть в открытой Вами базе данных... Посмотрите, потому что ответить на вопрос "Ничего не понимаю" трудно. Есть только исходные данные: алфавит rita3 знает
P.S. Перед любыми манипуляциями лучше ставить свойство Active в False.

adoconnection1.connected:=true; 
adotable1.Active:=False;
adotable1.Connection:=adoconnection1; 
...

[artemavd]

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

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

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

 Form2.con1.Close;
 Form2.con1.ConnectionString:='Provider=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=True;CODEPAGE=1251;MVCOUNT=16384;ENGINEBEHAVIOR=90;TABLEVALIDATE=3;REFRESH=5;VARCHARMAPPING=False;ANSI=True;';
 Form2.con1.Open;

P.S. Развели тут писанину по пустяковому вопросу!

[OlegVE]

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

P.S. Развели тут писанину по пустяковому вопросу!