iCentar » Racunari i oprema » Programirannje i baze podataka » Access

zxz	24.07.2011 17:38
Predmet:Re: XML i access 2003 Citat: A treablo bi mi prije <Parametar> da otvori novi element koji se zove <Parametri>... Jeli i da zatvori poslije Parametar?

EmirSuvalic	24.07.2011 19:57
Predmet:Re: XML i access 2003 zakatit cu bazu i Å¡emu i xml primjer
Prilozi: POS.zip (Velicina datoteke:26.33 KB)

zxz	24.07.2011 21:09
Predmet:Re: XML i access 2003 Evo probaj ovo. Mozda bude koja greskica jer sam kucao direktno ovdje. Vidi jeli to to sto ti treba. PreuzmiIzvorni kôd (Visual Basic): Function Zapisxml() Dim Tabele(1 To 2) As String Dim Putanja As String Dim XmlFile As String Dim Temp As String Tabele(1) = "Zahtjev" ?osnovna tabela Tabele(2) = "Parametar" ' Pridodata tabela Putanja = "c:\Tring\xml\" 'Putanja zapisa bez imena filea XmlFile = "stampatinefiskalnidokument.xml" ' Ime xml fajla Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , Tabele(2) Close #1 Close #2 Open Putanja & "sys.dll" For Input As 1 Open Putanja & XmlFile For Output As 2 While Not EOF(1) Line Input #1, Temp If Left(Temp, 9) = "<dataroot" Then '<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema"> '<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema"> Temp = "<Zahtjev xmlns:xsi=" & Chr(34) & "http://www.w3.org/...instance" & Chr(34) _ & " xmlns:xsd=" & Chr(34) & "http://www.w3.org/...Schema" & Chr(34) & ">" End If If Left(Temp, 11) = "</dataroot>" Then Temp = "</Zahtjev>" End If If Left(Temp, 11)="<Parametar>" Then Print #2, "<Parametri>" end if Print #2, Temp If Left(Temp, 12)="</Parametar>" Then Print #2, "</Parametri>" end if Wend Close #1 Close #2 End Function

zxz

24.07.2011 21:09

Predmet:Re: XML i access 2003

Evo probaj ovo.
Mozda bude koja greskica jer sam kucao direktno ovdje.
Vidi jeli to to sto ti treba.

PreuzmiIzvorni kôd (Visual Basic):

Function Zapisxml()
Dim Tabele(1 To 2) As String
Dim Putanja As String
Dim XmlFile As String
Dim Temp As String
Tabele(1) = "Zahtjev" ?osnovna tabela
Tabele(2) = "Parametar" ' Pridodata tabela
Putanja = "c:\Tring\xml\" 'Putanja zapisa bez imena filea
XmlFile = "stampatinefiskalnidokument.xml" ' Ime xml fajla
Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , Tabele(2)
Close #1
Close #2
Open Putanja & "sys.dll" For Input As 1
Open Putanja & XmlFile For Output As 2
While Not EOF(1)
Line Input #1, Temp
If Left(Temp, 9) = "<dataroot" Then
'<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">
'<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">
Temp = "<Zahtjev xmlns:xsi=" & Chr(34) & "http://www.w3.org/...instance" & Chr(34) _
& " xmlns:xsd=" & Chr(34) & "http://www.w3.org/...Schema" & Chr(34) & ">"
End If
If Left(Temp, 11) = "</dataroot>" Then
Temp = "</Zahtjev>"
End If
If Left(Temp, 11)="<Parametar>" Then
Print #2, "<Parametri>"
end if
Print #2, Temp
If Left(Temp, 12)="</Parametar>" Then
Print #2, "</Parametri>"
end if
Wend
Close #1
Close #2
End Function

EmirSuvalic	24.07.2011 22:04
Predmet:Re: XML i access 2003 To je to druÅ¾e, ti si kralj

EmirSuvalic

24.07.2011 22:04

Predmet:Re: XML i access 2003

To je to druÅ¾e, ti si kralj

