Zwei SQL Anweisungen in einer.

[Zaebos]

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
Query1.active:=false;
Query1.sql.text:='SELECT FIRMA,KOMMENTAR,KONTAKTART,BEARBEITER,WVKONTAKT,WVZEIT,ORT,LKZEIT FROM SUCC1 WHERE WVKONTAKT BETWEEN :sdatum AND :edatum AND WVZEIT :szeit AND :ezeit ORDER BY WVKONTAKT,WVZEIT';
Query1.ParamByName('sdatum').asString := '01.01.1999';
Query1.ParamByName('edatum').Value := Date();
Query1.ParamByName('szeit').Value := 0;
Query1.ParamByName('ezeit').Value := Now();
query1.active:=true;
end;