Prikazi cijelu temu
27.12.2015 00:34
27.12.2015 00:34
Predmet:Re: Kako uvesti podatke iz XML-a
Set Rs = Db.OpenRecordset(Tabela)
Line Input #1, temp
Nazivi = ""
Rs.AddNew
Do While InStr(1, temp, "</tabela") = 0
Nazivi = Nazivi & Naziv
UpisPod temp, Naziv, Podatak, Podatak1
If InStr(1, Nazivi, Naziv) > 0 Then
Rs.Update
Rs.AddNew
Nazivi = ""
End If
Rs.Fields(0) = Trim(Podatak) ' trim umjesto val
Rs(Naziv) = Val(Podatak1)
Line Input #1, temp
Loop
Rs.Update
Rs.Close
End Select
End Sub
Set Rs = Db.OpenRecordset(Tabela)
Line Input #1, temp
Nazivi = ""
Rs.AddNew
Do While InStr(1, temp, "</tabela") = 0
Nazivi = Nazivi & Naziv
UpisPod temp, Naziv, Podatak, Podatak1
If InStr(1, Nazivi, Naziv) > 0 Then
Rs.Update
Rs.AddNew
Nazivi = ""
End If
Rs.Fields(0) = Trim(Podatak) ' trim umjesto val
Rs(Naziv) = Val(Podatak1)
Line Input #1, temp
Loop
Rs.Update
Rs.Close
End Select
End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1
puta. Posljednja izmjena 27.12.2015 00:35 od strane zxz.