zxz	24.07.2011 23:16
Predmet:Re: XML i access 2003 E sad to sve provjeri je li dobro, da nebi opanke derao djaba. Mozes provjeriti ovdje...

zxz

24.07.2011 23:16

Predmet:Re: XML i access 2003

E sad to sve provjeri je li dobro, da nebi opanke derao djaba.
Mozes provjeriti ovdje...

EmirSuvalic	24.07.2011 23:26
Predmet:Re: XML i access 2003 Ako moze joÅ¡ jedno pitanje i necu vise obecavam, moÅ¾e li komentar ovih linija koda If Left(Temp, 11)="<Parametar>" Then Print #2, "<Parametri>" end if Print #2, Temp If Left(Temp, 12)="</Parametar>" Then Print #2, "</Parametri>" end if[list=ol][/list]

EmirSuvalic

24.07.2011 23:26

Predmet:Re: XML i access 2003

Ako moze joÅ¡ jedno pitanje i necu vise obecavam, moÅ¾e li komentar ovih linija koda

If Left(Temp, 11)="<Parametar>" Then
Print #2, "<Parametri>"
end if
Print #2, Temp
If Left(Temp, 12)="</Parametar>" Then
Print #2, "</Parametri>"
end if[list=ol][/list]

zxz	24.07.2011 23:38
Predmet:Re: XML i access 2003 Forum sluzi za to da se postavljaju pitanja i naravno ako naravno ako nesto mislis da znas sto drugi mozda neznaju da napises. U temp se ucitava jedan red podataka If Left(Temp, 11)="<Parametar>" Then' ako je lijevo 11 karaktera u tempu jednako "<Parametar>" tada uradi sledece Print #2, "<Parametri>" upisi u fajl 2 "<Parametri>" end if Print #2, Temp ' upisi u fajl 2 iz memorijske temp koja cita iz fajla 1 tj iz sys.dll If Left(Temp, 12)="</Parametar>" Then -ovo dole ostalo je isto samo drugi uslov Print #2, "</Parametri>" end if[list=ol][/list]

zxz

24.07.2011 23:38

Predmet:Re: XML i access 2003

Forum sluzi za to da se postavljaju pitanja i naravno ako naravno ako nesto mislis da znas sto drugi mozda neznaju da napises.
U temp se ucitava jedan red podataka
If Left(Temp, 11)="<Parametar>" Then' ako je lijevo 11 karaktera u tempu jednako "<Parametar>" tada uradi sledece
Print #2, "<Parametri>" upisi u fajl 2 "<Parametri>"
end if
Print #2, Temp ' upisi u fajl 2 iz memorijske temp koja cita iz fajla 1 tj iz sys.dll
If Left(Temp, 12)="</Parametar>" Then -ovo dole ostalo je isto samo drugi uslov
Print #2, "</Parametri>"
end if[list=ol][/list]

EmirSuvalic	25.07.2011 00:11
Predmet:Re: XML i access 2003 Kako sam ja skonato onaj tvoj prethodni kod ja sada kada dodajem nove linije samo prepravljam sta mi gdje pase evo primjer koji sam ja probao: If Left(Temp, 9) = "<artikal>" Then Print #3, "<RacunStavka>" End If Print #3, Temp If Left(Temp, 10) = "</artikal>" Then Print #3, "</RacunStavka>" End If

EmirSuvalic

25.07.2011 00:11

Predmet:Re: XML i access 2003

Kako sam ja skonato onaj tvoj prethodni kod ja sada kada dodajem nove linije samo prepravljam sta mi gdje pase evo primjer koji sam ja probao:

If Left(Temp, 9) = "<artikal>" Then
Print #3, "<RacunStavka>"
End If
Print #3, Temp
If Left(Temp, 10) = "</artikal>" Then
Print #3, "</RacunStavka>"
End If

