Помогите начинающему, как программно создать DBF файл

← →
Ali2002 © (2002-11-13 13:29) [0]

Мастера помогите как программно создать DBF файл.
Делаю, как в книге Фаронова не работает, создает файл типа Paradox? а не Dbase ? подскажите как сделать.

tb8.active:=false;
tb8.DataBaseName:="f8";
tb8.TableName:="da010601.dbf";
tb8.tabletype:=ttDBASE;

if not tb8.Exists then begin
with tb8 do begin
tb8.CreateTable;
tb8.Active:=true;
end;
end;

← →
John13 (2002-11-13 13:47) [1]

Он у тебя создает DB-файл или DBF, но Paradox`овский?

← →
Ali2002 © (2002-11-13 14:39) [2]

Пишет расширение DBF, пытаюсь просмотреть с помощью FoxPro пишет не могу открыть файл, формат не DBF, в чем причина ?

← →
REP (2002-11-13 14:47) [3]

Попробуй tb8.tabletype:=ttFoxPro
или уменьши в BDE Administrator`e в Cofiguration\Drives\Native\DBase Level=3 (можно 4)
Вроде Foxpro 2.6 выше не понимает.

← →
vvm (2002-11-13 15:30) [4]

with tbl do
begin
Close;
DatabaseName := pathDir;
TableType := ttDBase;
TableName := "FILE1.DBF";
Exclusive := False;
with FieldDefs do
begin
Clear;
with AddFieldDef do
begin
Name := "FIELD1";
DataType := ftInteger;
end;
with AddFieldDef do
begin
Name := "FIELD2";
DataType := ftString;
Size := 50;
end;
with AddFieldDef do
begin
Name := "FIELD3";
DataType := ftCurrency;
end;

end;
CreateTable;
end;

Помогите начинающему, как программно создать DBF файл Найти похожие ветки