Prikazi cijelu temu 25.11.2021 01:37
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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