Suchfunktion in einem DBGrid

[Krupi]

Danke für die ausführlichen Hilfen!

ich werde es mir jetzt in ruhe angucken

[Sir Rufo]

Wird gerne vergessen geht aber auch sehr schön TDataSet.OnFilterRecord wenn die Suche auf die bereits gelesenen Datensätze erfolgen soll.

[Sigi55]

Hi,

oder man nimmt:

http://www.scalabium.com/smdbgrid.htm

Da kann man oben im Grid eine "Suchzeile" einblenden.

Gruß

Sigi

[Krupi]

danke nochmals für die guten vorschläge
hab diese auch verwendet jedoch ohne gutes ergebnis
jetzt bin ich total planlos

könnte mir vllt jemand ein beispiel geben mit code, wie ich in meiner anwendung auf meine datenbank zugreife und somit eine abfrage stellen kann?

[Jumpy]

Zitat von Krupi:

danke nochmals für die guten vorschläge
hab diese auch verwendet jedoch ohne gutes ergebnis
jetzt bin ich total planlos

könnte mir vllt jemand ein beispiel geben mit code, wie ich in meiner anwendung auf meine datenbank zugreife und somit eine abfrage stellen kann?

Es wurden dir doch massig Stichworte genannt.
Es wurde dir massig Code gezeigt von Perlsau.

Klar, dass das nicht so 100% zu deiner Anwendung passt, wie auch? Wir wissen nicht was du an Code bisher hast, wie sollen wir dir da zu einem Plan verhelfen?

[mkinzler]

Es kommt auch darauf an, ob Du das Ergebnis nur lokal filtern, im Grid zu einem bestimmten DS spingen oder eine neue Abfrage starten möchtest.

[Perlsau]

Zitat von Krupi:

... jedoch ohne gutes ergebnis

Was bedeuted denn "ohne gutes ergebnis" genau?

Zitat von Krupi:

jetzt bin ich total planlos

Jetzt erst

Zitat von Krupi:

könnte mir vllt jemand ein beispiel geben mit code, wie ich in meiner anwendung auf meine datenbank zugreife und somit eine abfrage stellen kann?

Kannst du mit meinem Beispiel wirklich gar nichts anfangen? Dort wird doch ganz konkret gezeigt, wie man SQL-Befehle zusammensetzt (könnte man sicher noch optimieren) und eine Query an die Datenbank absetzt. Falls du mich damit beauftragen willst, deinen Code zu schreiben: Die Stunde kostet 50 Euro, Auftragsannahme nur gegen Vorauszahlung.

Im Grunde sagst du hier ja nur eines: "Egal was ihr mir hier erzählt, ich blick das alles nicht." Wenn das so richtig interpretiert ist, dann empfiehlt es sich, erst einmal mit leichteren Aufgaben zu beginnen und später, wenn die Grundlagen soweit erarbeitet und gefestigt wurden, schwierigere Themen wie Datenbankentwicklung anzugehen.

[nahpets]

Suchst Du sowas in der Art?

Delphi-Quellcode:

procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
var
  sSuchbegriff : String;
begin
  // Wenn es eine separate Eingabe sein soll:
  sSuchbegriff := InputBox('Nach Namen suchen','zu suchender Name:','');
  if sSuchbegriff <> '' then begin
    tabelle.Locate('Name',sSuchbegriff,[loCaseInsensitive,loPartialKey]);
  end;
end;

procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
begin
  // Suchen, was im Editfeld steht:
  if Editfeld.Text <> '' then begin
    tabelle.Locate('Name',Editfeld.Text,[loCaseInsensitive,loPartialKey]);
  end;
end;

procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
begin
  // Nur die Sätze anzeigen, bei denen der Name mit der Eingabe im Editfeld übereinstimmt.
  tabelle.Filtered     := False;
  tabelle.Filter       := Format('Name = %s ',[QuotedStr(Editfeld.Text]);
  tabelle.Filtered     := True;
end;

oder eher eine neue Abfrage für die Datenbank?

Delphi-Quellcode:

procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
begin
  qry.Close;
  qry.SQL.Text := Format('select * from Tabelle where name like %s',[QuotedStr(Editfeld.text]);
  qry.Open;
end;

[mkinzler]

Zitat:

oder eher eine neue Abfrage für die Datenbank?
markieren
Delphi-Quellcode:

Delphi-Quellcode:

procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
begin
  qry.Close;
  qry.SQL.Text := Format('select * from Tabelle where name like %s',[QuotedStr(Editfeld.text]);
  qry.Open;
end;

Dann würde ich mit einer parametrisierten Abfrage arbeiten

SQL-Code:

select 
  <Feldliste> 
from 
  Tabelle 
where 
  (suchbegriff = '') or (name like :suchbegriff);

Delphi-Quellcode:

  if Trim(sSuchbegriff) <> '' then begin
    qry.ParamByName('suchbegriff').Value := '%'+Trim(sSuchBegriff)+'%';
  else 
    qry.ParamByName('suchbegriff').Value := '';
  qry.Refresh;