pmiroslav 23.07.2013 10:28
Predmet:Re: Spajanje arhiviranih baza

Pa ja to stalno govorim da mi ne prolazi prva po redu baza. Ako sad recimo dodam 2005 godinu ona neće proći, a 2006 bi proÅ¡la.
Probao sam i na drugim kompjuterima u mreži i bude isti slućaj.

zxz 23.07.2013 10:52
Predmet:Re: Spajanje arhiviranih baza

PreuzmiIzvorni kôd (Visual Basic):
  1. Sub Putevi()
  2.     Dim Ref As Reference
  3.     Dim Temp As String
  4. '---------------------------------------------------------------------------------------
  5. 'PUTANJE FAJLOVA KORIÅ TENIH U DATOM PROGRAMU
  6. 'NALAZE SE U "tbPutanje"
  7. 'AutorZXZ
  8. '---------------------------------------------------------------------------------------
  9.    
  10.  Open Db_Putanja & "\_putevi.txt" For Output Shared As #1
  11.    
  12.     For Each Ref In References
  13.  
  14.         If Ref.IsBroken = False Then
  15.              Temp = Ref.Name & vbTab & Ref.FullPath & vbTab & Ref.Major & "." & Ref.Minor
  16.              Print #1, Temp
  17.         End If
  18. Next Ref
  19. Close #1
  20. End Sub
Kopiraj ovu proceduru u tvoju app. pa je pokreni.
Rezultat je u txt file _Putevi pa mi ga kopiraj ilči dostavi.
Vjerovatno je u vb6 modulu bug.

pmiroslav 23.07.2013 11:14
Predmet:Re: Spajanje arhiviranih baza

VBA    C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL    4.0
Access    C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB    9.0
stdole    C:\WINDOWS\system32\stdole2.tlb    2.0
DAO    C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll    5.0
ADODB    C:\Program Files\Common Files\System\ado\msado21.tlb    2.1
MSHTML    C:\WINDOWS\system32\mshtml.tlb    4.0
SHDocVw    C:\WINDOWS\system32\ieframe.dll    1.1
VBIDE    C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB    5.3
MSXML2    C:\WINDOWS\system32\msxml6.dll    6.0

zxz 23.07.2013 11:21
Predmet:Re: Spajanje arhiviranih baza

U aaa fileu na pocetku trebas imati ovo:
-----Pije petlje ImeFajla----
.
-----Prije Ifa ImeFajla----
..
Zasto ne cita direktorije to je misterija.
VBA C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL 4.0
Ovo nam je isto.
Znaci da je negdje do sistema ali naci cemo i to verifikovati kao bug.
Probaj putanju napiisati bez kose ctrte na kraju pa vidi sta ces dobiti u aaa.txt.

Probaj i sa ovom "/" kosom crtom na kraju.

zxz 23.07.2013 11:25
Predmet:Re: Spajanje arhiviranih baza

Vidi koji ti je servis pak na racunaru i koja je ver. win.

pmiroslav 23.07.2013 11:28
Predmet:Re: Spajanje arhiviranih baza

Windows Xp Professional v.2002, Service Pack 3

pmiroslav 23.07.2013 14:07
Predmet:Re: Spajanje arhiviranih baza

RijeÅ¡eno! ZXZ puno hvala na pomoći

Gjoreski 23.07.2013 18:06
Predmet:Re: Spajanje arhiviranih baza

i sta je bilo nisam skontao ?

pmiroslav 23.07.2013 19:56
Predmet:Re: Spajanje arhiviranih baza

U ovom dijelu koda trebalo je staviti ImeFajla = Dir sa početka petlje na kraj ispred Loop
PreuzmiIzvorni kôd (vbnet):
  1. ImeFajla = Dir(DirPutanja, vbDirectory)
  2.         Do While Len(ImeFajla) > 0
  3.                         [b] ' ImeFajla = Dir **** Ovo je iz nekog razloga pravilo problem[/b]
  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 (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 ( 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. ImeFajla = Dir
  21.         Loop

pmiroslav 18.11.2014 15:08
Predmet:Re: Spajanje arhiviranih baza

Svojevremeno smo radili na ovom problemu i to koristi i radi OK.
Međutim htio sam u Temp.mdb dodati joÅ¡ dvije tablice
tblProdaja i tblProdajaStavke
to sam dodao u kodu i to radi. Međutim kod upida podataka u tblProdaja javi se greÅ¡ka
Run-time error '9':
Subscript out of range-

U kod iz predhodnog posta dodao sam SQL(2)

PreuzmiIzvorni kôd (vbnet):
  1. ImeFajla = Dir(DirPutanja, vbDirectory)
  2.         Do While Len(ImeFajla) > 0
  3.                         ' ImeFajla = Dir **** Ovo je iz nekog razloga pravilo problem
  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 (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 ( 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.                         SQL(2) = "INSERT INTO tblProdaja (OrderID, Skladiste, FiskalniBroj, PartnerID, StovaristeID, " _
  20.                     & "SifraKup, Datum, DatumIsporuke, NacinPlacanjaID, RokPlacanjaID, RokPlacanja, " _
  21.                     & "DVO, Valuta, Dostava, Rabat, PDV, ZKI, JIR, Opaska, Opaska2, PurchaseOrderNumber, " _
  22.                     & "ShipName, ShipAddress, ShipCity, ShipPostalCode,ShipCountry, ShipPhoneNumber, " _
  23.                     & "ShipDate, ShippingMerhodID, PonudaID, Proknjizeno, KorisnikID, Stornirano, Komp )IN '" & ImeTmpBaze _
  24.                     & "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Skladiste, FiskalniBroj, PartnerID, StovaristeID, " _
  25.                     & "SifraKup, Datum, DatumIsporuke, NacinPlacanjaID, RokPlacanjaID, RokPlacanja, " _
  26.                     & "DVO, Valuta, Dostava, Rabat, PDV, ZKI, JIR, Opaska, Opaska2, PurchaseOrderNumber, " _
  27.                     & "ShipName, ShipAddress, ShipCity, ShipPostalCode,ShipCountry, ShipPhoneNumber, " _
  28.                     & "ShipDate, ShippingMerhodID, PonudaID, Proknjizeno, KorisnikID, Stornirano, Komp " _
  29.                     & "FROM tblProdaja IN '" & ImeBaze & "'"
  30.                     DoCmd.RunSQL (SQL(2))
  31.              End If
  32. ImeFajla = Dir
  33.         Loop

zapravo nije mi jasno ovo SQL(0), SQL(1), a ja sam dodao SQL(2). dali tu griješim?
Prilozi:
Image1.jpg (Velicina datoteke:210.89 KB)