Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Zapisxml()
Dim Putanja As String, Temp As String, XmlFile As String
Dim I As Integer
Const BrojTabela = 5
Putanja = "d:\" 'Putanja zapisa bez imena filea Upis u mem. putanja
'XmlFile = DMin("JIB", "Radnja") & ".xml" ' Ime xml fajla Upis u mem xmlfile
Close #1 'Zatvori sekvencialni fajl 1
Open Putanja & "dd.XML" For Output As 1
Temp = ""
Print #1, Temp
Temp = ""
Print #1, Temp
For I = 1 To BrojTabela
ImeTabele = Choose(I, "ZAGLAVLJE", "OBAVEZA", "DL1", "DL3", "DL5")
Temp = "<" & ImeTabele & ">"
Print #1, Temp
TabeleUpis (ImeTabele)
Temp = ""
Print #1, Temp
Next I
Temp = ""
Print #1, Temp
Close #1
End Function
Function TabeleUpis(ImeTabele)
Dim Db As Database
Dim Rs As Recordset
Dim I As Integer, FieldsCount As Integer, Start As Integer
Dim Temp As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(ImeTabele)
FieldsCount = Rs.Fields.Count - 1
'MsgBox Rs.Fields(0).Name
'Exit Function
If ImeTabele <> "ZAGLAVLJE" Then
Start = 1
End If
Do While Not Rs.EOF
If ImeTabele <> "ZAGLAVLJE" Then
Temp = ""
Print #1, Temp
End If
For I = Start To FieldsCount - Start
Temp = "<" & Rs.Fields(I).Name & ">" & Rs.Fields(I).Value & "