
Das ergibt eine andere XML-Datei:


PUBLIC SUB btnDatenSicherungXML_Click()
  DIM xmlSicherung AS XmlWriter
  DIM iDatensatzNummer, iSpaltenNummer AS Integer
  
  sSQL_Anweisung = "SELECT * FROM " & DataSource1.Table
  MDataBase.rDBResult = MDataBase.cDBVerbindung.Exec(sSQL_Anweisung)
  
  xmlSicherung = NEW XmlWriter
  xmlSicherung.Open(User.Home &/ "XMLKontakt/sicherung.xml", TRUE)
  xmlSicherung.StartElement("DB-Tabelle")
  
  IF MDataBase.rDBResult.Available THEN
     MDataBase.rDBResult.MoveFirst ' Kann entfallen ...
     
     FOR iDatensatzNummer = 0 TO MDataBase.rDBResult.Count - 1
         MDataBase.rDBResult.MoveTo(iDatensatzNummer)
         xmlSicherung.StartElement("Datensatz " & Str(iDatensatzNummer))
         
         FOR iSpaltenNummer = 0 TO MDataBase.rDBResult.Fields.Count - 1 
             xmlSicherung.Element(MDataBase.rDBResult.Fields[iSpaltenNummer].Name & " ---> " & MDataBase.rDBResult[iSpaltenNummer])
         NEXT ' Spalte ---> FeldNummer
         
         xmlSicherung.EndElement
     NEXT ' Datensatz
     xmlSicherung.EndElement
  ENDIF     
  xmlSicherung.EndDocument
END ' DatenSicherungXML
