опустошение таблиц :-/

Если пытаться искать в Пустой таблице созданной так:

procedure CreateFilesTable;
Begin
with form1.Table_Fname do begin
Active := False;
DatabaseName := '';
TableType := ttParadox;
TableName := Tablename_Files;

if not form1.Table_Fname.Exists then begin
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'File_id';
DataType := ftAutoInc;
Required := True;
end;
with AddFieldDef do begin
Name := 'FileName';
DataType := ftString;
Size := 250;
end;
with AddFieldDef do begin
Name := 'FilePathId';
DataType := ftInteger;
end;
end;

with IndexDefs do begin
Clear;
with AddIndexDef do begin
Name := '';
Fields := 'File_id';
Options := [ixPrimary];
end;
end;
CreateTable;
end;
end;
End;

Запросом:
if not form1.Table_Fname.Locate('FileName;FilePathId', VarArrayOf([fn,newDirID]),[loCaseInsensitive]) then ...
то вылезет исключение что якобы не найдено поле FileName.
Если же забить на проверку существования, и поместить хотябы одну запись в табл, а потом опять вкл проверку - то все нормально...
Непонятные какие-то ошибки

А можно использовать вместо? База локальная и большая... что-то из стандартного набора дельфи или нет?

Альтернативой парадоксу в данном случае может выступит dBASE III+ удобнее с индексами да и файлов поменьше .:)
Но у нее тоже одна маленькая проблемка ! Нет связей в таблице но я это всегда делаю программным путем и меня это не напрягает !:p

Пасиб)

Мдя... печально...
DBaseIII+ и Paradox по сути те же eggs только в профиль.
Сейчас давно уже пишут сетевые БД, ибо связи в ней могут быть такие, что реализация программно будет выглядеть как реализация через одно место.