zxz	25.07.2011 00:33
Predmet:Re: XML i access 2003 Objasnjenje cijele procedure Zapisixml PreuzmiIzvorni kôd (Visual Basic): Function Zapisxml() Dim Tabele(1 To 2) As String ' dimenzionisane dvije memorijske pod nazivom tabele Dim Putanja As String Dim XmlFile As String Dim Temp As String Tabele(1) = "Zahtjev" ' ?osnovna tabela ' Upisano u memrijsku Tabele(1) vrijednost "Zahtjev" Tabele(2) = "Parametar" ' Pridodata tabela--Upis u drugu memorijsku Putanja = "c:\Tring\xml\" 'Putanja zapisa bez imena filea Upis u mem. putanja XmlFile = "stampatinefiskalnidokument.xml" ' Ime xml fajla Upis u mem xmlfile 'export u xml fajl pod nazivom sys.dll na putanji iz memorijske putanja Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , Tabele(2) Close #1 'Zatvori sekvencialni fajl 1 Close #2 'Zatvori file 2 'Ovo se sam stavio samo zato ako dodje do greske pa pokrenes proceduru a ne dodje do kraja onda znaju ostati otvoreni fajlovi pa procedura poslije nece da radi Inace kada se zavrsi i istestira procedura moze se i brisati. Open Putanja & "sys.dll" For Input As 1 ' Otvori fajl pod nazivom Sys.dll kao 1 i to za citanje Open Putanja & XmlFile For Output As 2 '' Otvori fajl pod nazivom stampatinefiskalnidokument.xm kao 2 i to za cpisanje 'Znaci imas otvorena dva fajla jedan za citanje koji je predhodno napravila procedura accessa ExportXML While Not EOF(1) 'Pocetak while petlje koja cita file 1 tj. sys.dll Line Input #1, Temp ' cita jedan red iz fajla i zapisuje u mem. variablu koju smo dimenzionisali pod nazivom temp If Left(Temp, 9) = "<dataroot" Then ' ovo sam prije objasnio. 'Znaci ako se u Temp u redu slijeva nalazi zapis <dataroot> tada umjesto toga upisi dole ispod Temp = "<Zahtjev xmlns:xsi=" & Chr(34) & "http://www.w3.org/...instance" & Chr(34) _ & " xmlns:xsd=" & Chr(34) & "http://www.w3.org/...Schema" & Chr(34) & ">" End If If Left(Temp, 11) = "</dataroot>" Then ' ovo sam isto objasnio Temp = "</Zahtjev>" End If Print #2, Temp ' zapisi vrijednost temp u file 2 Wend ' Kraj petlje Close #1 ' zatvori fajl 1 Close #2 'Zatvori fajl 2 End Function kako vidis fajl 3 ne postoji i javit ce ti gresku. Broj 1 i 2 su brojevi za otvorene fajlove

zxz

25.07.2011 00:33

Predmet:Re: XML i access 2003

Objasnjenje cijele procedure Zapisixml

PreuzmiIzvorni kôd (Visual Basic):

