EmirSuvalic 23.07.2011 12:59
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!

zxz 23.07.2011 17:31
Predmet:Re: XML i access 2003

PreuzmiIzvorni kôd (Visual Basic):
  1. Function Zapisxml()
  2. Dim Tabele(1 To 2) As String
  3. Dim Putanja As String
  4. Dim XmlFile As String
  5. Dim Temp As String
  6.  
  7. Tabele(1) = "Zahtjev" ?osnovna tabela
  8. Tabele(2) = "Parametar"  ' Pridodata tabela
  9. Putanja = "c:\Tring\xml\" 'Putanja zapisa bez imena filea
  10. XmlFile = "stampatinefiskalnidokument.xml" ' Ime xml fajla
  11.  
  12. Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , Tabele(2)
  13.  
  14. Close #1
  15. Close #2
  16.  
  17. Open Putanja & "sys.dll" For Input As 1
  18. Open Putanja & XmlFile For Output As 2
  19.     While Not EOF(1)
  20.     Line Input #1, Temp
  21.         If Left(Temp, 9) = "<dataroot" Then
  22.         '<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">
  23.        '<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">
  24.        Temp = "<Zahtjev xmlns:xsi=" & Chr(34) & "http://www.w3.org/...instance" & Chr(34) _
  25.         & " xmlns:xsd=" & Chr(34) & "http://www.w3.org/...Schema" & Chr(34) & ">"
  26.         End If
  27.         If Left(Temp, 11) = "</dataroot>" Then
  28.         Temp = "</Zahtjev>"
  29.         End If
  30.     Print #2, Temp
  31.     Wend
  32. Close #1
  33. Close #2
  34. End Function

EmirSuvalic 24.07.2011 12:31
Predmet:Re: XML i access 2003

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

zxz 24.07.2011 13:09
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

EmirSuvalic 24.07.2011 13:22
Predmet:Re: XML i access 2003

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

Hvala puno

zxz 24.07.2011 13:35
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)

EmirSuvalic 24.07.2011 15:18
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...

zxz 24.07.2011 15:32
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.

EmirSuvalic 24.07.2011 15:47
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!

zxz 24.07.2011 15:52
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.