Prikazi cijelu temu 24.11.2021 17:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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