So?
Delphi-Quellcode:
var
lsUsrDatum : TDate;
begin
lsUsrDatum :=........;
qyr_Buchungen.SQL.Clear;
qyr_Buchungen.SQL.Add('select');
qyr_Buchungen.SQL.Add(' Datum,');
qyr_Buchungen.SQL.Add(' Name,');
qyr_Buchungen.SQL.Add(' Vorname,');
qyr_Buchungen.SQL.Add(' PersNr,');
qyr_Buchungen.SQL.Add(' Abteilung,');
qyr_Buchungen.SQL.Add(' xxxxxxxxxxxxxxxxxxxxxxxxxx ');
qyr_Buchungen.SQL.Add('from Buchungen ');
qyr_Buchungen.SQL.Add('where Datum > lsUsrDatum');
oder so?
Delphi-Quellcode:
lsUsrDatum :=........;
qyr_Buchungen.SQL.Text :=
'select Datum,' +
'Name,' +
'Vorname,' +
'PersNr,' +
'Abteilung,' +
'xxxxxxxxxxxxxxxxxxxxxxxxxx ' +
'from Buchungen ' +
'where Datum > lsUsrDatum';
Auf die #13#10 kann man durchaus verzichten, solange aus dem "Rest" ein gültiges Statement wird. (Die Datenbank braucht für die Ausführung keine schöne Formatierung - sprich: wenn das
SQL ohne die #13#10 zum Einzeiler wird.)