Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access



Warning: filesize(): stat failed for uploads/topics/Slika_3.jpg in /home2/icentarb/public_html/icentar/showtopic.php on line 406

Warning: getimagesize(uploads/topics/Slika_3.jpg): failed to open stream: No such file or directory in /home2/icentarb/public_html/icentar/showtopic.php on line 414
Prosiri i skupi Opcije teme
Stranice (9):1,2,3,4,5,6,7,8,9

#51 22.07.2013 09:10
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
Ipak i dalje imam problem. Napisao sam putanju kako si mi sugerirao
Const DirPutanja = "\\Rd-prodaja\ServerRD\"
Konstantno mi se ne prenesu podaci iz početne godine u mom slučaju 2011.
Probno sam napravio bazu Prodaja_2010_be i tada mi prenese iz 2011 ali ne iz 2010, zatim sam napravio
Prodaja_2009_be i isti slučaj, prenese se 2010, a 2009 ne.
u ovom dijelu koda:
PreuzmiIzvorni kôd (vbnet):
  1. ImeFajla = Dir(DirPutanja, vbDirectory)
  2.         Do While Len(ImeFajla) > 0
  3.             ImeFajla = Dir
  4.              If right(ImeFajla, 3) = "Mdb" Then
  5.                 ImeBaze = DirPutanja & ImeFajla
  6.                 Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
  7.                
  8.                      SQL(0) = "INSERT INTO tblTransakcije_sve (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _
  9.                     & "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _
  10.                     & "' SELECT " & Prefiks & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _
  11.                     & "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _
  12.                     & "FROM tblTransakcije IN '" & ImeBaze & "'"
  13.                     DoCmd.RunSQL (SQL(0))
  14.                     SQL(1) = "INSERT INTO tblUlazIzlaz_sve ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _
  15.                         & "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _
  16.                         & "FROM tblUlazIzlaz IN '" & ImeBaze & "'"
  17.                     DoCmd.RunSQL (SQL(1))
  18.                      
  19.              End If
  20.             MsgBox ImeFajla
  21.         Loop
dodao sam na kraju MsgBox ImeFajla i tu mi se u msgbox-u nikad ne pojavi prva godina koju imam na serveru
Pozdrav
↑  ↓

#52 22.07.2013 10:00
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
Stavi ovo na kraj prije Ioop pa probaj.
MsgBox ImeFajla
ImeFajla = Dir
Loop
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 22.07.2013 10:00 od strane zxz. ↑  ↓

#53 22.07.2013 10:02
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Spajanje arhiviranih baza
A dali proba vo edna nova tabela da gi zapisis site imijnata na bazite od site godini sto treba da se obrabotat i taka da Do ciklusot da sevrti sprema tabelata so bazite a ne samiot program da gi bara koi bazi postojat.
Mislam deka ova e posiguren nacin.
Tuka vo taa tabela mozes i patekata do serverot da ja dodadis zaradi polelna obrabotka
↑  ↓

#54 22.07.2013 11:06
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
Očito mi se neÅ¡ta čudno događa. Sve baze ( počinje sa 2006 i zavrÅ¡ava sa 2013) sam korpirao na drugi kompjuter u direktorij
Const DirPutanja = "\\Zeljko\Server\RD\"
Sve se kopiralo kako treba i dobio sam poruke kao na slici 1
Kada su baze u originalnom direktoriju
Const DirPutanja = "\\Prodajard\ServerRD\"
ne otkopira se prva baza (Prodaja_2013_be se prikaže 2 puta) slika 2
Originalni direktorij sa dodatkom u kodu koji je predložio ZXZ (ImeFajla = Dir) odkopira se svaka druga baza , slika 3

Slicice prilozenih slika:
Slika_1.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:190
Velicina datoteke:83.74 KB
Velicina slike: 968 x 238 Pikseli
Slika_2.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:188
Velicina datoteke:84.48 KB
Velicina slike: 971 x 239 Pikseli
Slika_3.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:1
Velicina datoteke: Bajt
Velicina slike: {@imagesize->0} x {@imagesize->1} Pikseli

Pozdrav
↑  ↓

#55 22.07.2013 11:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
De samo vidi hoce li se u msgBoxu pojaviti 2013 a a msg stavi ovako:
MsgBox ImeFajla
End If
Loop
Znaci da bude u if petlji jer ovako ti nista ne govori.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#56 22.07.2013 11:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
Nije losa ideja ni Gjoreski sto predlaze a to je da se napravi spisak baza i tabela koje trebaju u nekoj tabelei.
Njegova ideja je dobra i netreba je zanemariti za u buduce ko nesto slicno zeli raditi.
Hvala Gjoreski.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#57 22.07.2013 12:09
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
Stalno isto.
Iz originalnog direktorija "\\Prodajard\ServerRD" nikad se ne otkopira prva baza, a iz direktorija na drugom kompjuteru "\\Zeljko\Server\RD\" sve je u redu i sve se odkopira.
Izluđuje me to.
Pozdrav
↑  ↓

#58 22.07.2013 12:18
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
Jeli sad pokazao u msgboxu 2013.
Tesko je pomoci jer kod mene sve radi.
Moras biti strpljiv i nacicemo sigurno sta je.
Znaci mene interesuje jel sad u msgbox pokaze 2013 kada je on u iff-u.
To je veoma bitno.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#59 22.07.2013 12:55
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
U ovom slučaju:

DoCmd.RunSQL (SQL(1))
MsgBox ImeFajla
ImeFajla = Dir
End If
Loop
pokazuje 2007, 2009, 2011 i 2013

a u ovom slučaju

DoCmd.RunSQL (SQL(1))
MsgBox ImeFajla
End If
Loop

2007, 2008, 2009, 2010, 2011, 2012 i 2013 (nema 2016)
Pozdrav
↑  ↓

#60 22.07.2013 13:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
Znaci SQL se izvrsi.
Zasto nema podataka od njega u tempu je misterija pogotovo sto ne prikaze gresku pri izvrsenju.
Probaj ostaviti samo 2013 pa pokrenuti proceduru.
Vidi hoce li biti podataka u temp bazi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (9):1,2,3,4,5,6,7,8,9

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 4: 10 pm.