Prikazi cijelu temu 18.11.2014 15:08
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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
Preuzimanja:279
Velicina datoteke:210.89 KB

Pozdrav