DBGrid speichert nicht die Daten ab

[DeddyH]

In Deinem DBGrid sind aber Daten zu sehen?

[kumar89]

ja da sind Daten zu sehen, aber es wird nirgendswo eine csv datei erstellt

[DeddyH]

Zeig mal Deinen Aufruf.

[kumar89]

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;

Delphi-Quellcode:

procedure Tpmform.BitBtn1Click(Sender: TObject);
begin
SaveDatasetAsCSV(DBGridPW.DataSource.Dataset, 'passwörter');
end;

[DeddyH]

Die csv sollte also in einer Datei namens "passwörter" gespeichert sein, wo immer die auch liegen mag. Gib lieber mal eine absoluten Pfad und die richtige Dateiendung an.

[kumar89]

geht danke geht des aber auch net mit saveDialog weil bei mir wirds net erkannt komischerweiße.

[DeddyH]

Natürlich geht das auch mit SaveDialog.

[kumar89]

Delphi-Quellcode:

  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
      SaveDatasetAsCSV(DBGridPW.DataSource.Dataset, 'passwörter');

was mach ich da falsch?

[DeddyH]

Zitat:

SaveDatasetAsCSV(DBGridPW.DataSource.Dataset, 'passwörter');

Wozu den Dialog, wenn Du ihn nicht auswertest ?

[Klaus01]

Hallo,

ich würde es so versuchen.

Delphi-Quellcode:

if saveDialog.Execute then
  begin
      SaveDatasetAsCSV(DBGridPW.DataSource.Dataset, saveDialog.FileName);

Grüße
Klaus