(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

Yada alltakini silip

Set conn = CreateObject("ADODB.Connection")

Alttakinine new olarak değiştirin ve referenceden ado olanı işaretleyin.


Dim conn As new ADODB.Connection