Форум: "Базы";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
ВнизAddIndex Найти похожие ветки
← →
ArtemB (2003-05-19 12:11) [0]Как в базе dbf найти существует ли такой индекс
если да, то удалить его (чтобы потом создать его)
если нет,то создать его
Вопрос возник по случаю:
необходимо создавать индексацию таблицы по полям, которые выбраль пользователь, НО для этого чтоб не городить много комбинации полей для индекса, видимо нужно работать с обним индексным файлом, в котором то создавать набор полей для индексаци, то удалять...
ИЛИ я ошибаюсь и есть решение лучше???
← →
гончий (2003-05-19 12:23) [1]procedure CreateIndex(Tbl: TTable; IndexName: string);
var
IPos: Integer;
List: TstringList;
begin
List := TstringList.Create;
try
Tbl.GetIndexNames(List);
IPos := List.IndexOf(IndexName);
if( IPos > -1 )then
{ удаляем индекс }
else
{ создаем индекс };
finally
List.Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c