DBGrid speichert nicht die Daten ab

[kumar89]

Sers Delphi-Programmierer,

folgendes Problem:

nämlich programmier ich ein Passwort Manager mit einem dbgrid, datasource, ttbale und den dazugehörigen dbedits. Dabei möchte ich die DBGrid Tabelle als .txt Datei und .csv abspeichern. Was auch bisher klappt, blos in der Datei selbst werden folgende Dinge reingeschrieben:

TPF0TColumnsWrapperColumns
DropDownRowsExpanded FieldNameBenutzerReadOnly WidthïVisible
DropDownRowsExpanded FieldNamePasswortReadOnly WidthöVisible

aber die Daten die in den einzelnen Zeilen und Spalten werden nicht in die .txt bzw. .csv reingeschrieben.

Quellcode zum abspeichern als .csv:

Delphi-Quellcode:

procedure TForm1.BitBtnprintexcelClick(Sender: TObject);     //Als Excel Datei speichern
var
  saveDialog: TSaveDialog;
begin
  saveDialog := TSaveDialog.Create(self);
  saveDialog.FileName := 'passwort';
  saveDialog.Filter := 'CSV-Dateien|*.csv';   //Datei-Filter
  saveDialog.DefaultExt := 'csv';
  saveDialog.Options := [ofOverwritePrompt];
  if saveDialog.Execute then
  begin
     DBGridPW.Columns.SaveToFile('passwort.csv');
  end;
end;

Wie bekomm ich die einzelnen Daten aus der DBGrid raus?



Mit freundlichen Grüßen

kumar89

[shmia]

Zitat von kumar89:

Dabei möchte ich die DBGrid Tabelle als .txt Datei und .csv abspeichern. Was auch bisher klappt...

So wie du das bisher probiert hast, bist du völlig auf dem Holzweg.
Folgende Zeile speichert NICHT den Inhalt des DBGrid
DBGridPW.Columns.SaveToFile('passwort.csv'); sondern nur die Einstellungen der Spalten (=Columns).
So wird nur die Reihenfolge und die Breite jede Spalte gespeichert.

Um deine Daten zu Speichern musst du dich völlig vom DBGrid lösen und nur mit TDataset arbeiten.
TDataset ist der Vater von TTable.

Hier mal eine Quick & Dirty Variante, wie man die Daten als CSV speichern kann:

Delphi-Quellcode:

procedure SaveDatasetAsCSV(ds:TDataset; const fn:string);
var
  list : TStringList;
  s : string;
  i : integer;
begin
   list := TStringList.Create;
   ds.First;
   while not ds.Eof do   // über alle Datensätze
   begin
     s := '';
     for i := 0 to ds.Fields.Count-1 do   // über alle Datenfelder
     begin
       s := s + ds.Fields[i].AsString+ ',';
     end;
     list.Add(s);

     ds.Next;
   end;
   list.Save(fn);
   list.Free;
end;

Der Code ist ungetestet, sollte aber das Grundprinzip zeigen.
Das Einlesen einer CSV-Datei ist übrigens etwas schwieriger als das Speichern.

[kumar89]

klappt net so wirklich :S gibts keine andere Möglichkeit?

[hoika]

Hallo,

Zitat:

klappt net so wirklich

was klappt nicht ?

Zitat:

gibts keine andere Möglichkeit?

nein, ist zumindestens die einfachste


Heiko

[shmia]

Zitat von kumar89:

gibts keine andere Möglichkeit?

Es gibt natürlich auch fertige Komponenten...
http://www.torry.net/pages.php?id=555
Du brauchst nur die Komponenten anschauen, die mit grünem FWS markiert sind.
Ein Startpunkt wäre Pg CSV v.1.31 - hab ich selber schon verwendet.
Auch wenn manche Komponenten nur bis Delphi 5 angegeben sind, sind sie in aller Regel auch unter höheren Delphi
Versionen funktionsfähig. (aber nicht D2009)

[kumar89]

Komponenten möchte ich nicht verwenden, würde es gern lieber programmieren.

Könntest mir vielleicht bissel erklären wie ich vorgehen sollte.


Danke

[shmia]

Was klappt denn nicht?
Beachte, dass folgender Sourcecode gegenüber Beitrag oben leicht verbessert wurde.

Delphi-Quellcode:

procedure SaveDatasetAsCSV(ds:TDataset; const filename:string);
var
  list : TStringList;
  s : string; 
  i : integer; 
  f : TField;
begin 
   list := TStringList.Create; 
   ds.First; 
   while not ds.Eof do   // über alle Datensätze 
   begin 
     // erstelle kommagetrennten String über alle Felder
     s := ''; 
     for i := 0 to ds.Fields.Count-1 do   // über alle Datenfelder 
     begin
       f := ds.Fields[i];
       if f.DataType in ftNonTextTypes then
          // diese Datentypen können nicht exportiert werden
       else
          s := s + f.AsString+ ',';
     end;
     list.Add(s);

     ds.Next;
   end;
   list.SaveToFile(filename);
   list.Free;
end;

[kumar89]

der klappt blos wie ruf ich den auf?

[DeddyH]

Wie wäre es denn mitSaveDatasetAsCSV(DeinDBGrid.Datasource.Dataset, Dateiname);

[kumar89]

leider erscheint nix kommt auch keine fehlermeldung