Einzelnen Beitrag anzeigen

hanspeter

Registriert seit: 26. Jul 2003
Ort: Leipzig
1.350 Beiträge
 
Delphi XE2 Professional
 
#1

Firebird u. IBDAC Daten rückschreiben

  Alt 16. Apr 2009, 14:06
Datenbank: Firebird • Zugriff über: IBDAC
Hallo,

ich realisiere den Import/Export einzelner Datensätze (mit Blobs) über nachfolgendes Programm:
(Die Query ist eine TIBCQuery von IBDAC und ist intern ein Nachkomme von TMemoryDataset.



Delphi-Quellcode:
Query.SQL.Text := 'Select * FROM Daten Where ID=123';
Query.Prepare;
Query.Open;
(Query as TMemdataSet).SavetoXML('ExportDaten.XML');
Query.Close;
Die XML Datei kann ich mit (Query as TMemoryDataset).LoadFromXML wieder in den Speicher holen.
Um diese Daten in die Datenbank zurückzuschreiben, scanne ich TFields und generiere eine Insert oder
Updateanweisung auf einer 2. Query.

Ich überlege jetzt ob es eine Möglichkeit gibt, die Daten direkt aus der mit LoadfromXML gefüllten
Query wieder in die Datenbank zu bringen.
Hat wer da eine Idee?

Mit Gruß
Peter
  Mit Zitat antworten Zitat