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
@benbendedeilem