Prikazi cijelu temu 22.07.2013 09:10
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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