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

pmiroslav	28.02.2014 11:54
Predmet:Re: Relink sa viÅ¡e kompjutera Izgleda da je sada sve u redu. Čini mi se da je SQL zezao SQL = "SELECT Name FROM MSysObjects WHERE Database<>Null ORDER by Name" Pa sam umjesto toga napravio tablicu sa popisom svih linkovanih tablica Set Rs = dbs.OpenRecordset("_tblTablice") Evo primjer, samo u _tblPutanja treba upisati ispravne putanje.
Prilozi: Server.rar (Velicina datoteke:177.13 KB)

pmiroslav

28.02.2014 11:54

Predmet:Re: Relink sa viÅ¡e kompjutera

Izgleda da je sada sve u redu. Čini mi se da je SQL zezao

SQL = "SELECT Name FROM MSysObjects WHERE Database<>Null ORDER by Name"

Pa sam umjesto toga napravio tablicu sa popisom svih linkovanih tablica

Set Rs = dbs.OpenRecordset("_tblTablice")

Evo primjer, samo u _tblPutanja treba upisati ispravne putanje.

Prilozi:
Server.rar (Velicina datoteke:177.13 KB)

zxz	28.02.2014 12:20
Predmet:Re: Relink sa viÅ¡e kompjutera Uf ne svidja mi se ovo nista ali sad nemam vremena. Kad nadjem vremena pokusat cu ono sto smo radili dodtjerati do kraja. Koliko se sjecam tamo ti je sve radilo sem toga sto si htio da mozes nekada i mijenjati putanju baza.

zxz

28.02.2014 12:20

Predmet:Re: Relink sa viÅ¡e kompjutera

Uf ne svidja mi se ovo nista ali sad nemam vremena.
Kad nadjem vremena pokusat cu ono sto smo radili dodtjerati do kraja.
Koliko se sjecam tamo ti je sve radilo sem toga sto si htio da mozes nekada i mijenjati putanju baza.

pmiroslav	28.02.2014 13:16
Predmet:Re: Relink sa viÅ¡e kompjutera Ti si profesor, meni treba da radi tako nekako, zanači da mogu birati putanju. Ako imaÅ¡ bolje rijeÅ¡enje bit ću ti zahvalan.

pmiroslav

28.02.2014 13:16

Predmet:Re: Relink sa viÅ¡e kompjutera

Ti si profesor, meni treba da radi tako nekako, zanači da mogu birati putanju.
Ako imaÅ¡ bolje rijeÅ¡enje bit ću ti zahvalan.

zxz	28.02.2014 21:18
Predmet:Re: Relink sa viÅ¡e kompjutera Hehe ovo profesor i ne zvuci lose samo da je istinito. Evo pa vidi. Ako imas primjedbi napisi ali nemoj nista popravljati.
Prilozi: ProbaLinkZXZ.zip (Velicina datoteke:62.81 KB)

zxz

28.02.2014 21:18

Predmet:Re: Relink sa viÅ¡e kompjutera

Hehe ovo profesor i ne zvuci lose samo da je istinito.
Evo pa vidi.
Ako imas primjedbi napisi ali nemoj nista popravljati.

Prilozi:
ProbaLinkZXZ.zip (Velicina datoteke:62.81 KB)

pmiroslav	01.03.2014 09:41
Predmet:Re: Relink sa viÅ¡e kompjutera Ovo odlično radi kao provjera linka pri pokretanju aplikacije. Ali meni treba način da promijenim putanju linka u toku rada kada je aplikacija već ispravno spojena. Onako neÅ¡to kao Å¡to sam napravio u primjeru sa izborom putanje

pmiroslav

01.03.2014 09:41

Predmet:Re: Relink sa viÅ¡e kompjutera

Ovo odlično radi kao provjera linka pri pokretanju aplikacije.
Ali meni treba način da promijenim putanju linka u toku rada kada je aplikacija već ispravno spojena.
Onako neÅ¡to kao Å¡to sam napravio u primjeru sa izborom putanje

pmiroslav	19.02.2014 20:49
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.

pmiroslav

19.02.2014 20:49

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.

zxz	19.02.2014 23:03
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.

zxz

19.02.2014 23:03

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.

pmiroslav	20.02.2014 09:48
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: LinkMP.rar (Velicina datoteke:1.12 MB)

pmiroslav

20.02.2014 09:48

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:
LinkMP.rar (Velicina datoteke:1.12 MB)

