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

pmiroslav	22.07.2013 09:10
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): ImeFajla = Dir(DirPutanja, vbDirectory) Do While Len(ImeFajla) > 0 ImeFajla = Dir If right(ImeFajla, 3) = "Mdb" Then ImeBaze = DirPutanja & ImeFajla Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2) SQL(0) = "INSERT INTO tblTransakcije_sve (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _ & "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _ & "' SELECT " & Prefiks & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _ & "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _ & "FROM tblTransakcije IN '" & ImeBaze & "'" DoCmd.RunSQL (SQL(0)) SQL(1) = "INSERT INTO tblUlazIzlaz_sve ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _ & "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _ & "FROM tblUlazIzlaz IN '" & ImeBaze & "'" DoCmd.RunSQL (SQL(1)) End If MsgBox ImeFajla Loop dodao sam na kraju MsgBox ImeFajla i tu mi se u msgbox-u nikad ne pojavi prva godina koju imam na serveru

pmiroslav

22.07.2013 09:10

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):

ImeFajla = Dir(DirPutanja, vbDirectory)
Do While Len(ImeFajla) > 0
ImeFajla = Dir
If right(ImeFajla, 3) = "Mdb" Then
ImeBaze = DirPutanja & ImeFajla
Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
SQL(0) = "INSERT INTO tblTransakcije_sve (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _
& "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _
& "' SELECT " & Prefiks & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _
& "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _
& "FROM tblTransakcije IN '" & ImeBaze & "'"
DoCmd.RunSQL (SQL(0))
SQL(1) = "INSERT INTO tblUlazIzlaz_sve ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _
& "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _
& "FROM tblUlazIzlaz IN '" & ImeBaze & "'"
DoCmd.RunSQL (SQL(1))
End If
MsgBox ImeFajla
Loop

dodao sam na kraju MsgBox ImeFajla i tu mi se u msgbox-u nikad ne pojavi prva godina koju imam na serveru

zxz	22.07.2013 10:00
Predmet:Re: Spajanje arhiviranih baza Stavi ovo na kraj prije Ioop pa probaj. MsgBox ImeFajla ImeFajla = Dir Loop

zxz

22.07.2013 10:00

Predmet:Re: Spajanje arhiviranih baza

Stavi ovo na kraj prije Ioop pa probaj.
MsgBox ImeFajla
ImeFajla = Dir
Loop

Gjoreski	22.07.2013 10:02
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

Gjoreski

22.07.2013 10:02

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

pmiroslav	22.07.2013 11:06
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
Prilozi: Slika_1.jpg (Velicina datoteke:83.74 KB) Slika_2.jpg (Velicina datoteke:84.48 KB) Slika_3.jpg (Velicina datoteke: Bajt)

pmiroslav

22.07.2013 11:06

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

Prilozi:
Slika_1.jpg (Velicina datoteke:83.74 KB)
Slika_2.jpg (Velicina datoteke:84.48 KB)
Slika_3.jpg (Velicina datoteke: Bajt)

zxz	22.07.2013 11:27
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.

zxz

22.07.2013 11:27

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.

zxz	22.07.2013 11:31
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.

zxz

22.07.2013 11:31

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.

pmiroslav	22.07.2013 12:09
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.

pmiroslav

22.07.2013 12:09

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.

zxz	22.07.2013 12:18
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.

zxz

22.07.2013 12:18

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.

pmiroslav	22.07.2013 12:55
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)

pmiroslav

22.07.2013 12:55

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)