Nur gesuchte Datensätze im DBGrid anzeigen

[mkinzler]

Eine einmalige Zuweisung/Vorbereitung sollte aber reichen.

[m-werk]

Gehhh, das kann doch wohl nicht sein.

Das ist jetzt mein Button.

Code:

procedure TForm1.BtnSearchClick(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='select * from kundendaten, where nachname like :name';
  ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text,true);
  ADOQuery1.Parameters.ParamByName('name').Value := EditSearch.Text;
  ADOQuery1.Open;
  if ADOQuery1.Active then
   ADOQuery1.Refresh
  else
    ADOQuery1.Open;
end;

Wenn ich nun einen Wert in das Feld eingebe und auf suchen klicke, kommt folgende Fehlermeldung:

Im Projekt Projekt1.exe ist eine Exception der Klasse EOleException mit der Meldung 'Syntaxfehler in FROM-Klausel' aufgetreten.
Anhalten - Fortsetzen - Hilfe

[m-werk]

SORRY, ich nehme alles zurück.

Hab den Fehler entdeckt! war ein , drinn

Jetzt funktioniert die suche wie sie soll.

DANKE FÜR DIE HILFE

[mkinzler]

Da ist auch ein Komma zu viel.

Zudem Reicht es die Abfarge einmal zuzuweisen und später nur den Parameter neu zu setzen.

[m-werk]

Ok, hab ich gemacht.

Eine Sache wäre noch: Das mit den Platzhalter vor und dannach.

Wo werden die denn eingebaut?

[mkinzler]

An die Stelle an der sonst der Wert steht

Statt Name like '%Müller' Name like :name

[m-werk]

Ja schon aber wenn ich dort dies so eingebe

Code:

where nachname like %:name%

funktioniert das ganze nicht

[mkinzler]

where nachname like :name; Und die Joker im Paramter:
ADOQuery1.Parameters.ParamByName('name').Value := '%'+ EditSearch.Text + '%';

[Bummi]

ADOQuery1.Parameters.ParamByName('name').Value := '%' + EditSearch.Text + '%';

[m-werk]

Mensch, eh so einfach. Wo ich überall dies versucht hab....

So, die Suche funktioniert FAST. Ich hab diese jetzt noch um 3 weitere Felder erweitert:

Code:

procedure TForm1.BtnSearchClick(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='SELECT * FROM kundendaten WHERE nachname LIKE :name OR telefon1 LIKE :telefon1 OR telefon2 LIKE :telefon2';
  ADOQuery1.Parameters.ParamByName('name').Value := '%' + EditSearch.Text + '%';
  ADOQuery1.Parameters.ParamByName('telefon1').Value := '%' + EditSearch.Text + '%';
  ADOQuery1.Parameters.ParamByName('telefon2').Value := '%' + EditSearch.Text + '%';
  ADOQuery1.Open;
  if ADOQuery1.Active then
   ADOQuery1.Refresh
  else
    ADOQuery1.Open;
end;

Ein Problem hab ich noch damit.
Es wird, egal was ich suche, immer der 1. Datensatz mitangezeigt.