zxz	20.02.2014 18:41
Predmet:Re: Relink sa viÅ¡e kompjutera PreuzmiIzvorni kôd (Visual Basic): Function Relink2() Dim Db As Database Dim Tdf As TableDef Dim SQL As String Dim Rs As Recordset Dim Rst As Recordset Dim ImeTabele As String Dim Putanja As String Dim PutanjaORg As String Dim Link As Boolean Dim R On Error Resume Next Set Db = CurrentDb SQL = "SELECT Name FROM MSysObjects WHERE Database<>Null" Set Rs = Db.OpenRecordset(SQL) Do While Not Rs.EOF ImeTabele = Rs!Name Set Rst = Db.OpenRecordset("SELECT * FROM " & ImeTabele & " WHERE False<>False") Rst.Close If err.Number > 0 Then MsgBox "Nema konekcije na baze" Link = False err = 0 Rs.Close GoTo RELINK_TABELA End If Rs.MoveNext Loop Rs.Close Exit Function RELINK_TABELA: SQL = "SELECT Database,Name FROM MSysObjects WHERE Database<>Null ORDER By Database" Set Rs = Db.OpenRecordset(SQL) Do While Not Rs.EOF ImeTabele = Rs!Name Putanja = Rs!Database START_LINK: If Link = False Then Dim iResponse As String R = MsgBox("Vjerovatno putanja nije ispravna." & vbCrLf _ & "Å½eliÅ¡ li odabrati novu putanj za tabelu: " & ImeTabele & "? ", _ vbOKCancel + vbInformation + vbApplicationModal + vbDefaultButton1, _ Putanja) If R = vbOK Then PutanjaORg = NadjiBazu("") Else Quit End If End If Set Tdf = Db.TableDefs(ImeTabele) Tdf.Connect = ";DATABASE=" & PutanjaORg err = 0 Tdf.RefreshLink If err <> 0 Then Link = False GoTo START_LINK Else Link = True End If Rs.MoveNext Loop End Function Ovu proceduru trebas pozvati pri podizanju baze. Netrebaju ti vise tvoje procedure: RelinkTables1 RefreshLinks1 ProvjeraLinka IsLinked

zxz

20.02.2014 18:41

Predmet:Re: Relink sa viÅ¡e kompjutera

PreuzmiIzvorni kôd (Visual Basic):

Function Relink2()
Dim Db As Database
Dim Tdf As TableDef
Dim SQL As String
Dim Rs As Recordset
Dim Rst As Recordset
Dim ImeTabele As String
Dim Putanja As String
Dim PutanjaORg As String
Dim Link As Boolean
Dim R
On Error Resume Next
Set Db = CurrentDb
SQL = "SELECT Name FROM MSysObjects WHERE Database<>Null"
Set Rs = Db.OpenRecordset(SQL)
Do While Not Rs.EOF
ImeTabele = Rs!Name
Set Rst = Db.OpenRecordset("SELECT * FROM " & ImeTabele & " WHERE False<>False")
Rst.Close
If err.Number > 0 Then
MsgBox "Nema konekcije na baze"
Link = False
err = 0
Rs.Close
GoTo RELINK_TABELA
End If
Rs.MoveNext
Loop
Rs.Close
Exit Function
RELINK_TABELA:
SQL = "SELECT Database,Name FROM MSysObjects WHERE Database<>Null ORDER By Database"
Set Rs = Db.OpenRecordset(SQL)
Do While Not Rs.EOF
ImeTabele = Rs!Name
Putanja = Rs!Database
START_LINK:
If Link = False Then
Dim iResponse As String
R = MsgBox("Vjerovatno putanja nije ispravna." & vbCrLf _
& "Å½eliÅ¡ li odabrati novu putanj za tabelu: " & ImeTabele & "? ", _
vbOKCancel + vbInformation + vbApplicationModal + vbDefaultButton1, _
Putanja)
If R = vbOK Then
PutanjaORg = NadjiBazu("")
Else
Quit
End If
End If
Set Tdf = Db.TableDefs(ImeTabele)
Tdf.Connect = ";DATABASE=" & PutanjaORg
err = 0
Tdf.RefreshLink
If err <> 0 Then
Link = False
GoTo START_LINK
Else
Link = True
End If
Rs.MoveNext
Loop
End Function

Ovu proceduru trebas pozvati pri podizanju baze.
Netrebaju ti vise tvoje procedure:
RelinkTables1
RefreshLinks1
ProvjeraLinka
IsLinked