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 Function
Có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)