Обращение к таблице Access из Delphi

[Ягик]

Всем доброго времени суток! Требуется помощь.
Имеется БД в Access. К ней подключаемся с помощью компонентов ADO. Во время работы создается(динамически) таблица. Требуется заполнить эту таблицу данными. Как обратиться к этой таблице программным путем?

[artemavd]

Через OpenDialog. Получить путь до выбранного файла через OpenDialog1.FileName и присвоить его свойству ConnectionString у ADOConnection1.

[Ягик]

эээээ ммммм, а как это через OpenDialog? никогда не пробовал.
а нельзя ли сделать это через ADOTable, только Connection и TableName объявлять программно?

[artemavd]

При желании можно все. Например:

if Form1.dlgOpen1.Execute then
begin
  Form1.con1.Close;
  Form1.con1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+Form1.dlgOpen1.FileName + ';Mode=ReadWrite;Jet OLEDB:System database=""';
  Form1.con1.Open;
  Form1.con1.Connected:=True;
  Form1.tbl1.Active:=True;
end;

У Form1.tbl1 укажи в свойстве Connection Form1.con1 и выключи их. Писал код тут, не проверял. У всех компонентов ADO свойство ConnectionString должно быть очищено. И не забудь выполнить проверку подлинности, чтобы не появлялось сообщение "Не выполнена проверка подлинности"

[Ягик]

Спасибо большое! все работает.