Сортировка

← →
Nayfl (2002-10-04 06:08) [0]

Здравствуйте уважаемые мастера!
Помогите разобраться в сортировке, что я делаю не так
procedure Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: mdPro.ADOQuery1.IndexName:="Famile";
1: mdPro.ADOQuery1.IndexName:="Name";
end;
end;
Компилет нормально но при попытке отсортировать вываливает
ошибку, пишет ,что эту операцию не могу выполнить
Пробовал и так:
procedure Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: mdPro.ADOQuery1.IndexFieldNames:="Famile";
1: mdPro.ADOQuery1.IndexFieldNames:="Name";
end;
end;
Так вобще не компилет, ошибка в(IndexFieldNames)пишет -не задиклорировано IndexField.

Кстати если в другой таблице т.е.использую Table и
0: mdPro.ADOTable1.IndexFieldNames:="Famile";
и т.д.
то все сортирует отлично.
Может SQL запрос на сортировку нужен помогите пожалуйсто
написать запрос.

Помогите пожалуйсто, Мастера !!!

← →
gek © (2002-10-04 07:09) [1]

> Может SQL запрос на сортировку нужен
Именно > ORDER BY "Famile"

← →
Fix (2002-10-04 08:44) [2]

> gek
Спасибо gek , но можно поподробнее,пожалуйсто...

← →
gek © (2002-10-04 08:53) [3]

procedure Button1Click(Sender: TObject); var s,sq:string; begin case RadioGroup1.ItemIndex of 0: s:="Famile"; 1: s:="Name"; end; mdPro.ADOQuery1.close; mdPro.ADOQuery1.SQL.Clear; sq:="select * from table ORDER BY "+ s; mdPro.ADOQuery1.SQL.Add(sq); mdPro.ADOQuery1.SQL.Open; end;

← →
ЮЮ © (2002-10-04 08:53) [4]

У запроса нет индексов, порядок сдедования определяется предложением ORDER BY в тексте запроса. Правда, здесь на форуме иногда проскакивало что-то типа ADOQuery1.Sort
Посмотри. Сам не пробовал, ничего сказать не могу.

← →
Nayfl (2002-10-04 08:59) [5]

> gek
Спасибо огромное gek !!! , Попробую, думаю будет работать

Sort есть, сортируется в полученом датасете. Удобно сортировать по колонкам. из примера ADOQuery1.Sort := "LastName ASC, DateDue DESC"

Сортировка Найти похожие ветки