Форум: "Базы";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
ВнизКак программно отсортировать базу данных Найти похожие ветки
← →
Tolyan (2002-03-07 10:14) [32]Для себя когда-то сделал процедуру физической сортировки заданной таблицы по заданному полю через SQL может поможет. Так же нельзя было использовать индексы.( Создается временный файл.)
procedure SortTable( TB : TTable; fname : string);
const fn = "temp.dbf";
VAR flag : boolean;
st0 : string;
begin
flag:=TB.Active;
if flag then TB.Close;
st0:=fn;
CopyFile(PChar(TB.TableName),PChar(st0),true);
DM1.Qu1.SQL.Clear;
DM1.Qu1.SQL.Add("SELECT * FROM "+st0+" ORDER By "+ fname);
DM1.Qu1.Open;
TB.Exclusive:=True;
TB.EmptyTable;
TB.BatchMove(DM1.Qu1,batAppend);
TB.Active:=flag;
DM1.Qu1.SQL.Clear;
DM1.Qu1.Close;
DeleteFile(st0);
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c