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

[fkerber]

Hi!

Zitat von Sharky:

WHERE name = 'sharky'

Müsste wohl so aussehen bei dir:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
LI: TListItem;
q :string;
begin
q:= Combobox1.Text;
with ZReadOnlyQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Text := ('SELECT * FROM Tabelle WHERE jahr='+q);
    open;

Ciao fkerber


edit: Der hai war schneller

[Plague]

Aber es ist ja nicht immer ein Jahr das ist Suche. Manchmal (bzw. eigentlich immer) ist es ein Stickwort aus den restlichen Spalten.
Wie mache ich das dann?

[Sharky]

Zitat von Plague:

Aber es ist ja nicht immer ein Jahr das ist Suche. Manchmal (bzw. eigentlich immer) ist es ein Stickwort aus den restlichen Spalten.
Wie mache ich das dann?

Dann musst Du das ganze wesentlich komplexer aufbauen!

[Plague]

Und wie?
Sorry wenn ich nerve!!!

[fkerber]

Hi!

Dann mach doch nebendran ne Radiogroup wo der User auswählt nach welcher Spalte er suchen will und dann verarbeitest du das in der Where-Klausel.


Ciao fkerber

[Plague]

Nein, das will ich nicht. Ich möchte da nicht viel "rumgeklicke" haben.
Es gibt 8 Spalten in meiner Tabelle und daher möchte ich dass alle durchsucht werden...

[Sharky]

Zitat von Plague:

Und wie?
Sorry wenn ich nerve!!!

Welche Felder gibt es denn in denen Gesucht werden soll?

Feldname - FeldTyp

[Plague]

Es gibt die folgenden Felder:
- ID
- Name
- Vorname
- Straße
- PLZ
- Stadt
- e-Mail
- Notiz

[Sharky]

Okay, für die Felder müsstest Du das so machen können:

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]

Danke erstmal,

aber bei den "ParamsByName (.......)" wird der Fehler angezeigt, dass es sich um einen undefinierten Bezeichner handelt.

Was muss ich noch davor setzen?

Danke
Thomas