Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Conexão VBA excel e SQLite

Discussões principalmente sobre SQL e outros problemas relativos a bancos de dados, relacionais ou não
Avatar do usuário
Guedelha
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Jul 08, 2018 5:02 pm

Conexão VBA excel e SQLite

Mensagem por Guedelha »

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.

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
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)


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Conexão VBA excel e SQLite

Mensagem por webmaster »

Guedelha,

Já tentou isso?

https://github.com/govert/SQLiteForExcel


Responder