Nur gesuchte Datensätze im DBGrid anzeigen

[p80286]

das sollte ungefähr so aussehen:

Code:

myquery.close;
myquery.sql.text:='select name from tabelle where name like :name';
myquery.sql.parameterbyname('name').asstring:=edit1.text;
myquery.open;

wobei Du die entsprechenden Platzhalter (% _) entweder unterwegs dazu packst oder aber dem Benutzer überlässt.

Gruß
K-H

[m-werk]

Ich hab es mal so eingebaut.

Ich habe eine neue ADOQuery1 eingebaut und mit meiner ADOConnection1 verbunden. Unter DataSource habe ich meine DataSource1 eingegeben.

Weiters hab ich noch eine DataSource2 eingebaut und mein DBGrid mit dieser Verbunden. Diese DataSource2 hab ich dann auch mit der ADOQuery1 verbunden.

So, dein Code oben leuchtet mir ein, nur wie baue ich diesen in den Quelltext genau ein? Wenn ich im ADOQuery1 unter Eigenschaften auf SQL klicke, kann ich doch nur den SQL-Code eingeben, oder?

[m-werk]

So, nun hab ich folgenden Code mal drinn, leider funktioniert dieser nicht:

Code:

procedure TForm1.BtnSearchClick(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='select * from kundendaten, where nachname like :name';
  ADOQuery1.SQL.parameterbyname('name').asstring:=EditSearch.Text;
  ADOQuery1.Open;
end;

Eskommt die Meldung: Undeklarierter Bezeichner: 'parameterbyname'

[mkinzler]

Ja dort gibst du dann die parametrisierte Abfrage ein

Code:

select name from tabelle where name like :name;

Später z.B. beim Exit des Editfeldes, brauchst du dann nur den Parameter setzen:

Delphi-Quellcode:

AdoQuery1.Parameters.ParamByName('name').Value := EditSearch.Text;
if AdoQuery1.Active then
    AdoQuery1.Refresh
else
    AdoQuery1.Open;

[m-werk]

Code:

procedure TForm1.EditSearchExit(Sender: TObject);
begin
  ADOQuery1.Parameters.ParamByName('name').Value := EditSearch.Text;
  if ADOQuery1.Active then
    ADOQuery1.Refresh
  else
    ADOQuery1.Open;
end;

procedure TForm1.BtnSearchClick(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='select * from kundendaten, where nachname like :name';
  ADOQuery1.SQL.parameterbyname('name').asstring:=EditSearch.Text;
  ADOQuery1.Open;
end;

Es kommt aber immer noch diese Fehlermeldung bei "parameterbyname" in der Codezeile

Code:

ADOQuery1.SQL.parameterbyname('name').asstring:=EditSearch.Text;

[mkinzler]

Schau dir mal die Zuweisung in meinem Code an

[m-werk]

Ich komm nicht dahinter

[mkinzler]

Zitat von m-werk:

Ich komm nicht dahinter

Die Methode heisst ParamByName() und nicht ParameterByName() und ist Teil der Klasse TParameter (Parameter) und nicht Teil der StringListe (SQL)

[m-werk]

Diese änderung hab ich schon gemacht, aber es kommt jetzt trotzdem eine Fehlermeldung:

Exception-Klasse EDatabaseError mit Meldung "ADOQuery1: Parameter 'name' nicht gefunden".

Diese Fehlermeldung tritt hier in der ADOQuery1.Parameters..... auf.

Code:

procedure TForm1.EditSearchExit(Sender: TObject);
begin
  ADOQuery1.Parameters.ParamByName('name').Value := EditSearch.Text;
  if ADOQuery1.Active then
    ADOQuery1.Refresh
  else
    ADOQuery1.Open;
end;

[Bummi]

Delphi-Quellcode:

  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='select * from kundendaten where nachname like :name';
  ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text,true);
  ADOQuery1.Parameters.parambyname('name').Value:='test';