forum.clarionlife.net

Код: Выделить всё

Utils.ExportToXml    PROCEDURE(FILE pFile, STRING pRootName, STRING pTableName, STRING pPath)
da                        ClaFileDataAdapter
dt                        ClaDataTable
ds                        DataSet
  CODE
  da &= new ClaFileDataAdapter(pFile)
  dt &= new ClaDataTable(pTableName)
  ds &= NEW DataSet(pRootName)

  OPEN(pFile)
  da.Fill(dt)
  CLOSE(pFile)

  ds.Tables.Add(dt)

  TRY
    ds.WriteXml(pPath)
  CATCH Exception ex
    MESSAGE(ex.Message)
  END

Код: Выделить всё

fTeachers FILE,DRIVER('TOPSPEED'),PRE(TEA),CREATE,BINDABLE,THREAD,NAME('TEACHERS.TPS')
KeyTeacherNumber      KEY(TEA:Number),NOCASE,OPT,PRIMARY
KeyLastName           KEY(TEA:LastName),DUP,NOCASE
KeyDepartment         KEY(TEA:Department),DUP,NOCASE,OPT
Record                RECORD,PRE()
Number                  SIGNED, NAME('Number')
FirstName               CLASTRING(20), NAME('FirstName')
LastName                CLASTRING(20), NAME('LastName')
Address                 CLASTRING(20), NAME('Address')
City                    CLASTRING(20), NAME('City')
State                   CLASTRING(2), NAME('State')
Zip                     SIGNED, NAME('Zip')
Telephone               CLASTRING(12), NAME('Telephone')
Department              SIGNED, NAME('Department')
                      END
                    END

Код: Выделить всё

  Utils.ExportToXml(fTeachers, 'TestDB', 'Teachers', 'teachers.xml')

Код: Выделить всё

<?xml version="1.0" standalone="yes"?>
<TestDB>
  <Teachers>
    <Number>227332673</Number>
    <FirstName>Neal E</FirstName>
    <LastName>Ackerman</LastName>
    <Address>348 Tidd Dr</Address>
    <City>Lighthouse Point</City>
    <State>FL</State>
    <Zip>33243</Zip>
    <Telephone>305-555-9156</Telephone>
    <Department>2</Department>
  </Teachers>
  <Teachers>
    <Number>361830604</Number>
    <FirstName>Dean E</FirstName>
    <LastName>Adams</LastName>
    <Address>2813 Park Ave</Address>
    <City>Lighthouse Point</City>
    <State>FL</State>
    <Zip>33338</Zip>
    <Telephone>305-555-1372</Telephone>
    <Department>3</Department>
  </Teachers>

.......................
и так далее.