[id2014]

Вот рабочий код для Dbf файлов.
Можно ли сделать так же для Pervasive? Что нужно поменять?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var	AppFolderPath	: string;
begin
// подключаемся к ДБФ и выводим данные в таблицу
     AppFolderPath := copy(ExtractFilePath(Application.ExeName),1,length(ExtractFilePath(Application.ExeName))-1);

     ADOTable1.Active:=false;
     ADOConnection1.Connected:=false;

     ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source="' +AppFolderPath + '";Extended Properties="DBASE IV;";"';

     ADOConnection1.LoginPrompt:=false;
     ADOConnection1.Mode:=cmReadWrite;
     ADOConnection1.Connected:=true;

// err.dbf находится в папке AppFolderPath (в данном случае в папке с программой)
     ADOTable1.TableName:='err';
     ADOTable1.Active:=true;

// Подключение выполнено

end;

Админ: Пользуемся тегами для оформления кода!