Bosna i Hercegovina



miro35 Offline
Moderator
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: Linkovanje na bazu preko mreže
Imam neke aplikacije koje rade preko mreže.Kod otvaranja nove godine moja aplikacija kreira bazu 2011.Imam u kodu jedan dio koji pronađe koja je putanja do te baze.Ja imam lokalno ovaj kod:
Me.BazaLink = (CurrentProject.path)
E kako ovu putanju dobiti za mrežu
Znači da mi nađe i upiše u polje u formi putanju do baze koja je namrežnom računalu:
Me.BazaLink = ?
Miro
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,363


Subject: Re: Linkovanje na bazu preko mreže
Evo ovo vazi samo ako su tabele linkovane na jednu bazu.
Ako imas link na vise baza jednovremeno onda imas i vise putanja pa bi kod bio malo drugaciji.

DownloadIzvorni kod (Visual Basic):
  1. Function PutanjaLInka()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim SQL As String
  5.  
  6. SQL = "SELECT TOP 1 Database FROM MSysObjects " _
  7. & "WHERE Database Is Not Null"
  8.  
  9. Set Db = CurrentDb
  10.  
  11. Set Rs = Db.OpenRecordset(SQL)
  12. If Rs.RecordCount > 0 Then
  13. PutanjaLInka = Rs.Fields(0)
  14. Else
  15. MsgBox "Nema linkovanih tabela"
  16. End If
  17. End Function

Pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,363


Subject: Re: Linkovanje na bazu preko mreže
Me.BazaLink = PutanjaLInka
Pozdrav
↑  ↓

 Podijeli  Dodaj odgovor Stranice (1): 1


All times are GMT +01:00. Current time: 25.06.2017-11:18.