Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748867 Tue, 14 Jun 2005 17:06:41 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748867 Большое всем спасибо!!! :)


ТЕМА ЗАКРЫТА :'(]]> neznayka Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748806 Tue, 14 Jun 2005 15:23:52 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748806 Anatoly Podgoretsky Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748752 Tue, 14 Jun 2005 14:38:18 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748752 Цитата neznayka @
Я так понял что надо создать индексный файл.

:yes:
    create index

Цитата neznayka @
И после добавления записей его надо обновлять.

Cтруктурные индексы (MDX) всегда подключенны к базе и при изменении записей - обновляються автоматически.]]> Bas Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748721 Tue, 14 Jun 2005 14:16:08 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748721 Цитата
Не проще на этапе проектирования добавить все индексы в IndexDefs , а нужный индекс активировать по клику на Title грида(кнопку,выбрать из списка,....)


И так пробовал через IndexDefs на уровне проектирования создавал.
(при этом по идеи чуть ниже список с индексами таблицы (IndexName) если я добавил то они должны били там появится а их там нету :((( )

При попытке выбрать индекс через Table1.IndexName:='NAZ'; пишет

Цитата
Table1: index does not exist index: NAZ
:wacko:

Я так понял что надо создать индексный файл. Как это сделать? И после добавления записей его надо обновлять.]]> neznayka Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748027 Tue, 14 Jun 2005 06:04:30 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748027 Цитата Anatoly Podgoretsky @
Какие то странные манипуляции с индексами. Зачем?

:yes:
Не проще на этапе проектирования добавить все индексы в IndexDefs , а нужный индекс активировать по клику на Title грида(кнопку,выбрать из списка,....)]]> Bas Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748019 Tue, 14 Jun 2005 05:55:56 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748019 Anatoly Podgoretsky Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748008 Tue, 14 Jun 2005 05:41:12 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=748008 2.BDE - не отпустило таблицу
3.При создании индексов таблица должна быть открыта в монопольном режиме.]]> Bas Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=747743 Mon, 13 Jun 2005 18:06:30 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=747743
    procedure sort1(TABLE1:TTable;listbox1:TListBox);
    var s:string;
       List: TStrings;
       i:integer;
    begin
    Table1.IndexDefs.Update;
    TABLE1.GetIndexNames(listbox1.Items);
    if listbox1.Items.Count>0 then  begin
    for i:=0 to listbox1.Items.Count do begin
         if listbox1.Items.Strings[i]='NEWINDEX2' then begin
     
     
    Table1.AddIndex('NewIndex1', 'NAZVA', [IxExpression]);
    Table1.IndexName:='NewIndex1';
    Table1.IndexDefs.Update;
    Table1.DeleteIndex('NewIndex2');
    end
    else begin
        Table1.AddIndex('NewIndex2', 'NAZVA', [IxExpression]);
    Table1.IndexName:='NewIndex2';
    Table1.IndexDefs.Update;
    Table1.DeleteIndex('NewIndex1');
            end;
            break;
            end;
            end
            else  begin
    Table1.AddIndex('NewIndex2', 'NAZVA', [IxExpression]);
    Table1.IndexDefs.Update;
    Table1.IndexName:='NewIndex2';
     Table1.IndexDefs.Update;
     
                  end;
     
    TABLE1.Refresh;
    end;

Проблема другая всё харашо работала в друг начло писать
Цитата
Class EDBEngine error whith message ‘Table is busy’
]]> neznayka Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=747698 Mon, 13 Jun 2005 17:16:13 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=747698 Anatoly Podgoretsky Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=747676 Mon, 13 Jun 2005 17:02:23 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=747676 Цитата neznayka @
возникает ошибка
Project Project1.exe raised exception class EDatabaseError with message ‘Table: No index for fields ‘WID_TRANSP’’. Process stopped. Use step or run to continue

нет индекса для поля WID_TRANSP

Цитата neznayka @
Подскажете как можно отсортировать

или индекс создать, дла вышеуказанного поля, или запрос с Order By:
    Select * From YorTable
    Order By  WID_TRANSP
]]> SPrograMMer Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=747596 Mon, 13 Jun 2005 15:29:11 +0000 Сортировка https://forum.sources.ru/index.php?showtopic=98930&view=findpost&p=747596 2) BDE
Здравствуйте у меня проблемка.
При попытке сортировки элементов в DBGrid1 таким кодом

if table1.IndexFieldNames='NAZVA' then table1.IndexFieldNames:='NAZVA'
else table1.IndexFieldNames:='WID_TRANSP';

возникает ошибка
Project Project1.exe raised exception class EDatabaseError with message ‘Table: No index for fields ‘WID_TRANSP’’. Process stopped. Use step or run to continue. :wall:

Подскажете как можно отсортировать.]]> neznayka Delphi: Базы данных