Suchen mit TQuery ?

[Sharky]

Hai Vader,

wie ist denn deine Tabelle aufgebaut? Sind das alles (Var)Char Felder oder auch Zahlen usw.?

Von Hand würde das so aussehen:

Delphi-Quellcode:

begin
  Query1.Close; 
  Query1.SQL.Text := 'SELECT * FROM tabelle WHERE (name = :suche) OR (vorname = :suche1) OR (wassweisich = :suche2)'; 
  Query1.ParamCheck := True; 
  Query1.ParamByName('suche').AsString := Edit1.Text; 
  Query1.ParamByName('suche1').AsString := Edit1.Text; 
  Query1.ParamByName('suche2').AsString := Edit1.Text; 
  Query1.Open 
end;

Wobei Du in diesem Fall die Parameter auch in einer Schleife setzen kannst:

Delphi-Quellcode:

procedure TDemoForm.Button1Click(Sender: TObject);
var
  ndx: Integer;
begin
  with Query1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM tabelle WHERE (name = :suche) OR (vorname = :suche1) OR (wassweisich = :suche2)';
    ParamCheck := True;
    for ndx := 0 to Params.Count - 1 do // Alle Parameter durchlaufen
    begin
      Params[ndx].AsString := Edit1.Text; // und aufgrund des indexes zuweisen
    end;
  end;
end;