Prikazi cijelu temu 27.02.2014 10:31
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Relink sa više kompjutera
Ovo sada radi, ali još nisam zadovoljan jer ne mogu uvijek birati putanju, a to mi treba.
Zato sam pokušao nešto napraviti sam pa sam napravio tablicu 'tblPutanja' sa poljema 'Putanja' u koje sam upisao putanje do baza koje me zanimaju.
Npr:
D:\Radno\Prodaja_2011_be.mdb
D:\Radno\Prodaja_2012_be.mdb
D:\Radno\Prodaja_2013_be.mdb
D:\Radno\Prodaja_2014_be.mdb
\\Server\RadneBaze\Prodaja_2011_be.mdb
\\Server\RadneBaze\Prodaja_2012_be.mdb
\\Server\RadneBaze\Prodaja_2013_be.mdb
\\Server\RadneBaze\Prodaja_2014_be.mdb

Zatim sam napisao kod:
PreuzmiIzvorni kôd (vbnet):
  1. Function Relink(Putanja As String)
  2. Dim db As DAO.Database
  3. Dim SQL As String
  4. Dim Rs As Recordset
  5. Dim ImeTablice As String
  6.  
  7. Set db = CurrentDb
  8. SQL = "SELECT Name FROM MSysObjects WHERE Database<>Null"
  9. Set Rs = db.OpenRecordset(SQL)
  10. DoCmd.Hourglass True
  11. Do While Not Rs.EOF
  12.     ImeTablice = Rs!Name
  13.     db.TableDefs(ImeTablice).Connect = ";DATABASE=" & Putanja
  14.     db.TableDefs(ImeTablice).RefreshLink
  15. Rs.MoveNext
  16. Loop
  17. Rs.Close
  18.  
  19. DoCmd.Hourglass False
  20. DoCmd.OpenQuery "Q_MsysObjects"
  21.  
  22. End Function

Pozivam ga iz forme na kojem je txtPutanja sa
Call Relink(txtPutanja)
To radi ali jako sporo, treba 3 - 4 minute da se relinkuje oko 40 tablica
Pozdrav