zxz 23.11.2021 00:09
Predmet:Re:XML i access 2003

Ako se radi o tagu <STAVKA1> ja ne vidim gdje nije izmijenjeno ili te ne razumijem sta hoces.
Rekao si gore da tag <STAVKA1> promijenis u tag <STAVKA>.
Ovaj xml koji si dao nema nigdje taga <STAVKA1> ili ja ne vidim.

zxz 23.11.2021 00:26
Predmet:Re:XML i access 2003

Sad sam vidio ovaj tekst

Citat:
Treba da izmijeni ovo <GRUPA1>1</GRUPA1> tako da bude <STAVKA>

i vjerovatno si na ovo mislio da ne radi

PreuzmiIzvorni kôd (Visual Basic):
  1.         If InStr(Temp, "1>") > 0 Then
  2.             If InStr(Temp, "</") > 0 Then
  3.             Temp = "</STAVKA>"
  4.             Else
  5.             Temp = "<STAVKA>"
  6.             End If
  7.         End If
  8.         Print #2, tmp ' zapisi vrijednost temp u file 2
  9.        tmp = Temp

Ova si polja mogao promijeniti i u accesu a ne da mijenjas poslije kada zapises xml.

zxz 24.11.2021 17:21
Predmet:Re:XML i access 2003

Evo ti kod mada u tabelama po meni imas viska polja.
U svim tabelama imas polje gruša i polje stavka iz kojih tzi netrebaju podaci.
Odnosno podai su uvijek 1.
Ja bih prepravio tabele pa preuredio kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Zapisxml()
  2. Dim Putanja As String, Temp As String, XmlFile As String
  3. Dim I As Integer
  4.  
  5. Const BrojTabela = 5
  6.  
  7. Putanja = "d:\" 'Putanja zapisa bez imena filea Upis u mem. putanja
  8. 'XmlFile = DMin("JIB", "Radnja") & ".xml" ' Ime xml fajla Upis u mem xmlfile
  9. Close #1 'Zatvori sekvencialni fajl 1
  10. Open Putanja & "dd.XML" For Output As 1
  11. Temp = "<PRIJAVA_1002>"
  12. Print #1, Temp
  13. Temp = "<script id=" & Chr(34) & "tinyhippos-injected" & Chr(34) & "/>"
  14. Print #1, Temp
  15. For I = 1 To BrojTabela
  16. ImeTabele = Choose(I, "ZAGLAVLJE", "OBAVEZA", "DL1", "DL3", "DL5")
  17. Temp = "<" & ImeTabele & ">"
  18. Print #1, Temp
  19.     If I > 1 Then
  20.     Temp = "<STAVKA>"
  21.     Print #1, Temp
  22.     End If
  23. TabeleUpis (ImeTabele)
  24.     If I > 1 Then
  25.     Temp = "</STAVKA>"
  26.     Print #1, Temp
  27.     End If
  28.     Temp = "</" & ImeTabele & ">"
  29.     Print #1, Temp
  30. Next I
  31. Temp = "</PRIJAVA_1002>"
  32. Print #1, Temp
  33. Close #1
  34. End Function
  35. Function TabeleUpis(ImeTabele)
  36. Dim Db As Database
  37. Dim Rs As Recordset
  38. Dim I As Integer, FieldsCount As Integer, Start As Integer
  39. Dim Temp As String
  40.  
  41. Set Db = CurrentDb
  42. Set Rs = Db.OpenRecordset(ImeTabele)
  43. FieldsCount = Rs.Fields.Count - 1
  44. 'MsgBox Rs.Fields(0).Name
  45. 'Exit Function
  46. If ImeTabele <> "ZAGLAVLJE" Then
  47. Start = 1
  48. End If
  49. Do While Not Rs.EOF
  50.     For I = Start To FieldsCount - Start
  51.     Temp = "<" & Rs.Fields(I).Name & ">" & Rs.Fields(I).Value & "</" & Rs.Fields(I).Name & ">"
  52.     Print #1, Temp
  53.     Next I
  54. Rs.MoveNext
  55. Loop
  56. End Function

zxz 24.11.2021 18:22
Predmet:Re:XML i access 2003

Trebat ce ti i konvertor kodne strane vjerovatno.
Nemam za cirilicu ali negdje ima.
Ako ti je baza na latinici onda imam konvertor.

zxz 24.11.2021 23:03
Predmet:Re:XML i access 2003

