AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Delphi-Source Quellcode

Delphi-Source Quellcode

Ein Thema von Deadinpac · begonnen am 15. Aug 2004 · letzter Beitrag vom 15. Aug 2004
Antwort Antwort
Deadinpac

Registriert seit: 8. Aug 2003
Ort: Oberreute
74 Beiträge
 
Delphi 2007 Enterprise
 
#1

Delphi-Source Quellcode

  Alt 15. Aug 2004, 16:36
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
Sven Grimm
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.604 Beiträge
 
#2

Re: Delphi-Source Quellcode

  Alt 15. Aug 2004, 16:45
Das Suchwort übergibst Du als String in den Parameter 'SearchString'.
Sebastian Gingter
Phoenix - 不死鳥
Mein Blog: http://gingter.org
  Mit Zitat antworten Zitat
Deadinpac

Registriert seit: 8. Aug 2003
Ort: Oberreute
74 Beiträge
 
Delphi 2007 Enterprise
 
#3

Re: Delphi-Source Quellcode

  Alt 15. Aug 2004, 16:50
hi,

Und wie mache ich das

MFG

Deadinpac
Sven Grimm
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.251 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Delphi-Source Quellcode

  Alt 15. Aug 2004, 16:54
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.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#5

Re: Delphi-Source Quellcode

  Alt 15. Aug 2004, 16:56
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
Frederic Kerber
  Mit Zitat antworten Zitat
Deadinpac

Registriert seit: 8. Aug 2003
Ort: Oberreute
74 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: Delphi-Source Quellcode

  Alt 15. Aug 2004, 17:07
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
Sven Grimm
  Mit Zitat antworten Zitat
Deadinpac

Registriert seit: 8. Aug 2003
Ort: Oberreute
74 Beiträge
 
Delphi 2007 Enterprise
 
#7

Re: Delphi-Source Quellcode

  Alt 15. Aug 2004, 17:21
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
Sven Grimm
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.251 Beiträge
 
Delphi 2006 Professional
 
#8

Re: Delphi-Source Quellcode

  Alt 15. Aug 2004, 17:24
Hai Deadinpac,

soll der Datensatz angezeigt werden wenn in irgendeinem Feld der Tabelle das Wort vorkommt?
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Deadinpac

Registriert seit: 8. Aug 2003
Ort: Oberreute
74 Beiträge
 
Delphi 2007 Enterprise
 
#9

Re: Delphi-Source Quellcode

  Alt 15. Aug 2004, 17:28
Hi,

Ja

MFG
Deadinpac
Sven Grimm
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#10

Re: Delphi-Source Quellcode

  Alt 15. Aug 2004, 18:38
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
Frederic Kerber
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz