Datensätze im DBGrid sortieren

[Privateer3000]

Hallo, mit folgender procedure will ich die Datensätze
in einem DBGrid sortieren:

Delphi-Quellcode:

procedure TForm4.bagridTitleClick(Column: TColumn);
begin
with artikel do begin
  Close; SQL.Clear;
  SQL.Text:='SELECT * FROM basisart ORDER BY :LI1 ASC';
  Prepared:=True;
  Parameters.FindParam('LI1').Value:=Column.FieldName;
  Open;
end;
end;

nach einem Click passiert auch was, allerdings ist nicht
ersichtlich was er sortiert hat. Jedenfalls nicht das
auf das ich geklickt habe.
Nach einem 2. klick passiert garnichts mehr...
Ist irgendwas falsch am Code, oder muss an der Kompo
noch eine Eigenschaft eingestellt werden?

Grüße

[joachimd]

Parameter dürfen nur Werte ersetzen, keine Spaltennamen. Baue es so um:

Delphi-Quellcode:

procedure TForm4.bagridTitleClick(Column: TColumn);
begin
with artikel do begin
  Close; 
//  SQL.Clear; //unnötig, da eh der Text neu gesetzt wird!!!
  SQL.Text:='SELECT * FROM basisart ORDER BY ['+Column.FieldName+'] ASC';
  Open;
end;
end;

[Privateer3000]

Perfekt! Danke !!!

[joachimd]

mir ist da noch was eingefallen
Falls der Benutzer trotz Umsortierung auf demselben Datensatz bleiben will/soll, dann solltest Du zuvor den PK einlesen und nach der Abfrage wieder darauf ein Locate machen.

[alzaimar]

Schon mal TADOTable und die Eigenschaft 'IndexFieldNames' probiert?

oder eine TADOQuery, einen TProvider und ein TClientDataset, das kann auch sortieren.

Vorteil: Man belastet das DBMS nicht.

[Privateer3000]

Zitat von joachimd:

mir ist da noch was eingefallen
Falls der Benutzer trotz Umsortierung auf demselben Datensatz bleiben will/soll, dann solltest Du zuvor den PK einlesen und nach der Abfrage wieder darauf ein Locate machen.

Danke für den Tipp,
ich nehme an du meinst den private key?!
Wie muss man dies machen, in den Speicher einlesen,
also in eine variable packen?

[joachimd]

eigentlich den PRIMARY KEY.
Je nach Datentyp in etwa so:

Delphi-Quellcode:

var
  id: integer;
begin
  //...
  id:=query.fieldbyname('id').asinteger;
  query.DisableControls;
  query.close;
  query.sql.text:= ...
  query.open;
  query.locate('id',id,[]);
  query.EnableControls;
  //...
end;

[Privateer3000]

Alles klar, vielen Dank!