sqlite için bqağlantılı tablo yapan kod bu imiş arkadaşlar.

Sub ChangeConnectTable(Optional ViaConnect As Boolean = True)

     Dim sConnect As String

     Dim dbs As Database

     Dim tdf As TableDef

     Dim prp As DAO.Property

     

     sConnect = "ODBC;DSN=SQLite3 Datasource;" & _

                "Driver={SQLite3 ODBC Driver};" & _

                "Database=" & CurrentProject.Path & "\adressenneu.sqlite;" & _

                "LongNames=0;ShortNames=0;NoWCHAR=0;PWD=Admin;FKSupport=1;" & _

                "Timeout=500;NoTXN=0;OEMCP=1;BigInt=0;JDConv=0;StepAPI=0;" & _

                "NoCreat=1;SyncPragma=FULL;"

     Debug.Print sConnect

     If ViaConnect Then

         Set dbs = CurrentDb

         Set tdf = dbs.TableDefs("tblAdressen")

         tdf.Connect = sConnect

         tdf.RefreshLink

         dbs.TableDefs.Refresh

         Set tdf = Nothing

     Else

         DoCmd.TransferDatabase acLink, "ODBC Database", sConnect, acTable, _

             "tblAdressen", "tblAdressen"

         DoCmd.DeleteObject acTable, "tblAdressen"

         DoCmd.Rename "tblAdressen", acTable, "tblAdressen1"

     End If

End Sub