Centar za edukaciju-BiH

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!

Predmet:Re: XML i access 2003

---

---

Predmet:Re: XML i access 2003

---

Svaka cast prijatelju za kod ali u xml ne exportuje tabelu parametar!

Predmet:Re: XML i access 2003

---

Gledaj ja neznam sta si tinapravio.
Jedino sam se povodio kodom koji si mi dao.
Dali imas tabelu ili nemas., dali treba ili netreba neznam.
Ako ti je radio tvoj predhodni kod onda najbolje da zamijenis ovaj moj sa svojim.
To je ovaj dio mog koda:
Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , Tabele(2)
sa ovim dijelom svog
Dim adTables As AdditionalData

Set adTables = Application.CreateAdditionalData
adTables.Add ("Parametar")

Application.ExportXML _
ObjectType:=acExportTable, _
DataSource:="Zahtjev", _
DataTarget:="c:\Tring\xml\sys.dll", _
AdditionalData:=adTables

Stim da rti se file zove sys.dll
i to sam i prepravio ovdje

U mom kodu mozes izbrisati jos ovo:
Tabele(1) = "Zahtjev" ?osnovna tabela
i
Dim Tabele(1 To 2) As String

---

Predmet:Re: XML i access 2003

---

Hvala prijatelju, sad je exportovao i PARAMETAR tabelu...

Hvala puno

Predmet:Re: XML i access 2003

---

Nisam ja tebe razumio mogao si ako hoses samo u mom kodu prepraviti ovo:
Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , AdditionalData:=Tabele(2)

---

Predmet:Re: XML i access 2003

---

Vidio sam ovaj tvoj odgovor i sve radi i sa onim prije i sada sa ovim. Ako može joÅ¡ samo jedno pitanje Da li je moguće u ovaj moj xml dodati joÅ¡ jedan parametar ja sada dobijem ovo:

<?xml version="1.0" encoding="UTF-8" ?>
- <Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">
- <Zahtjev>
<BrojZahtjeva>1</BrojZahtjeva>
<VrstaZahtjeva>1</VrstaZahtjeva>
</Zahtjev>
- <Parametar>
<Naziv>1</Naziv>
<Vrijednost>Emir</Vrijednost>
</Parametar>
</Zahtjev>

A treablo bi mi prije <Parametar> da otvori novi element koji se zove <Parametri>...

Da li je to moguće...

Hvala puno,
Nadam se da nisam dosadan...

Predmet:Re: XML i access 2003

---

Posto ja nemam tvoje tabele i neznam koja polja imas a vjerovatno to mozes rijesiti poljem u tabeli, mada se ja uvijek odlucujem sve kodom uraditi bez exportxml ali eto tako je pocelo.

Ako ne rijesis da bi popravio kod moras staviti kao prije xml koji dobije i onda ovaj kako hoces da izgleda.
Bit ce mi lakse da ne razmisljam puno hehe.

---

Predmet:Re: XML i access 2003

---

Problem je slijedeći programer koji mi je radio program to viÅ¡e ne radi a ja moram da sebi rijeÅ¡im problem sa fiskalnim uređajem TRING Favourite+, pa sam za primjer uzeo stampanje ne fiskalnog dokumenta, uz tvoju pomoć sam zadovoljio sve parametre Å¡eme sem ovog da prije nego Å¡to ispiÅ¡e podatke iz Tabele Parametar da doda element <Parametri>, i stvarno to neznam kako da rijeÅ¡im, ja sam knjigovođa pa svaka pomoć je cijenjena!

Predmet:Re: XML i access 2003

---

Mozes ako hoces zakaciti bazu sa ove dvije tabele i minimumom podataka te postaviti urnek i primjer orginal sa parametrima pa cemo napraviti proceduru.
Sad idem spavati.

---