Centar za edukaciju-BiH



#1 23.07.2011 11:59
Registrovan od:19.07.2011
Postovi:25


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!
↑  ↓

#2 23.07.2011 16:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 24.07.2011 11:31
Registrovan od:19.07.2011
Postovi:25


Predmet:Re: XML i access 2003
Svaka cast prijatelju za kod ali u xml ne exportuje tabelu parametar!
↑  ↓

#4 24.07.2011 12:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 24.07.2011 12:22
Registrovan od:19.07.2011
Postovi:25


Predmet:Re: XML i access 2003
Hvala prijatelju, sad je exportovao i PARAMETAR tabelu...

Hvala puno
↑  ↓

#6 24.07.2011 12:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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)
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 24.07.2011 14:18
Registrovan od:19.07.2011
Postovi:25


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...
↑  ↓

#8 24.07.2011 14:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 24.07.2011 14:47
Registrovan od:19.07.2011
Postovi:25


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!
↑  ↓

#10 24.07.2011 14:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (4):1,2,3,4


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 40 am.