Zwei SQL Anweisungen in einer.

[mkinzler]

Zeig mal den ganzen Codeblock

[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;

[mkinzler]

Ersetze mal

SQL-Code:

WVKONTAKT BETWEEN :sdatum AND :edatum

mit

SQL-Code:

WVKONTAKT >= :sdatum AND WVKONTAKT <= :edatum

[Zaebos]

Invalid use of Keyword. Token: ?

[Zaebos]

Ich probiers einfach morgen selber nochmal. will ja keinen nerven. Falls ich was neues habe melde ich mich. Gute nacht zusammen.

[raiguen]

:gruebel: müsste dieser Teil des SQL-Statements

Delphi-Quellcode:

 WHERE WVKONTAKT BETWEEN :sdatum AND :edatum AND WVZEIT :szeit AND :ezeit ORDER BY WVKONTAKT,WVZEIT';

richtigerweise so lauten :gruebel:

Delphi-Quellcode:

 WHERE (WVKONTAKT BETWEEN :sdatum AND :edatum) AND (WVZEIT BETWEEN :szeit AND :ezeit) ORDER BY WVKONTAKT,WVZEIT';

m.E. fehlt(e) BETWEEN bei WVZEIT... Die Klammern hab ich gewohnheitsgemäss gleich mal mit dazu gesetzt...

[Zaebos]

Delphi-Quellcode:

Query1.active:=false;
Query1.sql.text:='SELECT FIRMA,WVZEIT,WVKONTAKT FROM SUCC1 WHERE WVKONTAKT<=:edatum ORDER BY WVKONTAKT DESC';
Query1.ParamByName('edatum').Value := Date();
query1.active:=true;

Statt TODAY() einfach Date(). Dann gehts. Danke nochmal für eure Hilfe. :-D