Was stimmt nicht? --> SQL Abfrage

[Plague]

Hallo,

bei der Abfrage einer MySQL Datenbank erscheint folgender Fehler:
SQL Error: You have an error in your SQL syntax near " at line 1.

Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
LI: TListItem;
q :string;
begin
q:= '%' + Edit1.Text + '%';
with ZReadOnlyQuery1 do
  begin
    close; 
    SQL.Clear;
    SQL.Add ('SELECT * FROM Adresse WHERE');
    SQL.Add ('ID LIKE :ID OR ');
    SQL.Add ('Name LIKE :Name OR ');
    SQL.Add ('Vorname LIKE :Vorname OR ');
    SQL.Add ('Adresse LIKE :Adresse OR ');
    SQL.Add ('PLZ LIKE :PLZ OR ');
    SQL.Add ('Stadt LIKE :Stadt OR ');
    ParamByName ('ID').AsString := q;
    ParamByName ('Name').AsString := q;
    ParamByName ('Vorname').AsString := q;
    ParamByName ('Adresse').AsString := q;
    ParamByName ('PLZ').AsString := q;
    ParamByName ('Stadt').AsString := q;
    open;
    ListView1.Items.BeginUpdate;
    Listview1.Items.Clear;
    while not (EOF) do
    begin
      LI := Listview1.Items.Add;
      LI.ImageIndex := 0;
      LI.Caption := (FieldByName('ID').AsString);
      LI.SubItems.Add(FieldByName('Name').AsString);
      LI.SubItems.Add(FieldByName('Vorname').AsString);
      LI.SubItems.Add(FieldByName('Adresse').AsString);
      LI.SubItems.Add(FieldByName('PLZ').AsString);
      LI.SubItems.Add(FieldByName('Stadt').AsString);
      Next;
    end;
    ListView1.Items.EndUpdate;
    close;
  end;
end;

Danke
Thomas

[Leuselator]

Schnellschuss: versuch mal zwischen dem letzten Q.SQL.Add und dem ersten Q.SQL.ParamByName ein Q.Prepare einzufügen.

[Robert_G]

@Leuselator -> Augen auf

@Plaque nimm das letzte "OR" weg -> danach kommt doch kein Vergleich mehr!

[Plague]

Hat nichts gebracht.
Das verwunderliche ist auch, dass es mit dem Code in einem anderen Programm funktioniert. Was kann es sein...???

[Robert_G]

mit dem "OR" am Ende? Das geht nicht...

[DelphiDeveloper]

könnte mir vorstellen dass du die echten strings so angeben musst:

ParamByName ('Name').AsString := quotedstr(q);

[Robert_G]

Zitat von DelphiDeveloper:

...ParamByName ('Name').AsString := quotedstr(q);

Wird nicht klappen. Die "Parameter" sind SQL-Variablen, die nicht in den String des Statements gebastelt werden, sondern wirkliche Variablen im Statement sind.

Delphi-Quellcode:

  ...
  q:= 'Hallo';
  ParamByName ('Name').AsString := quotedstr(q);

... ergibt dann ...
 #39 + 'Hallo' + #39 ... in der Variable.

[Plague]

Ich bin soooo dumm...
Doch, die Variante mit dem OR wegmachen, hat gestimmt...
Es klappt jetzt...

Danke
Thomas