Re: DBGrid speichert nicht die Daten ab
In Deinem DBGrid sind aber Daten zu sehen?
|
Re: DBGrid speichert nicht die Daten ab
ja da sind Daten zu sehen, aber es wird nirgendswo eine csv datei erstellt
|
Re: DBGrid speichert nicht die Daten ab
Zeig mal Deinen Aufruf.
|
Re: DBGrid speichert nicht die Daten ab
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; |
Re: DBGrid speichert nicht die Daten ab
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.
|
Re: DBGrid speichert nicht die Daten ab
geht danke geht des aber auch net mit saveDialog weil bei mir wirds net erkannt komischerweiße.
|
Re: DBGrid speichert nicht die Daten ab
Natürlich geht das auch mit SaveDialog.
|
Re: DBGrid speichert nicht die Daten ab
Delphi-Quellcode:
was mach ich da falsch?
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'); |
Re: DBGrid speichert nicht die Daten ab
Zitat:
|
Re: DBGrid speichert nicht die Daten ab
Hallo,
ich würde es so versuchen.
Delphi-Quellcode:
Grüße
if saveDialog.Execute then
begin SaveDatasetAsCSV(DBGridPW.DataSource.Dataset, saveDialog.FileName); Klaus |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:03 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