Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (4):1,2,3,4
 Prikazi prvu neprocitanu poruku

#11 28.10.2010 15:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


Predmet:Re: XML po zadanoj shemi
Sto se tice ispravnosti xml-a ispravan je.
Jedino struktura tvoje baze ne odgovara strukturi njihove.

Paketni UvozObrasca ti je ovo:
Tvoj:
PreuzmiIzvorni kôd (XML):
  1. <?xml version='1.0' encoding='UTF-8' ?>
  2. <PaketniUvozOrazaca xmlns:xs='http://www.w3.org/2001/XMLSchema' xmlns='urn:PaketniUvozObrazaca_V1_0.xsd' targetNamespace='urn:PaketniUvozObrazaca_V1_0.xsd' elementFormDefault='qualified' id='PaketniUvozObrazaca_V1_0' attributeFormDefault='unqualified'>
  3.  
  4. Iz Seme:
  5. <?xml version="1.0" encoding="utf-8"?>
  6. <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns="urn:PaketniUvozObrazaca_V1_0.xsd" targetNamespace="urn:PaketniUvozObrazaca_V1_0.xsd" elementFormDefault="qualified" id="PaketniUvozObrazaca_V1_0" attributeFormDefault="unqualified">
  7.         <xs:complexType name="type_Izjava">
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 28.10.2010 15:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


Predmet:Re: XML po zadanoj shemi
Ovo zadnje si ovdje napravio gresku:
</PaketniUvozOrazaca>
Fali slovo b.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 28.10.2010 16:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


Predmet:Re: XML po zadanoj shemi
331: </Obrazac1022>
332: <Obrazac1022>

ovo imas na nekoliko mjesta i nije uredu treba pragledati.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 28.10.2010 20:02
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
Citiraj zxz:
331: </Obrazac1022>
332: <Obrazac1022>

ovo imas na nekoliko mjesta i nije uredu treba pragledati.

Ovo se odnosi za svakog radnika samo prvo otvaram <OBRAZAC1022> pa ga onda zatvaramo </Obrazac1022>-
Uradio sam sve ispravke koje je mi je Validator javio osim one u drugom redu

    

XML Schema Validator
Version: 1.0.1.r120833

Well Formed: VALID
Schema Validation: INVALID

The following errors were found:
TYPE     LOC     MESSAGE
Validation     2, 254     cvc-complex-type.3.2.2: Attribute 'targetNamespace' is not allowed to appear in element 'PaketniUvozObrazaca'.
Validation     2, 254     cvc-complex-type.3.2.2: Attribute 'elementFormDefault' is not allowed to appear in element 'PaketniUvozObrazaca'.
Validation     2, 254     cvc-complex-type.3.2.2: Attribute 'id' is not allowed to appear in element 'PaketniUvozObrazaca'.
Validation     2, 254     cvc-complex-type.3.2.2: Attribute 'attributeFormDefault' is not allowed to appear in element 'PaketniUvozObrazaca'.
Pozdav,

Nedim
↑  ↓

#15 28.10.2010 20:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


