Prikazi cijelu temu 25.11.2021 00:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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