Function Zapisxml()
Dim Tabele(1 To 2) As String ' dimenzionisane dvije memorijske pod nazivom tabele
Dim Putanja As String
Dim XmlFile As String
Dim Temp As String
Tabele(1) = "Zahtjev" ' ?osnovna tabela ' Upisano u memrijsku Tabele(1) vrijednost "Zahtjev"
Tabele(2) = "Parametar" ' Pridodata tabela--Upis u drugu memorijsku
Putanja = "c:\Tring\xml\" 'Putanja zapisa bez imena filea Upis u mem. putanja
XmlFile = "stampatinefiskalnidokument.xml" ' Ime xml fajla Upis u mem xmlfile
'export u xml fajl pod nazivom sys.dll na putanji iz memorijske putanja
Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , Tabele(2)
Close #1 'Zatvori sekvencialni fajl 1
Close #2 'Zatvori file 2
'Ovo se sam stavio samo zato ako dodje do greske pa pokrenes proceduru a ne dodje do kraja onda znaju ostati otvoreni fajlovi pa procedura poslije nece da radi
Inace kada se zavrsi i istestira procedura moze se i brisati.
Open Putanja & "sys.dll" For Input As 1 ' Otvori fajl pod nazivom Sys.dll kao 1 i to za citanje
Open Putanja & XmlFile For Output As 2 '' Otvori fajl pod nazivom stampatinefiskalnidokument.xm kao 2 i to za cpisanje
'Znaci imas otvorena dva fajla jedan za citanje koji je predhodno napravila procedura accessa ExportXML
While Not EOF(1) 'Pocetak while petlje koja cita file 1 tj. sys.dll
Line Input #1, Temp ' cita jedan red iz fajla i zapisuje u mem. variablu koju smo dimenzionisali pod nazivom temp
If Left(Temp, 9) = "<dataroot" Then ' ovo sam prije objasnio.
'Znaci ako se u Temp u redu slijeva nalazi zapis <dataroot> tada umjesto toga upisi dole ispod
Temp = "<Zahtjev xmlns:xsi=" & Chr(34) & "http://www.w3.org/...instance" & Chr(34) _
& " xmlns:xsd=" & Chr(34) & "http://www.w3.org/...Schema" & Chr(34) & ">"
End If
If Left(Temp, 11) = "</dataroot>" Then ' ovo sam isto objasnio
Temp = "</Zahtjev>"
End If
Print #2, Temp ' zapisi vrijednost temp u file 2
Wend ' Kraj petlje
Close #1 ' zatvori fajl 1
Close #2 'Zatvori fajl 2
End Function

kako vidis fajl 3 ne postoji i javit ce ti gresku.

Broj 1 i 2 su brojevi za otvorene fajlove

Branestan	20.11.2021 00:04
Predmet:Re:XML i access 2003 Pozdrav! Iskoristio sam postojeći kod i prilagodio svojim tabelama ali nikako ne uspijevam dodati podatke iz druge tabele (a trebam dodati i drugu i treću - OBAVEZE i DL1). Dobijem ovo: <?xml version="1.0" encoding="UTF-8"?> <PRIJAVA_1002> <ZAGLAVLJE> <VRSTA_PRIJAVE>MPO1</VRSTA_PRIJAVE> <TIP_PRIJAVE>O</TIP_PRIJAVE> <JIB>4401295880006</JIB> <SIFRA_OPSTINE>028</SIFRA_OPSTINE> <PORESKI_PERIOD_OD>01.09.2021</PORESKI_PERIOD_OD> <PORESKI_PERIOD_DO>30.09.2021</PORESKI_PERIOD_DO> <ISPLATNI_PERIOD_OD>01.09.2021</ISPLATNI_PERIOD_OD> <ISPLATNI_PERIOD_DO>30.09.2021</ISPLATNI_PERIOD_DO> <POSLODAVAC_KTI/> <NAMJENA_PRIJAVE>2</NAMJENA_PRIJAVE> <ISPLATA_PRIMANJA>1</ISPLATA_PRIMANJA> <NACIN_OBAVLJANJA_SDJELATNOSTI/> <PO_NALOGU_INSPEKTORA>0</PO_NALOGU_INSPEKTORA> </ZAGLAVLJE> </PRIJAVA_1002> A treba da izgleda ovako: <?xml version="1.0" encoding="UTF-8"?> <PRIJAVA_1002> <ZAGLAVLJE> <VRSTA_PRIJAVE>MPO1</VRSTA_PRIJAVE> <TIP_PRIJAVE>O</TIP_PRIJAVE> <JIB>4401295880006</JIB> <SIFRA_OPSTINE>028</SIFRA_OPSTINE> <PORESKI_PERIOD_OD>01.09.2021</PORESKI_PERIOD_OD> <PORESKI_PERIOD_DO>30.09.2021</PORESKI_PERIOD_DO> <ISPLATNI_PERIOD_OD>01.09.2021</ISPLATNI_PERIOD_OD> <ISPLATNI_PERIOD_DO>30.09.2021</ISPLATNI_PERIOD_DO> <POSLODAVAC_KTI/> <NAMJENA_PRIJAVE>2</NAMJENA_PRIJAVE> <ISPLATA_PRIMANJA>1</ISPLATA_PRIMANJA> <NACIN_OBAVLJANJA_SDJELATNOSTI/> <PO_NALOGU_INSPEKTORA>0</PO_NALOGU_INSPEKTORA> </ZAGLAVLJE> <OBAVEZA> podaci iz tabele OBAVEZE </OBAVEZA> <DL1> podaci iz tabele DL1 </DL1> </PRIJAVA_1002> Zamolio bih ako neko bude u prilici da pogleda Å¡ta nedostaje u kodu, pa da me usmjeri.
Prilozi: POS_1.rar (Velicina datoteke:32.61 KB)

