Zwei SQL Anweisungen in einer.

[Zaebos]

Hallo nochmal.

Ganz kurze frage am Rande. Hab ne SQL-Anweisung die mir DS mit BETWEEN sucht. Diese DatenSätze möchte ich dann nochmal sortieren. Mit OrderBy funktioniert das aber komischerweise nicht. Kann mir da wer kurz n Rat geben?

Danke schonmal.

[mkinzler]

Zeig mal deine Abfrage.

[Zaebos]

Delphi-Quellcode:

SELECT Feld1,Feld2.... FROM Tabelle WHERE Feld1 BETWEEN "01.01.1999" AND TODAY() AND Feld2 BETWEEN "0000" AND NOW()

In etwa habe ich mir das gedacht. Und dann halt noch nen ORDER BY füe die beiden Felder, sodass ich immer den aktuellen Datensatz (zeitlich am nächsten) und immer weiter abwärts habe.

[mkinzler]

Welche Typen haben Feld1 und Feld2?

[Zaebos]

Feld1 Datum, Feld2 Integer. Geht das vllt mit UNION?

[mkinzler]

Now() ist ein Timestamp. Wie willst du diese mit Integer vergleichen?

[Zaebos]

stimmt. war auch die alte anweisung. sry. hab nu für die zeit FormatDateTime genommen. und union is auch quatsch sry.

das macht die verzweiflung.

[mkinzler]

Grundsätzlich sollte es aber mot dem Order By gehen. Kommt den ein Fehler oder wird nur falsch sortiert?

[Zaebos]

mom

[mkinzler]

Zitat:

Zitat von Zaebos

mom

Was heißt das im Klartext?

[Die Muhkuh]

Zitat:

Zitat von mkinzler

Zitat:

Zitat von Zaebos

mom

Was heißt das im Klartext?

mom = Moment ;)

[mkinzler]

[OT]Hier müsst hier an die etwas älteren denken, welche dem jugendlichen Slang nicht mehr so kennen.[/OT]

[Zaebos]

Danke Muhkuh ^^ und sry kinzler. Wobei ich auch net mehr der jüngste bin -.-
Also. Hier meine Anweisung.:

Delphi-Quellcode:

Query1.sql.text:='SELECT FIRMA,KOMMENTAR,KONTAKTART,BEARBEITER,WVKONTAKT,WVZEIT,ORT,LKZEIT FROM SUCC1 WHERE WVKONTAKT BETWEEN "01.01.1999" AND '''+FormatDateTime('dd.mm.yyyy', now)+''' AND WVZEIT BETWEEN "0000" AND '''+FormatDateTime('hhmm', now)+''' ORDER BY WVKONTAKT,WVZEIT';

So hab ich mir das gedacht. Aktuelle Fehlermeldung: "Table level changed". Und ich weiss net warum. Wenn man sich schlauliest / lesen will... Ich sag besser nix...

[mkinzler]

Versuch es mal mit Parametern:

SQL-Code:

SELECT 
    FIRMA, KOMMENTAR, KONTAKTART, BEARBEITER, WVKONTAKT, WVZEIT, ORT, LKZEIT 
FROM 
    SUCC1 
WHERE 
    WVKONTAKT BETWEEN :sdatum AND :edatum AND 
    WVZEIT BETWEEN :szeit AND :ezeit
ORDER BY 
    WVKONTAKT, WVZEIT;

[Zaebos]

mom (Jetzt weiss er ja was das heisst)

[Zaebos]

habe ich das jetzt richtig verstanden:

Delphi-Quellcode:

var
sdatum,edatum:string;
szeit,ezeit:integer;
begin
sdatum:='01.01.1999';
edatum:=FormatDateTime('dd.mm.yyyy', now);
szeit:=0000;
ezeit:=strtoint(FormatDateTime('hhnn', now));

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.active:=true;

???

[Zaebos]

Habe ich das nun richtig verstanden:

Delphi-Quellcode:

var
sdatum,edatum:string;
szeit,ezeit:integer;
begin
sdatum:='01.01.1999';
edatum:=FormatDateTime('dd.mm.yyyy', now);
szeit:=0000;
ezeit:=strtoint(FormatDateTime('hhnn', now));
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.active:=true;

[Zaebos]

ich pfeife ^^

[mkinzler]

Eher:

Delphi-Quellcode:

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.Parameters.ParamByName('sdatum').asString := '01.01.1999';
Query1.Parameters.ParamByName('edatum').Value := Date();
Query1.Parameters.ParamByName('szeit').Value := 0;
Query1.Parameters.ParamByName('ezeit').Value := Now();

[Zaebos]

Hm. Okay. Würde ich ja gerne ausprobieren nur leider kann ich bei meiner TQuery-Komponente keine Params hinzufügen.

[mkinzler]

Verwendest du die BDE (TQuery) oder wie oben geschrieben ADO (TADOQuery)?

[Zaebos]

Ups BDE sry (achte ich nächstes mal besser drauf) :oops:

[mkinzler]

Delphi-Quellcode:

Query1.ParamByName('sdatum').asString := '01.01.1999';

[Zaebos]

Hmmm. Fehlermeldung "Query1: Param 'sdatum' not found.

[mkinzler]

Ist .ParamCheck True?

[Zaebos]

Nein war false.

[Zaebos]

aber ob true ob false. dadurch ändert sich aucht nix. leider. -.-

[mkinzler]

Die Parameterzuweisung ist aber nach der Zuweisung der Abfrage?

[Zaebos]

jop

[x000x]

Moin moin,

[OT] lol, ihr tackert den Thread aber schnell zu ;-)
Geht doch innen Chat, geht evtl. schneller?! [/OT]

[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