(20/02/2020, 17:51)accessman yazdı:

Private Sub insertIntoTable()

    On Error GoTo Err_hata



    Dim conn As ADODB.Connection

    

    Set conn = CreateObject("ADODB.Connection")

    conn.Open "DRIVER=SQLite3 ODBC Driver;Database=\\accessman\data\mrs.db;"



    If conn Is Nothing Then

       MsgBox "Bağlanılamadı"

    Else

        Dim strsql As String

        Dim cmd As ADODB.Command

        Dim Param, Param1 As ADODB.Parameter

        

        Set cmd = New ADODB.Command

        Set cmd.ActiveConnection = conn

              

        strsql = "CREATE TABLE tlite ENGINE=CONNECT TABLE_TYPE=ODBC tabname='tUser' CONNECTION='Driver=SQLite3 ODBC Driver;Database=\\accessman\data\mrs.db;NoWCHAR=yes' CHARSET=utf8 DATA_CHARSET=utf8;"

         

        cmd.CommandText = strsql



        cmd.Execute



    End If

    

    Set conn = Nothing



Exit_kod:

    Exit Sub



Err_hata:

    MsgBox Err.Description

    Resume Exit_kod

End Sub

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