dBase

← →
Викт0р (2002-08-25 23:46) [0]

Как програмно создать таблицу формата dBase4? Пробовал:

with Table1 do
begin Active := False;
TableName := "Tabele.dbf";
TableType := ttdBase;
with FieldDefs do
begin
Clear;
Add("LOGICDATE", ftDate,0, False);
Add("DEPART", ftString, 2, False);
Add("CODE", ftString, 4, False);
Add("PRICE", ftFloat,0, False);
Add("QNT", ftFloat,0, False);
Add("DELETED", ftFloat,0, False);
end;
CreateTable;
Free;
end;
Создается таблица dBase for Windows.
Объясните пожалуйста в чем дело и как правильно.

← →
Kuusiniemi (2002-08-26 10:08) [1]

В BDEAdministrator для драйвера dBase выставляется параметр Level. Насколько помнится он по умолчанию равен 7 (dBase for Windows). Вам, насколько мне помнится, там надо выставлять то ли 3, то ли 4.

← →
Викт0р (2002-08-26 10:19) [2]

Спасибо. Еще такой вопрос: требуется чтотбы, например, поле PRICE имела длину 8 символа и два символа после запятой. Как и где это указать?

← →
Reindeer Moss Eater (2002-08-26 10:24) [3]

TFieldDef.Size:=2;
TFieldDef.Precision:=8;

← →
Викт0р (2002-08-26 10:43) [4]

на счет символов после запятой: поле я не сказал, что PRICE еще должно быть численого типа. Я писал ftInteger, ftFloat указываешь size:=2 (даже любой другой отличный от нуля)и при создании таблицы выскакивает: ...Invald field size.
Чтот надо делать?

← →
Reindeer Moss Eater (2002-08-26 10:48) [5]

1. Читать описание TFieldDef
2. Исползовать тип ftBCD

← →
ivv (2002-08-26 10:50) [6]

SQL :
create
table Tabele (
LOGICDATE Date,
DEPART String,
CODE String,
PRICE Float,
QNT Float,
DELETED Float
)

← →
ivv (2002-08-26 10:53) [7]

q := TQuery.Create(nil);

q.Databasename := "sample";

q.SQL.Text := "create "
"table Tabele ("
"LOGICDATE Date,"
"DEPART String,"
"CODE String,"
"PRICE Float,"
"QNT Float,"
"DELETED Float"
")";
try
q.ExecSQL;
funally
freeandnil(q);
end;

← →
ivv (2002-08-26 10:55) [8]

PRICE (8,2)

← →
Викт0р (2002-08-26 12:21) [9]

ivv,

PRICE(8,2) - это где указывать?

← →
deleon (2002-08-27 08:36) [10]

Чтобы создать таблицу dBase4 необходимо установить свойства
TTable :
TableLevel := 4;
TableType := ttDBase;
а затем вызвать метод CreateTable

dBase Найти похожие ветки