Branestan

20.11.2021 00:04

Predmet:Re:XML i access 2003

Pozdrav!

Iskoristio sam postojeći kod i prilagodio svojim tabelama ali nikako ne uspijevam dodati podatke iz druge tabele (a trebam dodati i drugu i treću - OBAVEZE i DL1).

Dobijem ovo:
<?xml version="1.0" encoding="UTF-8"?>
<PRIJAVA_1002>
<ZAGLAVLJE>
<VRSTA_PRIJAVE>MPO1</VRSTA_PRIJAVE>
<TIP_PRIJAVE>O</TIP_PRIJAVE>
<JIB>4401295880006</JIB>
<SIFRA_OPSTINE>028</SIFRA_OPSTINE>
<PORESKI_PERIOD_OD>01.09.2021</PORESKI_PERIOD_OD>
<PORESKI_PERIOD_DO>30.09.2021</PORESKI_PERIOD_DO>
<ISPLATNI_PERIOD_OD>01.09.2021</ISPLATNI_PERIOD_OD>
<ISPLATNI_PERIOD_DO>30.09.2021</ISPLATNI_PERIOD_DO>
<POSLODAVAC_KTI/>
<NAMJENA_PRIJAVE>2</NAMJENA_PRIJAVE>
<ISPLATA_PRIMANJA>1</ISPLATA_PRIMANJA>
<NACIN_OBAVLJANJA_SDJELATNOSTI/>
<PO_NALOGU_INSPEKTORA>0</PO_NALOGU_INSPEKTORA>
</ZAGLAVLJE>
</PRIJAVA_1002>

A treba da izgleda ovako:
<?xml version="1.0" encoding="UTF-8"?>
<PRIJAVA_1002>
<ZAGLAVLJE>
<VRSTA_PRIJAVE>MPO1</VRSTA_PRIJAVE>
<TIP_PRIJAVE>O</TIP_PRIJAVE>
<JIB>4401295880006</JIB>
<SIFRA_OPSTINE>028</SIFRA_OPSTINE>
<PORESKI_PERIOD_OD>01.09.2021</PORESKI_PERIOD_OD>
<PORESKI_PERIOD_DO>30.09.2021</PORESKI_PERIOD_DO>
<ISPLATNI_PERIOD_OD>01.09.2021</ISPLATNI_PERIOD_OD>
<ISPLATNI_PERIOD_DO>30.09.2021</ISPLATNI_PERIOD_DO>
<POSLODAVAC_KTI/>
<NAMJENA_PRIJAVE>2</NAMJENA_PRIJAVE>
<ISPLATA_PRIMANJA>1</ISPLATA_PRIMANJA>
<NACIN_OBAVLJANJA_SDJELATNOSTI/>
<PO_NALOGU_INSPEKTORA>0</PO_NALOGU_INSPEKTORA>
</ZAGLAVLJE>
<OBAVEZA>
podaci iz tabele OBAVEZE
</OBAVEZA>
<DL1>
podaci iz tabele DL1
</DL1>
</PRIJAVA_1002>

Zamolio bih ako neko bude u prilici da pogleda Å¡ta nedostaje u kodu, pa da me usmjeri.

Prilozi:
POS_1.rar (Velicina datoteke:32.61 KB)