Private Sub LinkDizIS_Click()
Dim Baza As Database
Dim tdfLinked As TableDef
Dim i As Integer
Dim a As Integer
Dim IME As String
Set Baza = CodeDb
Me.NazivServera = Me.LokalNazivServera
Me.NazivBaze = Me.LokalNazivBaze
Me.Korisnik = Me.LokalKorisnik
Me.Lozinka = Me.LokalLozinka
Me.Requery
DoCmd.OpenForm "Cekaj"
DoCmd.RepaintObject A_FORM, "Cekaj"
DoCmd.SetWarnings False
On Error Resume Next
With Baza
a = .TableDefs.Count - 1
For i = a To 0 Step -1
IME = .TableDefs(i).Name
If .TableDefs(i).Connect <> "" Then
.TableDefs.Delete IME
End If
Next i
End With
Dim Tabele As DAO.Recordset
Dim ImeTabele As String
Dim KonektString As String
'Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=myUsername;Password=myPassword;
'KonektString = "Provider=sqloledb" & ";ODBC;DRIVER=SQL Server;SERVER =" & "192.168.1.33,1433" & ";Network Library=DBMSSOCN;Initial Catalog=" & Me.LokalNazivBaze & ";User ID=" & Me.LokalKorisnik & ";Password=" & Me.LokalLozinka & "'" ';Trusted_Connection"
KonektString = "ODBC;DRIVER=SQL Server;SERVER=" & Me.LokalNazivServera & ";UID=" & Me.LokalKorisnik & ";PWD=" & Me.LokalLozinka & ";DATABASE=" & Me.LokalNazivBaze & ";Trusted_Connection"
'KonektString = "ODBC;DRIVER=SQL Server;SERVER=" & "192.168.1.33,1433" & ";UID=" & Me.LokalKorisnik & ";PWD=" & Me.LokalLozinka & ";DATABASE=" & Me.LokalNazivBaze & ";Trusted_Connection"
SendKeys ("{ENTER}")
DoCmd.TransferDatabase acLink, "ODBC Database", KonektString, acTable, "sysobjects", "LinkTables", , True
Set Baza = CurrentDb
Set Tabele = Baza.OpenRecordset("QLinkTables1") ', DB_OPEN_DYNASET)
With Tabele
Do While Not .EOF
ImeTabele = Tabele("Name")
If Trim(Tabele("type")) = "V" Then
DoCmd.TransferDatabase acLink, "ODBC Database", KonektString, acTable, ImeTabele, ImeTabele, False, True
Else
DoCmd.TransferDatabase acLink, "ODBC Database", KonektString, acTable, ImeTabele, ImeTabele, False, True
End If
.MoveNext
Loop
End With
' Set Baza = CodeDb
' With Baza
' .TableDefs.Delete "LinkTables"
' End With
DoCmd.Close A_FORM, "Cekaj"
BEEP
DoCmd.SetWarnings True
DoCmd.Close acForm, "_Link"
End Sub