Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (9):1,2,3,4,5,6,7,8,9
 Prikazi prvu neprocitanu poruku

#71 23.07.2013 10:28
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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.
Pozdrav
↑  ↓

#72 23.07.2013 10:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#73 23.07.2013 11:14
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
↑  ↓

#74 23.07.2013 11:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 23.07.2013 11:23 od strane zxz. ↑  ↓

#75 23.07.2013 11:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
Vidi koji ti je servis pak na racunaru i koja je ver. win.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#76 23.07.2013 11:28
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
Windows Xp Professional v.2002, Service Pack 3
Pozdrav
↑  ↓

#77 23.07.2013 14:07
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
RijeÅ¡eno! ZXZ puno hvala na pomoći
Pozdrav
↑  ↓

#78 23.07.2013 18:06
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Spajanje arhiviranih baza
i sta je bilo nisam skontao ?
↑  ↓

#79 23.07.2013 19:56
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
↑  ↓

#80 18.11.2014 15:08
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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?

Slicice prilozenih slika:
Image1.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:279
Velicina datoteke:210.89 KB
Velicina slike: 907 x 407 Pikseli

Pozdrav
↑  ↓

Stranice (9):1,2,3,4,5,6,7,8,9

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 8: 08 pm.