Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Подскажите, что неправильно (об индекс.файлах)

523
20 марта 2003 года
serjufa
14 / / 20.05.2000
Суть проги - создать таблицу (если надо - удалить предыдущий файл). Так вот, прога создает таблицу, затем индексный фай (проверено в проводнике). ВОПРОС: почему в Database Desktop не видно индексов.
Ниже привожу кусок программы:
if FileExists('C:\PREVIS-2\PRDATA\ngdu.DB') then
begin
DeleteFile('C:\PREVIS-2\PRDATA\ngdu.DB');
end;
if not Table1.Exists then begin
with Table1 do begin
Active := False;
DatabaseName := 'Previs';
TableType := ttParadox;
TableName := 'ngdu';
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Kod_NGDU';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin
Name := 'Name_NGDU';
DataType := ftString;
Size := 15;
end;
end;
with IndexDefs do begin
Clear;
end;
CreateTable;
end;
end;

with Table1 do begin
with IndexDefs do begin
Clear;
with AddIndexDef do begin
Name := '';
Fields := '!ngdu';
Options := [ixPrimary];
end;

with AddIndexDef do begin
Name := 'KodNGDU_Master';
Fields := 'Kod_NGDU';
Options := [ixCaseInsensitive];
end;
end;
end;
Table1.Close;
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог