Conexão VBA excel e SQLite
Enviado: Dom Mar 01, 2020 11:23 am
Boa tarde
a Todos.
Estou construindo um projeto em VBA com banco de dados SQLite3,
contudo estou com grande dificuldade para estabelecer o código de
conexão para editar, excluir, ou incluir. Como tudo para mim é novidade,
pois sou novato nesta área do VBA excel.
Construí o código abaixo seguindo orientações de colegas do site,
e com pesquisas no Google.
Mas estou não estou conseguindo uma solução alguém poderia me ajudar.
Desde já agradeço qualquer ajuda, fiquem com Deus.
"O impossível existe até que alguém duvide
dele e prove o contrário."
(Albert Einstein)
a Todos.
Estou construindo um projeto em VBA com banco de dados SQLite3,
contudo estou com grande dificuldade para estabelecer o código de
conexão para editar, excluir, ou incluir. Como tudo para mim é novidade,
pois sou novato nesta área do VBA excel.
Construí o código abaixo seguindo orientações de colegas do site,
e com pesquisas no Google.
Mas estou não estou conseguindo uma solução alguém poderia me ajudar.
Código: Selecionar todos
Public Total As Long
Public Function ID()
On Error Resume Next
Dim cx As New ClasseConexao
Dim banco As ADODB.Recordset
Dim sqlite3 As String
Dim i As Long
sqlite3 = "SELECT * FROM t_produtos"
Set banco = New ADODB.Recordset
cx.Conectar
' ABRE CONEXAO
banco.Open sqlite3, cx.conn
sqlite3 = "DRIVER=SQLite3 ODBC Driver; Database=NotizCaixa.DB; LongNames=0; Timeout=100000; NoTXN=0; SyncPragma=NORMAL; StepAPI=0;UserID=A*****; Password=***********;"
Total = banco.RecordCount
' ABRE GRAVAÇAO
banco.Open sqlite3, cx.conn, adOpenKeyset, adLockOptimistic
banco.Close
' ENCERRAMENTO
Set rst = Nothing: Set conn = Nothing
End FunctionCódigo: Selecionar todos
Public conn As New ADODB.Connection
Public Sub Conectar()
Dim nConectar As String
nConectar = "DRIVER=SQLite3 ODBC Driver; Database=NotizCaixa.DB; LongNames=0; Timeout=100000; NoTXN=0; SyncPragma=NORMAL; StepAPI=0;UserID=A*****; Password=***********;"
conn.ConnectionString = nConectar
conn.Open
End Sub
Public Sub Desconectar()
conn.Close
End Sub"O impossível existe até que alguém duvide
dele e prove o contrário."
(Albert Einstein)