Читаем базы данных Fox Pro из Delphi

Иногда нужно подцепиться из Delphi к таблицам и базам данных Foxpro и что-то из них наковырять. Задача  почти тривиальная, если хорошо знать матчасть, и нетривиальная, если мало практики работы с этой БД или просто лень.

В общем для выполнения этой задачи нам понадобятся компоненты ADO и драйвер FoxPro, который любезно нам предоставляет богатенький Буратино индивидуальный предприниматель из Америки Билл Гейтс.

Скачать драйвер можно с сайта доброго дядюшки Билла здесь, или если с Америкой что-то случится, то наверняка здесь

Устанавливаем драйвер в несколько кликов мыши, после чего перенесемся в Delphi: кидаем на форму компоненты для работы с БД и компонент OpenDialog, которым будем открывать таблицу FoxPro.

К кнопке прилепим вот такой код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

procedure TForm1.Button1Click(Sender: TObject);
var
DBPath:string;
begin
if OpenDialog1.Execute then
begin
DBPath:=OpenDialog1.FileName;
Q.Close;
Q.ConnectionString:='Provider=VFPOLEDB.1;Data Source='+DBPath+';Password="";Collating Sequence=MACHINE';
Q.SQL.Clear;
Q.SQL.Add('SELECT * FROM "'+DBPath+'"');
Q.Open;
end;
end;

Компилируем, запускаем наше бессмертное творение. Нажимаем кнопку, выбираем таблицу Fox Pro с расширением dbf и на выходе получаем радующую глаз картину:

Код примера можно забрать ниже:

Берегите животных, друзья.