kenan | 26.12.2015 23: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 | 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 |
kenan | 20.12.2015 17:41 |
---|---|
Predmet:Re: Kako uvesti podatke iz XML-a neznam kako samo isključih onaj adox i proradi odmah hvala |
zxz | 20.12.2015 21: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 21: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 12: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 20: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 22: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 22: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 22: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 |