Delphi-Source Quellcode

[Deadinpac]

Hi,

Ich frag ja nur ungern aber weiss jemand wie ich den Quellcode Anwende bzw. wo ich das Suchwort eingebe.

Delphi-Quellcode:

procedure DatabaseSearch(DatabaseFilename, TablePart, SearchString: String);
var
  DataSource: TDataSource;
  DSTable: TTable;
begin
  DataSource := TDataSource.Create(Form1);
  DSTable := TTable.Create(Form1);
  try
    DataSource.DataSet := DSTable;
    DSTable.TableName := DatabaseFilename;
    DSTable.Active := true;
    if DSTable.FindFirst then begin
      repeat
        if AnsiLowerCase(DSTable.FieldByName(TablePart).AsString) =
          AnsiLowerCase(SearchString) then begin
          // Hier kann man nun auf die Daten der einzelnen Einträge zugreifen
          // über z. B. DSTable.FieldByName('ID').AsInteger usw.
        end;
      until DSTable.FindNext = false;
    end;
  finally
    DataSource.free;
    DSTable.free;
  end;
end;

Quellcode

MFG

Deadinpac

[Phoenix]

Das Suchwort übergibst Du als String in den Parameter 'SearchString'.

[Deadinpac]

hi,

Und wie mache ich das

MFG

Deadinpac

[Sharky]

Hai Deadinpac,

bervor hier jemand versucht zu erklären wie Du einen fremden Quellcode anwendest wäre es sicher sinvoller wenn Du uns sagst was Du ereichen möchtest. Wenn dann noch die Information deiner Datenbank und der von Dir verwendeten Komponenten dazu kommt hilft es Dir sicher viel mehr wenn dan jemand mit Dir zusammen einen passenden Quellcode entwickelt.

[fkerber]

Hi!

Du rufst zum Beispiel bei einem Buttonklick die procedure so auf:

DatabaseSearch('test.db', 'tabelle', 'name'); wobei test.db der Name der Datenbank ist(inkl. Pfad), tabelle der Name der Tabelle und name dein Suchwort.


Ciao Frederic

[Deadinpac]

Hi,

Ich möchte in einer Paradox tabelle ein Begriff suchen den ich über ein Edit textfeld eingebe
und dann sollte ein DBGrid alle einträge anzeigen die den Suchbegriff enthalten

z.b wie die windowssuche wenn man ' Win ' eingeben tut werden alle datein angezeigt die den begriff win erhalten

benutzen tu ich zurzeit nur Form1, Tabel1, Datasource1, DBGrid1, Edit1, Button1 .

Ich hoffe ich habe das alles richtig formuliert

MFG

deadinpac

[Deadinpac]

Hi,

Danke fkerber

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
DatabaseSearch('C:\Delphi 7 Versuche\datenbanksuche\test.db' , 'Name' , Edit1.Text);
end;

also so passiert nichts???

MFG

Deadinpac

[Sharky]

Hai Deadinpac,

soll der Datensatz angezeigt werden wenn in irgendeinem Feld der Tabelle das Wort vorkommt?

[Deadinpac]

Hi,

Ja

MFG
Deadinpac

[fkerber]

Hi!

Dein Source ist ja an sich unvollständig, er findet die Einträge, aber er macht noch nichts mit ihnen.
An der Stelle wo der Kommentar ist, müsstest du wohl ansetzen.


Ciao Frederic