Suchen mit TQuery ?

[mkinzler]

Wie gesagt dir Lösung dafür findest du in diesem Thread unter Beitrag 14.

[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;

[bundy]

Da könntest du mit dem SQL Syntax "like" arbeiten.


Select * from Table where Vorname like %:parSuchbegriff % or Nachname like % :parSuchbegriff or ....
Das % - Zeichen dient alls Joker wie in der Windowssuche der *

mit dem Syntax "or" der steht für "oder".

Ich hoffe das hilft dir weiter



lg
Bundy

[Sharky]

Zitat von mkinzler:

Wie gesagt dir Lösung dafür findest du in diesem Thread unter Beitrag 14.

Hai mkinzler,

ich glaube! dein Code hat einen kleinen Fehler?
Du hast immer den selben Parameternamen verwendet. ParamByName wird dir aber immer den erstgefunden TParam zurück geben und darum die beiden nächsten nicht mit dem Wert füllen.

[mkinzler]

Zitat von Sharky:

ich glaube! dein Code hat einen kleinen Fehler?
Du hast immer den selben Parameternamen verwendet. ParamByName wird dir aber immer den erstgefunden TParam zurück geben und darum die beiden nächsten nicht mit dem Wert füllen.

Danke! War mir nicht bewusst, da? das nicht so geht. Habe gedacht, daß erkannt wird, das es sich hier um den selben Parameter handelt.

[edit]liegt das an Paradox, das es nicht funktioniert? Habs gerade mit FB getestet hier funktioniert die mehrfache Verwendung des gleichen Parameters.[/edit]

[Vader]

super, danke!

ich weiß ich bin lästig, aber jetzt wenn ich diese suche starte:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
begin
Query1.Close; 
  Query1.SQL.Text := 'SELECT * FROM adressen WHERE (Nachname = :suche) OR (Vorname = :suche1) '; 
  Query1.ParamCheck := True;
  Query1.ParamByName('suche').AsString := Edit1.Text; 
  Query1.ParamByName('suche1').AsString := Edit1.Text; 
  Query1.Open 

end;

dann zeigt er mir nur den gesuchten datensatz im DBGrid an, das ist ja auch gut so,aber wie zeige ich wieder
alle daten im DBGrid an ???

mfg vader

[mkinzler]

Die WHERE-Clause wieder entfernen, also

SELECT * FROM adressen;

[Vader]

herlichen dank !

ich muß sagen das mit tquery + sql-code gefällt mir besser als ttable !

aber, bei der suche:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
begin
Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM adressen WHERE (Nachname = :suche) OR (Vorname = :suche1) ';
  Query1.ParamCheck := True;
  Query1.ParamByName('suche').AsString := Edit1.Text;
  Query1.ParamByName('suche1').AsString := Edit1.Text;
  Query1.Open
end;

muß ich genau den namen schreiben ( groß,klein, ganzen namen ausschreiben ) damit der datensatz gefunden wird !!

bei ttable gibts den code:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var suche: string; 
begin
suche:= edit1.Text;
query1.Locate('Nachname', suche, [loCaseInsensitive,loPartialKey ]);
end;

da brauche ich nur den ersten buchstaben eingeben und schon findet er was, wie geht das bei tquery ?
mfg vader

[mkinzler]

Verwende LIKE und %

[Vader]

hallo mkinzler,

hab's so probiert aber funzt nicht, wenn ich die suche starte sind alle daten weg ?

Delphi-Quellcode:

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

mfg vader