kenan 26.12.2015 22:57
Predmet:Re: Kako uvesti podatke iz XML-a

rjeseno i ovo samo treba gledati

If val(Podatak) = 401 Or 402 Then
rs.Fields(0) = Podatak
Else
rs.Fields(0) = val(Podatak)
End If

zxz 26.12.2015 23: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

kenan 20.12.2015 16:41
Predmet:Re: Kako uvesti podatke iz XML-a

neznam kako samo isključih onaj adox i proradi odmah

hvala

zxz 20.12.2015 20:10
Predmet:Re: Kako uvesti podatke iz XML-a

Pa rekao sam da ce raditi ali bojim se da ga negdje nisi koristio.
Probaj sad kompajlirati kod ako prodje onda ga nisi nigdje ni koristio ali ako ne prodje onda kod treba prepraviti na dao naredbe ili pak dimenzionisati rs , db i ostalo kako sam naveo.

zxz 20.12.2015 20:16
Predmet:Re: Kako uvesti podatke iz XML-a

Mnogo puta sam piso o ovome ali cini mi se da vecina ovo zanemaruje.
Postoji vise drajvera za konekciju na bazu:
dao i to nekoliko verzija
ado isrto tako nekoliko verzija
rdo nekoliko verzija itd..

E sad i ado i dao i rdo koriste naredbu rekordset za jednu skupinu podataka (redova i kolona)
Nije dobro na jednoj bazi koristiti vise drajvera jer je jedan sasvim dovoljno.
Medjutim trazeci rjesenja po forumima najcesce nadje neko rjesenje sa ado a neko drugo sa dao konekcijom i onda ako su ukjluceni i jedan i drugi dodje do konflikta jer potoje iste naredbe za neke objekte.

Tada se ispred objekta treba pisati i njgovo porijeklo odnosno kojem drajveru pripada.
Primjer:
dim Db as ado.Database
Dim Db as dao.Database

Eto toliko za sad.
Ako hocete mozemo otvoriti temu o ovome pa detaljno raspraviti.

kenan 22.12.2015 11:31
Predmet:Re: Kako uvesti podatke iz XML-a

još jedna molba u ovom kodu iz xml tabela ne uzima zadnji red kad puni tabele u accessu

gdje moram ispraviti odnosno dodati nešto

kenan 26.12.2015 19:52
Predmet:Re: Kako uvesti podatke iz XML-a

jedno pitanje

kako mogu na djelu koda promjenit kad formira tabelu "gotovinski_tokovi_indirektna_metoda" polje ID ta bude dbtext, 10 jer u tom polju ima 7 znakova

zxz 26.12.2015 21:11
Predmet:Re: Kako uvesti podatke iz XML-a

Case "Tabela"
Dim Naziv As String, Podatak1 As String, temp As String
Dim Nazivi As String
If Tabela = "promjene_u_kapitalu" Then
tdf.Fields.Append tdf.CreateField("DK", dbSingle)
tdf.Fields.Append tdf.CreateField("RR", dbSingle)
tdf.Fields.Append tdf.CreateField("ND", dbSingle)
tdf.Fields.Append tdf.CreateField("OR", dbSingle)
tdf.Fields.Append tdf.CreateField("AND", dbSingle)
tdf.Fields.Append tdf.CreateField("U", dbSingle)
tdf.Fields.Append tdf.CreateField("MI", dbSingle)
tdf.Fields.Append tdf.CreateField("UK", dbSingle)
Else
If Tabela = "gotovinski_tokovi_indirektna_metoda" Then
tdf.Fields.Delete ("ID")
tdf.Fields.Append tdf.CreateField("ID", dbText, 7)
End If

tdf.Fields.Append tdf.CreateField("bruto", dbSingle)
tdf.Fields.Append tdf.CreateField("ispravka", dbSingle)
tdf.Fields.Append tdf.CreateField("tekuca_godina", dbSingle)
tdf.Fields.Append tdf.CreateField("prosla_godina", dbSingle)
End If

kenan 26.12.2015 21:48
Predmet:Re: Kako uvesti podatke iz XML-a

svaka cast na ideji ja cijelo vrijeme ovako slično dodajem na početku koda ali nikako da proradi

kodvas sve jednostavno i prosto hvala još jednom

kenan 26.12.2015 21:57
Predmet:Re: Kako uvesti podatke iz XML-a

ipak neradi

kad mu dodam ispred if-a MsgBox Tabela pročita sve tabele osim one koja mi treba

slican if sam i ja dodavao na početku koda gdje kreira tabele i isto mi se dešavalo