SQL Befehl (SELECT Begriff FROM Tabelle) Was stimmt nicht?

[Sharky]

Zitat von Plague:

... dass es sich um einen undefinierten Bezeichner handelt....

Uff... mein Fehler! Es heist ParamByName ohne das s in der Mitte.

[Plague]

Ich musste den Quelltext nun so umschreiben damit das Programm ausgeführt werden kann.

Delphi-Quellcode:

q:= Combobox1.Text;
with ZReadOnlyQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('SELECT * FROM Tabelle WHERE');
    SQL.Add('id LIKE %:id% OR ');
    SQL.Add('name LIKE %:name% OR ');
    SQL.Add('vorname LIKE %:vorname% OR ');
    SQL.Add('strasse LIKE %:strasse% OR ');
    SQL.Add('plz LIKE %:plz% OR ');
    SQL.Add('stadt LIKE %:stadt% OR ');
    SQL.Add('email LIKE %:email% OR ');
    SQL.Add('notiz LIKE %:notiz%');
    ParamByName ('id').AsString := q;
    ParamByName ('name').AsString := q;
    ParamByName ('vorname').AsString := q;
    ParamByName ('strasse').AsString := q;
    ParamByName ('plz').AsString := q;
    ParamByName ('stadt').AsString := q;
    ParamByName ('email').AsString := q;
    ParamByName ('notiz').AsString := q;
    open;
  end;

Nun wird aber immer ein Fehler angezeigt, dass der Paramter "Name" nicht gefunden wurde.

[Sharky]

Zitat von Plague:

..Nun wird aber immer ein Fehler angezeigt, dass der Paramter "Name" nicht gefunden wurde.

Hmmm... nur bei Name? Oder auch bei ID und den anderen Feldern?

[Plague]

Das ist der Fehler der angezeigt wird.
Kann dir daher nicht sagen ob es noch weitere Fehler gibt. Aber davon ist denke ich auszugehen.

[Sharky]

Versuche es mal so:

Delphi-Quellcode:

q:= '%' + Combobox1.Text + '%';
with ZReadOnlyQuery1 do 
  begin 
    close; 
    SQL.Clear; 
    SQL.Text.Add := ('SELECT * FROM Tabelle WHERE'); 
    SQL.Text.Add := ('id LIKE :id OR '); 
    SQL.Text.Add := ('name LIKE :name OR '); 
    SQL.Text.Add := ('vorname LIKE :vorname OR '); 
    SQL.Text.Add := ('strasse LIKE :strasse OR '); 
    SQL.Text.Add := ('plz LIKE :plz OR '); 
    SQL.Text.Add := ('stadt LIKE :stadt OR '); 
    SQL.Text.Add := ('email LIKE :email OR '); 
    SQL.Text.Add := ('notiz LIKE :notiz'); 
    ParamsByName ('id').AsString := q; 
    ParamsByName ('name').AsString := q; 
    ParamsByName ('vorname').AsString := q; 
    ParamsByName ('strasse').AsString := q; 
    ParamsByName ('plz').AsString := q; 
    ParamsByName ('stadt').AsString := q; 
    ParamsByName ('email').AsString := q; 
    ParamsByName ('notiz').AsString := q; 
    open; 
  end;

[Plague]

Da kommt leider genau der gleiche Fehler.
ID überspringt der und bei Name kommt wieder der Fehler...

[rsilo]

hast du SQLExec verwendet.
Du musst SQLExec nach open einsetzen!

Bei Schreibzugriffen in SQL (also nicht SELECT) muss es die Eigenschaft Activate. Diese Eigenschaft kannst du dann statt SQLExec verwenden.
MfG

rsilo

[Plague]

SORRY
Mein Fehler

Ich hatte mich einmal verschrieben...

Vielen Dank!

[Sharky]

Hmmm.... also mein Compiler bringt keinen Fehler bei diesem Code:

Delphi-Quellcode:

    close;
    q := '%test%';
    close;
    SQL.Clear;
    SQL.Add ('SELECT * FROM Tabelle WHERE');
    SQL.Add ('id LIKE :id OR ');
    SQL.Add ('name LIKE :name OR ');
    SQL.Add ('vorname LIKE :vorname OR ');
    SQL.Add ('strasse LIKE :strasse OR ');
    SQL.Add ('plz LIKE :plz OR ');
    SQL.Add ('stadt LIKE :stadt OR ');
    SQL.Add ('email LIKE :email OR ');
    SQL.Add ('notiz LIKE :notiz');
    ParamByName ('id').AsString := q;
    ParamByName ('name').AsString := q;
    ParamByName ('vorname').AsString := q;
    ParamByName ('strasse').AsString := q;
    ParamByName ('plz').AsString := q;
    ParamByName ('stadt').AsString := q;
    ParamByName ('email').AsString := q;
    ParamByName ('notiz').AsString := q;
    open;

[rsilo]

Sorry