SQL-Abfrage mit BETWEEN geht nicht.

[Die Muhkuh]

Hi,


bin grad in SQL eingestiegen und schon kommen die Fehler :mrgreen:

Mein Code:

Delphi-Quellcode:

SQL.Close;
  SQL.SQL.Add('SELECT * FROM artikel' +
              'WHERE verkaufspreis BETWEEN 80 AND 500');
  SQL.Open;

Kommt eine Meldung:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EDBEngineError aufgetreten. Meldung: 'Ungültiges Schlüsselwort
Symbol-String: BETWEEN
Zeilennummer: 1'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------


verkaufpreis ist mit $ (Währung) angeben (in der DB).

Vielleicht kann mir jemand helfen ;).

[bttb930]

füg mal ein freizeichen vor dem WHERE ein, dann geht's

[Sharky]

Zitat:

Zitat von Spider

Hi,
bin grad in SQL eingestiegen und schon kommen die Fehler :mrgreen:

Mein Code:

Delphi-Quellcode:

SQL.Close;
  SQL.SQL.Add('SELECT * FROM artikel' +
              'WHERE verkaufspreis BETWEEN 80 AND 500');
  SQL.Open;

.

Hai Spider,
den Grund für die Fehlermeldung hat bttb930 ja schon gesagt ;-)
Zur Zeit schaut dein SQL-Befehl ja so aus:

SQL-Code:

SELECT * FROM artikelWHERE verkaufspreis BETWEEN 80 AND 500

Dann noch drei Tips zu deinem Code:

a) SQL ist wohl deine Querykomponente? In diesem Fall fürde ich ihr auch einen Namen geben der zeigt das es sich um ein Query handelt.
b) Du fügst mit .SQL.ADD eine neue Zeile zu deiner Abfrage hinzu. Wenn diese vorher aber schon einen SQL-Befehl enthalten hat bekommst Du ein Problem. Also entweder vorher ein .SQL.Clear oder direckt die Eigenschaft SQL.Text setzen.
c) Fange so früh wie möglich (jetzt gleich) an beim Aufbau deiner SQL-Befehle mit Parametern zu arbeiten. Das wird dir viel arbeit ersparen

[Die Muhkuh]

Moin,

Thx, das war der Fehler!

@Fish

zu a) Im moment hab ich eh bloß eine Query, ein DBGrid, eine Datesource und ein Button aufem Formular. Das wird nix größeres nur mal so zum testen der einzelnen Funktionen von SQL.

zu b) Wird gemacht!

zu c) Wie meinst du das genau? So:

Delphi-Quellcode:

var
  Name: String;
begin
  Name := Edit1.Text;
  [...}
  SQL.SQL.Add('SELECT ' + Name + ' FROM [...}');

*MFG*

PS: Mein Code sieht nun so aus:

Delphi-Quellcode:

  SQL.Close;
  SQL.SQL.Clear;
  SQL.SQL.Add('SELECT name, einkaufspreis FROM artikel WHERE verkaufspreis ' +
              'BETWEEN 60 AND 800');
  SQL.Open;

[Sharky]

Zitat:

Zitat von Spider

..
zu c) Wie meinst du das genau? So:
.
.
.

Hai Spinnengetier ;-)

Nö, ich meinte Parameter
In deinem Fall also so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  With Query1 do
  begin
    Close;
    SQL.Text :=
     'SELECT name, einkaufsprei FROM artikel' + #10
     + 'WHERE verkaufspreis BETWEEN :wert1 AND :wert2';
    // :wert1 und :wert2 sind die Parameter.
    // Diese werden dann erst gesetzt.
    ParamCheck := True;
    Params.ParamByName('wert1').AsInteger := 60;
    Params.ParamByName('wert2').AsInteger := 800;
    Open;
  end;
end;

[Die Muhkuh]

@Nicht_Säugetierfähige_Gatung :mrgreen:


Aso. Und bei den Werten muss immer ein Doppelpunk( : ) davor sein? Warum?

[mirage228]

Zitat:

Zitat von Spider

@Nicht_Säugetierfähige_Gatung :mrgreen:


Aso. Und bei den Werten muss immer ein Doppelpunk(:) davor sein? Warum?

Hi

Weils Parameter sind, muss der Doppelpunkt stehen. Dann kannst du sie mit ParamByName z.B. ansprechen ;)

mfG
mirage228

[Sharky]

Zitat:

Zitat von Spider

...muss immer ein Doppelpunk(:) davor sein? Warum?

Damit sie als Parameter erkannt werden ;-)
Wie Du sie dann nennst ist egal, nur der Doppelpunkt davor ist wichtig.
Hier hatte ich schon einmal etwas zu den Parametern geschrieben. Dann wird es sicher auch einleuchtender warum Du sie verwenden solltest.

[Die Muhkuh]

Hai,

und das gleiche könnte ich auch mit INSERT INTO machen?

z.B.:

Delphi-Quellcode:

SQL.Close;
  SQL.SQL.Clear;
  SQL.SQL.Add('INSERT INTO artikel (name, einkaufspreis, verkaufspreis, bestand)' +
              ' VALUES (":name", ":ek", ":vk", ":bestand")');
  SQL.Params.ParamByName('name').AsString := Edit1.Text;
  SQL.Params.ParamByName('ek').AsString := Edit2.Text;
  SQL.Params.ParamByName('vk').AsString := Edit3.Text;
  SQL.Params.ParamByName('bestand').AsString := Edit4.Text;
  SQL.Open;

Und dann noch so ne grundlegende Frage:

Wo ist der Unterschied zwischen:

Delphi-Quellcode:

SQL.Params.ParamByName('name').AsString := Edit1.Text

und

Delphi-Quellcode:

SQL.ParamByName('name').AsString := Edit1.Text

?

[Sharky]

Zitat:

Zitat von Spider

...und das gleiche könnte ich auch mit INSERT INTO machen?..

Jup. Du kannst Parameter aber nicht für z.B. den Tabellennamen nehmen.

Delphi-Quellcode:

begin
  SQL.Close;
  SQL.SQL.Clear;
  SQL.SQL.ADD ('SELECT * FROM :tabelle');
  ParamByName ('tabelle').AsString := 'artikel';
end;

Geht z.B. nicht.

Zitat:

Wo ist der Unterschied zwischen:...

Es gibt keinen, der Compiler erkennt das ParamByName eine "untereigenschaft" von Params ist.