Centar za edukaciju-BiH


Stranice (5):1,2,3,4,5

#1 19.02.2014 19:49
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Relink sa više kompjutera
Ima li tko kakav kod za provjeru i relink, linkovanih tablica ako su one sa dvije različite baze, a baze na dva različita kompjutera.
Ja imam kod koji dobro radi ali amo ako su tablice iz iste backend baze.
Pozdrav
↑  ↓

#2 19.02.2014 22:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Relink sa više kompjutera
Pa sve je skoro isto samo sto moras imati dvije tabele u jednoj imena baza sa putanjama a u drugoj spisak tabela sa sa sifrom od tabele baze da se zna iz koje je baze.
I sada u Kodu refresh link povlacis podatke iz ovih tabela.
Napravi tabele pa mozemo zajedno odraditi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 20.02.2014 08:48
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Relink sa više kompjutera
Evo moj primjer.
Većina tablica u bazi Prodaja.mdb linkovano je na Prodaja_2014_be.mdb, osim tablica 'Proces' i 'tblNalog' koje su linkovane na 'Proces_be.mdb'
Kod relinka mi to stvara problem.
Baze Prodaja_2014.mdb i Proces_Be.mdb nalaze se i na dva različita kompjutera.

Prilozi:
Informacije o tipu datoteke za:rar  LinkMP.rar
Preuzimanja:286
Velicina datoteke:1.12 MB


Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 20.02.2014 09:01 od strane pmiroslav. ↑  ↓

#4 20.02.2014 17:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Relink sa više kompjutera
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Relink2()
  2. Dim Db As Database
  3. Dim Tdf As TableDef
  4. Dim SQL As String
  5. Dim Rs As Recordset
  6. Dim Rst As Recordset
  7. Dim ImeTabele As String
  8. Dim Putanja As String
  9. Dim PutanjaORg As String
  10. Dim Link As Boolean
  11. Dim R
  12.  
  13. On Error Resume Next
  14. Set Db = CurrentDb
  15. SQL = "SELECT Name FROM MSysObjects WHERE Database<>Null"
  16. Set Rs = Db.OpenRecordset(SQL)
  17. Do While Not Rs.EOF
  18. ImeTabele = Rs!Name
  19. Set Rst = Db.OpenRecordset("SELECT * FROM " & ImeTabele & " WHERE False<>False")
  20. Rst.Close
  21.     If err.Number > 0 Then
  22.     MsgBox "Nema konekcije na baze"
  23.     Link = False
  24.     err = 0
  25.     Rs.Close
  26.     GoTo RELINK_TABELA
  27.     End If
  28. Rs.MoveNext
  29. Loop
  30. Rs.Close
  31. Exit Function
  32. RELINK_TABELA:
  33. SQL = "SELECT Database,Name FROM MSysObjects WHERE Database<>Null ORDER By Database"
  34. Set Rs = Db.OpenRecordset(SQL)
  35.  
  36. Do While Not Rs.EOF
  37. ImeTabele = Rs!Name
  38. Putanja = Rs!Database
  39. START_LINK:
  40. If Link = False Then
  41. Dim iResponse As String
  42. R = MsgBox("Vjerovatno putanja nije ispravna." & vbCrLf _
  43. & "ŽeliÅ¡ li odabrati novu putanj za tabelu: " & ImeTabele & "?  ", _
  44. vbOKCancel + vbInformation + vbApplicationModal + vbDefaultButton1, _
  45. Putanja)
  46.     If R = vbOK Then
  47.     PutanjaORg = NadjiBazu("")
  48.     Else
  49.     Quit
  50.     End If
  51. End If
  52. Set Tdf = Db.TableDefs(ImeTabele)
  53. Tdf.Connect = ";DATABASE=" & PutanjaORg
  54. err = 0
  55. Tdf.RefreshLink
  56.     If err <> 0 Then
  57.     Link = False
  58.     GoTo START_LINK
  59.     Else
  60.     Link = True
  61.     End If
  62. Rs.MoveNext
  63. Loop
  64. End Function

Ovu proceduru trebas pozvati pri podizanju baze.
Netrebaju ti vise tvoje procedure:
RelinkTables1
RefreshLinks1
ProvjeraLinka
IsLinked
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 20.02.2014 18:00
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Relink sa više kompjutera
Hvala, isprobati ću sutra na poslu.
JoÅ¡ jedna nejasnoća. Kako je najbolje pozvati ovu proceduru.
Ja recimo imam logFormu koja se prva otvara i gdje se prijavljuje korisnik.
Dali da funkciju pozovem na OnOpen te forme ili nekako drugačije?
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 20.02.2014 18:03 od strane pmiroslav. ↑  ↓

#6 20.02.2014 18:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Relink sa više kompjutera
Pa ako ti je baza korisnika na serveru nece se moci niti prijaviti kada nisu tabele linkovane.
Znaci trebalo bi prije toga.
Najbolje u autoexec makro po meni.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 21.02.2014 07:18
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Relink sa više kompjutera
Ovaj kod radi, međutim problem je Å¡to se baÅ¡ svaki put kod pokretanja baze pojavi poruka 'Nema konekcije na baze', bez obzira Å¡to je baza ispravno spojena pa se i zbog toga baza dugo otvara dok se ne odradi cijeli kod.
Međutim to ipak nije ono Å¡to sam ja želio. Ja sam želio da se u toku tada, kada je baza već otvorena relinkujem na drugu bazu Npr.trebam se spojiti na arhiviranu bazu iz proÅ¡lih godina. Nazivi baza su recimo
Skladiste_2012_be.mdb
Skladiste_2013_be.mdb
Skladiste_2014_be.mdb
Ili zbog nekog ispravka na aplikaciji da se spojim na probnu bazu i sl.
Pozdrav
↑  ↓

#8 21.02.2014 09:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Relink sa više kompjutera
To sto ti stalno pri ulazu trazi relink je vjerovatno zbog toga sto imas neku linkovanu tabelu a netreba ti pa je nemas u bazama.
Provjeri to?

Za relink po godinama najbolje je napraviti drugi kod jer ovaj ti nebi pasao zbog upozorenja a druga stvar taj kod se podize negdje iz menija kada si usao a ne pri ulazu.

Ovaj kod gore treba da sluzi samo za kontrolu linkanih tabela i to je sve.
Sada je bitno kada budes radio ovaj drugi kkod po godinama dali i tamo imas dvije baze ili jednu.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 21.02.2014 09:41
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Relink sa više kompjutera
Kao Å¡to sam rekao imam dvije baze koje su na dva različita kompjutera.
Pozdrav
↑  ↓

#10 21.02.2014 14:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Relink sa više kompjutera
Baze:
Skladiste_2012_be.mdb
Skladiste_2013_be.mdb
Skladiste_2014_be.mdb

Jeli ima i:
Proces_2012_be.mdb
Proces_2013_be.mdb
Proces_2014_be.mdb
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (5):1,2,3,4,5


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 59 am.