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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden
1
puta. Posljednja izmjena 26.12.2015 23:35 od strane zxz.