Hallo Jens,
das geht ja Klasse damit, einfach nur die Komponente gewechselt und schon gehts. Danke Dir!
Und ne Zeile weniger isses auch noch, da es das Clear anscheinend nicht braucht. *gg*
Delphi-Quellcode:
case SLAdress.iSortIndex of
0:
begin
if SLAdress.bSortOrder then
begin
ADODataSet1.Close;
ADODataSet1.CommandText := 'SELECT * FROM Person ORDER BY ID ASC';
ADODataSet1.Open;
// ADOQuery1.Close;
// ADOQuery1.SQL.Clear;
// ADOQuery1.SQL.Add('SELECT * FROM Person ORDER BY ID ASC');
// ADOQuery1.Open;
end
else if not SLAdress.bSortOrder then
begin
ADODataSet1.Close;
ADODataSet1.CommandText := 'SELECT * FROM Person ORDER BY ID DESC';
ADODataSet1.Open;
// ADOQuery1.Close;
// ADOQuery1.SQL.Clear;
// ADOQuery1.SQL.Add('SELECT * FROM Person ORDER BY ID DESC');
// ADOQuery1.Open;
end; //if
end;
Also wieder raus mit dem
Query, wer braucht das schon.