Prikazi cijelu temu 07.01.2012 11:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet: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.

PreuzmiIzvorni kôd (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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.