KonektString = "Driver={Mysql ODBC 5.1 Driver}; Server=" & "127.0.0.1" & _

                           ";port=3306; database=" & "FiskalBaza" & _

                           "; user=" & "root" & _

                           "; password=" & "1283" & "; option=3;"

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