Suchen mit TQuery ?

[marabu]

Vermutlich ist niemand mit dem Namen 'Edit1.Text' in deiner Tabelle gespeichert. Außerdem hast du wieder eine exakte Suche, wenn du die Wildcard nicht verwendest:

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject);
var  
  suche: string;
begin
  with Query do
  begin
    SQL.Text := 'SELECT * FROM adressen WHERE Nachname like :suche OR  Vorname like :suche';
    ParamByName('suche').asString := QuotedStr(Edit1.Text + '%');
    Open;
  end;
end;

Grüße vom marabu

[Sharky]

Hai Vader,

a) Warum steht Edit1.Text in ' '?
b) Die Variable suche brauchst Du nicht
c) setze in deiner Abfrage mal Klammern

;-)

[Vader]

hallo,

so habe ich spobiert aber ohne erfolg:

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject);
var  
  suche: string; 
begin 
  with Query1 do
  begin
    Query1.Close;
    Query1.SQL.Text := 'SELECT * FROM adressen WHERE Nachname like :suche OR  Vorname like :suche';
    Query1.ParamByName('suche').asString := QuotedStr(Edit1.Text + '%');
    Query1.Open;
  end; 

  end;

sharky sagt:

Zitat:

a) Warum steht Edit1.Text in ' '?
b) Die Variable suche brauchst Du nicht
c) setze in deiner Abfrage mal Klammern

wie meinst du das mit abfrage in klammern setzten ?
mfg vader

[Sharky]

Hai Vader,

beim arbeiten mit Parametern muss man den String nicht mit QuotedStr berarbeiten.

Zitat:

Zitat von Vader

...wie meinst du das mit abfrage in klammern setzten

Delphi-Quellcode:

    
begin
  Query1.SQL.Text := 'SELECT * FROM adressen WHERE (Nachname like :suche) OR  (Vorname like :suche)';
  Query1.ParamByName('suche').asString := Edit1.Text + '%';
  Query1.Open;
end;

[Vader]

ich verbeuge mich, von so viel wissen, danke schön !
mfg vader