Predmet:Re: XML po zadanoj shemi
Koliko ja vidim:
PaketniUvozObrazaca nije dobar naziv.
Ima li gdje primjer kako izgleda.
Ocevidno da se u bazi ne zove tako.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 29.10.2010 07:50
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: XML po zadanoj shemi
Postavio sam i uvb Å¡koli,ova funkcija ti radi:
PreuzmiIzvorni kôd (Text):
  1. Function EksportXML()
  2.  
  3. Dim Db As Database
  4. Dim Rs1 As DAO.Recordset, Rs2 As DAO.Recordset, Rs3 As DAO.Recordset
  5. Dim Naslov As String, Tekst As String
  6.  
  7. Dim ImetabeleXML As String, ImeTabeleBaze As String, ImePoljaXml As String, ImePoljaBaze As String
  8. Dim ID As Integer, ID2 As String, ID1N As String, ID2N As String
  9. Dim SQL As String, X As Integer
  10.  
  11.  
  12. Set Db = CurrentDb()
  13. Close #1
  14.  
  15. Open Db_Putanja & "4281.xml" For Output As #1
  16. Naslov = "<?xml version='1.0' encoding='UTF-8'?>"
  17. Print #1, Naslov
  18. 'Naslov = "<PaketniUvozObrazaca xsi:schemaLocation='" _
  19. ' & "urn:PaketniUvozObrazaca_V1_0.xsd PaketniUvozObrazaca_V1_0.xsd' xmlns='"
  20.  ' & "urn:PaketniUvozObrazaca_V1_0.xsd' xmlns:xsi='http://www.w3.org/2001/XMLSchema'>"
  21. Naslov = "<PaketniUvozObrazaca xmlns='urn:PaketniUvozObrazaca_V1_0.xsd' >"
  22. Print #1, Naslov
  23.  
  24. Tekst = "<PodaciOPoslodavcu>"
  25. Print #1, Tekst
  26.  
  27. Tekst = "<JIBPoslodavca>" & DLookup("[JIBPoslodavca]", "PodaciOPoslodavcu") & "</JIBPoslodavca>"
  28. Print #1, Tekst
  29. Tekst = "<NazivPoslodavca>" & DLookup("[NazivPoslodavca]", "PodaciOPoslodavcu") & "</NazivPoslodavca>"
  30. Print #1, Tekst
  31. Tekst = "<BrojZahtjeva>" & DLookup("BrojZahtjeva", "PodaciOPoslodavcu") & "</BrojZahtjeva>"
  32. Print #1, Tekst
  33. Tekst = "<DatumPodnosenja>" & DLookup("DatumPodnosenja", "PodaciOPoslodavcu") & "</DatumPodnosenja>"
  34. Print #1, Tekst
  35. Tekst = "</PodaciOPoslodavcu>"
  36. Print #1, Tekst
  37.  
  38.  
  39. Set Rs1 = Db.OpenRecordset("Select distinct sifra  FROM qry1022", dbOpenDynaset)
  40.     Do While Not Rs1.EOF
  41.         'ID1 = Rs1!SIFR
  42.         Tekst = "<Obrazac1022>"
  43.         Print #1, Tekst
  44.         Tekst = "<Dio1PodaciOPoslodavcuIPoreznomObvezniku>"
  45.         Print #1, Tekst
  46.         Tekst = "<JIBJMBPoslodavca>" & DLookup("JIBJMBPoslodavca", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</JIBJMBPoslodavca>"
  47.         Print #1, Tekst
  48.         Tekst = "<Naziv>" & DLookup("[Naziv]", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</Naziv>"
  49.         Print #1, Tekst
  50.         Tekst = "<AdresaSjedista>" & DLookup("AdresaSjedista", "dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</AdresaSjedista>"
  51.         Print #1, Tekst
  52.         Tekst = "<JMBZaposlenika>" & DLookup("JMBZaposlenika", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</JMBZaposlenika>"
  53.         Print #1, Tekst
  54.         Tekst = "<ImeIPrezime>" & DLookup("ImeIPrezime", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</ImeIPrezime>"
  55.         Print #1, Tekst
  56.         Tekst = "<AdresaPrebivalista>" & DLookup("AdresaPrebivalista", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</AdresaPrebivalista>"
  57.         Print #1, Tekst
  58.         Tekst = "<PoreznaGodina>" & DLookup("PoreznaGodina", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</PoreznaGodina>"
  59.         Print #1, Tekst
  60.         Tekst = "</Dio1PodaciOPoslodavcuIPoreznomObvezniku>"
  61.         Print #1, Tekst
  62.         Tekst = "<Dio2PodaciOPrihodimaDoprinosimaIPorezu>"
  63.         Print #1, Tekst
  64.                
  65.     Set Rs2 = Db.OpenRecordset("SELECT * FROM PodaciOPrihodimaDoprinosimaIPorezu WHERE sifra='" & Rs1!sifra & "' order by Mjesec")
  66.     Do While Not Rs2.EOF
  67.        
  68.         Tekst = "<PodaciOPrihodimaDoprinosimaIPorezu>"
  69.         Print #1, Tekst
  70.        
  71.         Tekst = "<Mjesec>" & Rs2!Mjesec & "</Mjesec>"
  72.         Print #1, Tekst
  73.         Tekst = "<IsplataZaMjesecIGodinu>" & Rs2!IsplataZaMjesecIGodinu & "</IsplataZaMjesecIGodinu>"
  74.         Print #1, Tekst
  75.         Tekst = "<VrstaIsplate>" & Rs2!VrstaIsplate & "</VrstaIsplate>"
  76.         Print #1, Tekst
  77.         Tekst = "<IznosPrihodaUNovcu>" & Rs2!IznosPrihodaUNovcu & "</IznosPrihodaUNovcu>"
  78.         Print #1, Tekst
  79.         Tekst = "<IznosPrihodaUStvarimaUslugama>" & Rs2!IznosPrihodaUStvarimaUslugama & "</IznosPrihodaUStvarimaUslugama>"
  80.         Print #1, Tekst
  81.         Tekst = "<BrutoPlaca>" & Rs2!BrutoPlaca & "</BrutoPlaca>"
  82.         Print #1, Tekst
  83.         Tekst = "<IznosZaPenzijskoInvalidskoOsiguranje>" & Rs2!IznosZaPenzijskoInvalidskoOsiguranje & "</IznosZaPenzijskoInvalidskoOsiguranje>"
  84.         Print #1, Tekst
  85.         Tekst = "<IznosZaZdravstvenoOsiguranje>" & Rs2!IznosZaZdravstvenoOsiguranje & "</IznosZaZdravstvenoOsiguranje>"
  86.         Print #1, Tekst
  87.         Tekst = "<IznosZaOsiguranjeOdNezaposlenosti>" & Rs2!IznosZaOsiguranjeOdNezaposlenosti & "</IznosZaOsiguranjeOdNezaposlenosti>"
  88.         Print #1, Tekst
  89.         Tekst = "<UkupniDoprinosi>" & Rs2!UkupniDoprinosi & "</UkupniDoprinosi>"
  90.         Print #1, Tekst
  91.         Tekst = "<PlacaBezDoprinosa>" & Rs2!PlacaBezDoprinosa & "</PlacaBezDoprinosa>"
  92.         Print #1, Tekst
  93.         Tekst = "<FaktorLicnihOdbitakaPremaPoreznojKartici>" & Rs2!FaktorLicnihOdbitakaPremaPoreznojKartici & "</FaktorLicnihOdbitakaPremaPoreznojKartici>"
  94.         Print #1, Tekst
  95.         Tekst = "<IznosLicnogOdbitka>" & Rs2!IznosLicnogOdbitka & "</IznosLicnogOdbitka>"
  96.         Print #1, Tekst
  97.         Tekst = "<OsnovicaPoreza>" & Rs2!OsnovicaPoreza & "</OsnovicaPoreza>"
  98.         Print #1, Tekst
  99.         Tekst = "<IznosUplacenogPoreza>" & Rs2!IznosUplacenogPoreza & "</IznosUplacenogPoreza>"
  100.         Print #1, Tekst
  101.         Tekst = "<NetoPlaca>" & Rs2!NetoPlaca & "</NetoPlaca>"
  102.         Print #1, Tekst
  103.         Tekst = "<DatumUplate>" & Rs2!DatumUplate & "</DatumUplate>"
  104.         Print #1, Tekst
  105.        
  106.         Tekst = "</PodaciOPrihodimaDoprinosimaIPorezu>"
  107.         Print #1, Tekst
  108.        
  109.     Rs2.MoveNext
  110.     Loop
  111.     Rs2.Close
  112.        
  113.         Tekst = "<Ukupno>"
  114.         Print #1, Tekst
  115.    
  116.         Tekst = "<IznosPrihodaUNovcu>" & DLookup("IznosPrihodaUNovcu", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosPrihodaUNovcu>"
  117.         Print #1, Tekst
  118.         Tekst = "<IznosPrihodaUStvarimaUslugama>" & DLookup("IznosPrihodaUStvarimaUslugama", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosPrihodaUStvarimaUslugama>"
  119.         Print #1, Tekst
  120.         Tekst = "<BrutoPlaca>" & DLookup("BrutoPlaca", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</BrutoPlaca>"
  121.         Print #1, Tekst
  122.         Tekst = "<IznosZaPenzijskoInvalidskoOsiguranje>" & DLookup("IznosZaPenzijskoInvalidskoOsiguranje", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosZaPenzijskoInvalidskoOsiguranje>"
  123.         Print #1, Tekst
  124.         Tekst = "<IznosZaZdravstvenoOsiguranje>" & DLookup("IznosZaZdravstvenoOsiguranje", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosZaZdravstvenoOsiguranje>"
  125.         Print #1, Tekst
  126.         Tekst = "<IznosZaOsiguranjeOdNezaposlenosti>" & DLookup("IznosZaOsiguranjeOdNezaposlenosti", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosZaOsiguranjeOdNezaposlenosti>"
  127.         Print #1, Tekst
  128.         Tekst = "<UkupniDoprinosi>" & DLookup("UkupniDoprinosi", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</UkupniDoprinosi>"
  129.         Print #1, Tekst
  130.         Tekst = "<PlacaBezDoprinosa>" & DLookup("PlacaBezDoprinosa", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</PlacaBezDoprinosa>"
  131.         Print #1, Tekst
  132.         Tekst = "<IznosLicnogOdbitka>" & DLookup("IznosLicnogOdbitka", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosLicnogOdbitka>"
  133.         Print #1, Tekst
  134.         Tekst = "<OsnovicaPoreza>" & DLookup("OsnovicaPoreza", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</OsnovicaPoreza>"
  135.         Print #1, Tekst
  136.         Tekst = "<IznosUplacenogPoreza>" & DLookup("IznosUplacenogPoreza", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosUplacenogPoreza>"
  137.         Print #1, Tekst
  138.         Tekst = "<NetoPlaca>" & DLookup("NetoPlaca", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</NetoPlaca>"
  139.         Print #1, Tekst
  140.    
  141.         Tekst = "</Ukupno>"
  142.         Print #1, Tekst
  143.    
  144.         Tekst = "</Dio2PodaciOPrihodimaDoprinosimaIPorezu>"
  145.         Print #1, Tekst
  146.        
  147.         Tekst = "<Dio3IzjavaPoslodavcaIsplatioca>"
  148.         Print #1, Tekst
  149.        
  150.         Tekst = "<JIBJMBPoslodavca>" & DLookup("JIBJMBPoslodavca", "Dio3IzjavaPoslodavcaIsplatioca") & "</JIBJMBPoslodavca>"
  151.         Print #1, Tekst
  152.         Tekst = "<DatumUnosa>" & DLookup("DatumUnosa", "Dio3IzjavaPoslodavcaIsplatioca") & "</DatumUnosa>"
  153.         Print #1, Tekst
  154.         Tekst = "<NazivPoslodavca>" & DLookup("NazivPoslodavca", "Dio3IzjavaPoslodavcaIsplatioca") & "</NazivPoslodavca>"
  155.         Print #1, Tekst
  156.        
  157.         Tekst = "</Dio3IzjavaPoslodavcaIsplatioca>"
  158.         Print #1, Tekst
  159.    
  160.         Tekst = "<Dokument>"
  161.         Print #1, Tekst
  162.        
  163.         Tekst = "<Operacija>" & DLookup("Operacija", "Dokument") & "</Operacija>"
  164.         Print #1, Tekst
  165.  
  166.         Tekst = "</Dokument>"
  167.         Print #1, Tekst
  168.  
  169.         Tekst = "</Obrazac1022>"
  170.         Print #1, Tekst
  171.  
  172. Rs1.MoveNext
  173. Loop
  174.  
  175. 'Tekst = "</SpecifikacijaZahtjevaZaIzdavanjePorezneKartice>"
  176. 'Print #1, Tekst
  177.  
  178. Rs1.Close
  179.  
  180. Tekst = "</PaketniUvozObrazaca>"
  181. Print #1, Tekst
  182. Close #1
  183.  
  184. Set Db = Nothing
  185.  
  186. subConvertToUTF8 Db_Putanja & "4281.xml"
  187. End Function
Miro
↑  ↓

#17 29.10.2010 08:07
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
Ispravio sam i ja jutros ovaj naslov kao kod tebe i prošlo je bez greške
'Naslov = "<PaketniUvozObrazaca xsi:schemaLocation='" _
' & "urn:PaketniUvozObrazaca_V1_0.xsd PaketniUvozObrazaca_V1_0.xsd' xmlns='"
' & "urn:PaketniUvozObrazaca_V1_0.xsd' xmlns:xsi='http://www.w3.org/2001/XMLSchema'>"
Naslov = "<PaketniUvozObrazaca xmlns='urn:PaketniUvozObrazaca_V1_0.xsd' >"

Hvala svima na pomoći
Pozdav,

Nedim
↑  ↓

#18 21.02.2011 16:18
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
OPET JA NA OVOJ TEMI, MOŽDA SAM I MALO DOSADAN, ALI IMAM PROBLEM KOD ZATVARANJA DJELOVA XML FILE-A IAKO IMAM ULSOV AKO JE KRAJ UPIŠI KRAJ DJELA NERADI.
MOLIM ZA POMOĆ. sVE SAM PREGLEDAO ALI NEMOGU DA NAĐEM GREÅ KU
Pozdav,

Nedim
Ovaj post je ureden 2 puta. Posljednja izmjena 21.02.2011 16:20 od strane nzuko. ↑  ↓

#19 21.02.2011 16:30
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,711


Predmet:Re: XML po zadanoj shemi
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command0_Click()
  2. DoCmd.Hourglass True
  3.     exportXML
  4. DoCmd.Hourglass False
  5. MsgBox "Gorovo" & vbCr & "Kraj" & "Konjec" & vbCr & " Nema kraja ovom sreanju"
  6. End Sub

Nesznam jesi li mislio na kraj skroz ili na nekom dijelu.
Ako nije ovo napisi gdje hoces da javi?
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#20 21.02.2011 16:44
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
ma mislim na kraj djela,xml formata
ono
<nešto>
xxx
xxx
xxx
</nešto>
e ja dobijem iako imam ako je kraj selekta uradi ovo </nešto>
neradi nego dobijem ovako

<nešto>
xxx
xxx
xxx
(ovdje fali kraj djela </nešto>)
<nešto>

evo možeš vidjeti u primjeri
Pozdav,

Nedim
↑  ↓

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

Ko je online?

Aktivni clanovi:
nema clanova


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