Letzte Zeile von SQL Befehl löschen

[Sharky]

Hai abi,

arbeite auch hier mit Parametern in deinem Query. Dann wirst Du viel glücklicher sein

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text := 'SELECT * FROM standorte ORDER BY :feld';  // hier definiere ich den Parameter
  ZQuery1.ParamCheck := True;
  ZQuery1.ParamByName('feld').AsString := 'bezeichnung';  // Hier sortiere ich nach dem Feld 'bezeichnung'
  ZQuery1.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ZQuery1.Close;
  ZQuery1.ParamByName('feld').AsString := 'id'; // Jetzt sortiere ich nach dem Feld 'id'
  ZQuery1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ZQuery1.Close;
  ZQuery1.ParamByName('feld').AsString := 'ort'; // Und jetzt sortiere ich nach dem Feld 'ort'
  ZQuery1.Open;
end;