Prikazi cijelu temu 23.07.2013 19:56
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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
Pozdrav