Autor Beitrag
qball
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 47



BeitragVerfasst: Mi 23.04.03 15:18 
wie kann ich einen datensatz in einer vdbase-datenbank über ein delphi-formular suchen und finden? und kann ich den dbase-datensatz in ein textformat exportieren??

das problem beschäftigt mich schon seit längerem, ich hoffe jemand kann mir helfen!
LCS
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1305
Erhaltene Danke: 1

WIN 7, WIN 8
Delphi XE5, Delphi XE, Delphi 2007
BeitragVerfasst: Mi 23.04.03 15:51 
Hi
Normalerweise müsstest du mit der BDE auf V-DBase Tabellen problemlos zugreifen können. Eventuell mußt du in der BDE Verwaltung den DBase Treiber auf Level=7 einstellen.
Wenn du auf die Tabellen zugreifen kannst, kannst du auch die entsprechenden Methoden von TTable zum Suchen verwenden z. B. Locate und FindKey.
Eine Methode um einen oder mehrer Datensätze als Text zu exportieren gibts nicht. Das lässt sich aber problemlos selber programmieren.
Grundsätzliche Verarbeitung etwa so:
ausblenden Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
  //Textdatei auswählen, öffnen usw.
  AusgabeZeile := ''; //AusgabeZeile ist ein String
  for i := 0 to Table1.Fields.Count - 1 do
    if  i > 0 then
       AusgabeZeile := AusgabeZeile + ';' + Table1.Fields[i].AsString
    else
       AusgabeZeile := AusgabeZeile + Table1.Fields[i].AsString;
  //AusgabeZeile in Textdatei schreiben
  //Textdatei schliessen


Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...
qball Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 47



BeitragVerfasst: Mi 23.04.03 16:16 
vielen dank lothar, allerdings bin ich nicht so versiert: was muss ich als keyvalue: variant eingeben??
LCS
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1305
Erhaltene Danke: 1

WIN 7, WIN 8
Delphi XE5, Delphi XE, Delphi 2007
BeitragVerfasst: Mi 23.04.03 20:16 
Hi
KeyValue ist der Schlüsselwert nach dem du suchen willst. Wenn du in einem Feld Nummer nach dem Wert 123 suchen willst könnte das so aussehen:
ausblenden Quelltext
1:
2:
3:
4:
 if Table1.Locate('Nummer', '123', []) then
    //gefunden
 else
    //nicht gefunden

oder
ausblenden Quelltext
1:
 Table1.Locate('Name', 'Meier', [loCaseInsensitive])					

sucht nach dem Wert Meier im Feld Name ohne dabei auf die Gross-/Kleinschreibung zu achten.

In der Online-Hilfe findest du noch einige weitere Beispiele

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...