Firebird: Dump eines einzelnen Datensatzes

[Opa Knack]

Hallo nochmal,

nach ein paar Tests stellt sich mir nun folgende Frage:

Ich habe schon häufiger vom TClientDataSet gelesen, welches seine Daten ja auch binär abspeichern kann. Nun drängt sich mir natürlich der Gedanke auf, dass ich den zu exportierenden Datensatz einlesen und in ein TClientDataSet kopieren könnte, um dieses dann abzuspeichern.

Hat jemand von euch Erfahrungen damit gemacht? Funktioniert das so, wie ich mir das denke, oder habe ich irgendwo einen Denkfehler? Und sollte das so klappen: Hat jemand eine Idee, wie ich die Felderdefinitionen der bestehenden Datenbank im ClientDataSet erzeugen kann, ohne jedes einzelne manuell zu erstellen?

Danke und Gruß
Opa

[mkinzler]

Dann kannst du es gleich manuell in eine CSV oder XML Datei Packen

[Opa Knack]

Hallo,

das Problem dabei ist ja, dass auch diverse Blob-Felder mit mitunter größeren Einträgen (z. B. Arbeitszeugnisse, ...) enthalten sind. Ich habe gelesen, dass das für XML nicht unbedingt ratsam ist. Nebenbei besteht dabei ja auch das gleiche Problem: Wie bekomme ich die Daten in das entsprechende Format und wie kann ich sie wieder auswerten?

Danke und Gruß
Opa

[mkinzler]

TClientDataset verwendet aber eine XML-artige Struktur

[Opa Knack]

Soweit ich gelesen habe, verwendet das ClientDataSet entweder XML oder speichert im Binärformat ab. Letzteres wäre doch theoretisch besser geeignet für größere Grafiken, oder?

[Opa Knack]

Nachtrag:

Falls es mal jemand brauchen sollte, möchte ich das Ergebnis meines Tests nicht vorenthalten. Bisher klappt alles wie gewünscht, die Daten übertrage ich vom Ergebnis einer Query ("DBQuery") mit folgendem Code ins ClientDataSet ("table"):

Delphi-Quellcode:

for i := 0 to DBQuery.FieldCount - 1 do
begin
  with table.FieldDefs.AddFieldDef do
  begin
    DataType := DBQuery.FieldDefs[i].DataType;
    Name := DBQuery.FieldDefs[i].Name;
  end;
end;

table.CreateDataSet;
table.Append;

for i := 0 to DBQuery.FieldCount - 1 do table.Fields[i].Value := DBQuery.Fields[i].Value;