ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » 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.

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.



Responder