Predmet:XML i access 2003
U pitanju je export iz accessa u xml, ja koristim slijedeci kod:
Dim adTables As AdditionalData
Set adTables = Application.CreateAdditionalData
adTables.Add ("Parametar")
Application.ExportXML _
ObjectType:=acExportTable, _
DataSource:="Zahtjev", _
DataTarget:="c:\Tring\xml\stampatinefiskalnidokument.xml", _
AdditionalData:=adTables
I export odradi kako treba ali dobijem ovako (primejr):
<?xml version="1.0" encoding="UTF-8" ?>
- <dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2011-07-23T01:08:01">
- <Zahtjev>
<BrojZahtjeva>1</BrojZahtjeva>
<VrstaZahtjeva>1</VrstaZahtjeva>
</Zahtjev>
- <Parametar>
<Naziv>Text</Naziv>
<Vrijednost>Nefiskalni tekst</Vrijednost>
</Parametar>
</dataroot>
a trebalo bi da ovako izgleda:
<?xml version="1.0" encoding="utf-8" ?>
- <Zahtjev xmlns:xsi="
http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="
http://www.w3.org/2001/XMLSchema">
<BrojZahtjeva>400794</BrojZahtjeva>
<VrstaZahtjeva>6</VrstaZahtjeva>
- <Parametri>
- <Parametar>
<Naziv>Text</Naziv>
<Vrijednost>Ovo je primjer nefiskalnog teksta !</Vrijednost>
</Parametar>
</Parametri>
</Zahtjev>
Znači mjesto <dataroot> da pise zahtjev, unaprijed HVALA!