Treba i za svaki ucitani red tag stavka . U gornjem slucaju je za svaku tabelu.
Evo ispravlhen kod.
Mozda je najbolje da mi das link za validator pa kad sredim da zakacim.
Option Compare Database
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Zapisxml()
  2. Dim Putanja As String, Temp As String, XmlFile As String
  3. Dim I As Integer
  4.  
  5. Const BrojTabela = 5
  6.  
  7. Putanja = "d:\" 'Putanja zapisa bez imena filea Upis u mem. putanja
  8. 'XmlFile = DMin("JIB", "Radnja") & ".xml" ' Ime xml fajla Upis u mem xmlfile
  9. Close #1 'Zatvori sekvencialni fajl 1
  10. Open Putanja & "dd.XML" For Output As 1
  11. Temp = "<PRIJAVA_1002>"
  12. Print #1, Temp
  13. Temp = "<script id=" & Chr(34) & "tinyhippos-injected" & Chr(34) & "/>"
  14. Print #1, Temp
  15. For I = 1 To BrojTabela
  16. ImeTabele = Choose(I, "ZAGLAVLJE", "OBAVEZA", "DL1", "DL3", "DL5")
  17. Temp = "<" & ImeTabele & ">"
  18. Print #1, Temp
  19. TabeleUpis (ImeTabele)
  20.     Temp = "</" & ImeTabele & ">"
  21.     Print #1, Temp
  22. Next I
  23. Temp = "</PRIJAVA_1002>"
  24. Print #1, Temp
  25. Close #1
  26. End Function
  27. Function TabeleUpis(ImeTabele)
  28. Dim Db As Database
  29. Dim Rs As Recordset
  30. Dim I As Integer, FieldsCount As Integer, Start As Integer
  31. Dim Temp As String
  32.  
  33. Set Db = CurrentDb
  34. Set Rs = Db.OpenRecordset(ImeTabele)
  35. FieldsCount = Rs.Fields.Count - 1
  36. 'MsgBox Rs.Fields(0).Name
  37. 'Exit Function
  38. If ImeTabele <> "ZAGLAVLJE" Then
  39. Start = 1
  40. End If
  41. Do While Not Rs.EOF
  42. If ImeTabele <> "ZAGLAVLJE" Then
  43.     Temp = "<STAVKA>"
  44.     Print #1, Temp
  45. End If
  46.     For I = Start To FieldsCount - Start
  47.     Temp = "<" & Rs.Fields(I).Name & ">" & Rs.Fields(I).Value & "</" & Rs.Fields(I).Name & ">"
  48.     Print #1, Temp
  49.     Next I
  50. If ImeTabele <> "ZAGLAVLJE" Then
  51.     Temp = "</STAVKA>"
  52.     Print #1, Temp
  53. End If
  54. Rs.MoveNext
  55. Loop
  56. End Function

Branestan 24.11.2021 23:37
Predmet:Re:XML i access 2003

Još ovo nedostaje, da izmijeni stavke ZAGLAVLJA:

If Left(Temp, 35) = "<POSLODAVAC_KTI>0</POSLODAVAC_KTI>" Then
Temp = "<POSLODAVAC_KTI/>"
End If
If Left(Temp, 35) = "<POSLODAVAC_KTI>1</POSLODAVAC_KTI>" Then
Temp= "<POSLODAVAC_KTI>X</POSLODAVAC_KTI>"
End If
If Left(Temp, 80) = "<NACIN_OBAVLJANJA_SDJELATNOSTI>0</NACIN_OBAVLJANJA_SDJELATNOSTI>" Then
Temp = "<NACIN_OBAVLJANJA_SDJELATNOSTI/>"
End If
If Left(Temp, 35) = "<PO_NALOGU_INSPEKTORA>0</PO_NALOGU_INSPEKTORA>" Then
Temp = "<PO_NALOGU_INSPEKTORA/>"
End If

zxz 25.11.2021 00:28
Predmet:Re:XML i access 2003

Nema mi to logike:
Vidi sta pise:
<xs:element name="POSLODAVAC_KTI" minOccurs="1">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="1"/>
<xs:enumeration value="X"/>
<xs:enumeration value=""/>
</xs:restriction>
</xs:simpleType>
</xs:element>
znaci vrijednosti koje se mogu upisati su:
1 i x
a ako je prazan string onda nema podatatak i pise se zatvoreni tag.
Posto je kod tebe svuda bilo podataka ovo nisam ni gledao.
Ja mogu prepraviti kod da upisuje ovo i ako nema podataka ali bi ostalo trebalo u bazi ispraviti.
Nevalja ovo sa if jer moze neko izmijeniti u bazi nesto.
trebalo bi ispravno napraviti.

zxz 25.11.2021 00:37
Predmet:Re:XML i access 2003

evo ispravljen kod a ostalo popravi u bazi odnosno napisi ispravno.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function TabeleUpis(ImeTabele)
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim I As Integer, FieldsCount As Integer, Start As Integer
  5. Dim Temp As String
  6.  
  7. Set Db = CurrentDb
  8. Set Rs = Db.OpenRecordset(ImeTabele)
  9. FieldsCount = Rs.Fields.Count - 1
  10. 'MsgBox Rs.Fields(0).Name
  11. 'Exit Function
  12. If ImeTabele <> "ZAGLAVLJE" Then
  13. Start = 1
  14. End If
  15. Do While Not Rs.EOF
  16. If ImeTabele <> "ZAGLAVLJE" Then
  17.     Temp = "<STAVKA>"
  18.     Print #1, Temp
  19. End If
  20.     For I = Start To FieldsCount - Start
  21.     If Format$(Rs.Fields(I).Value) <> "" Then
  22.     Temp = "<" & Rs.Fields(I).Name & ">" & Rs.Fields(I).Value & "</" & Rs.Fields(I).Name & ">"
  23.     Else
  24.     Temp = "<" & Rs.Fields(I).Name & "/>"
  25.     End If
  26.     Print #1, Temp
  27.     Next I
  28. If ImeTabele <> "ZAGLAVLJE" Then
  29.     Temp = "</STAVKA>"
  30.     Print #1, Temp
  31. End If
  32. Rs.MoveNext
  33. Loop
  34. End Function