Início
Guedelha 9/2/2020, 09:24Bom dia
A todos
Sou iniciante em VBA excel, e estou tentando construir projeto com banco de dados Sqlite3.
A conexão para importar as tabelas direto para planilha esta funcionando.
Contudo preciso do código para o form que possa através do form vba incluir, excluir, alterar e
listar os dados das tabelas do Sqlite3.
Já procurei na internet e não consegui encontrar nada que funciona-se daí construí este código abaixo
que não funciona.
NO MODULO
NO MODULO CLASSE
Por favor se alguém puder me ajudar ficarei muito grato.
Deus acima de tudo e todos.
A todos
Sou iniciante em VBA excel, e estou tentando construir projeto com banco de dados Sqlite3.
A conexão para importar as tabelas direto para planilha esta funcionando.
Contudo preciso do código para o form que possa através do form vba incluir, excluir, alterar e
listar os dados das tabelas do Sqlite3.
Já procurei na internet e não consegui encontrar nada que funciona-se daí construí este código abaixo
que não funciona.
NO MODULO
- Código:
Public total As Long
Public Function id()
Dim conn As Object, rst As Object
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
' OPEN CONNECTION
conn.Open "DSN=SQLite3 Datasource;Database=H:\NotizCaixa\NotizCaixa.DB;"
strSQL = "SELECT descriçao, t_produtos FROM NotizCaixa_DB GROUP BY descriçao, NotizCaixa_DB ORDER BY descriçao ;"
' OPEN RECORDSET
rst.Open strSQL, conn, 1, 1
rst.Close
' FREE RESOURCES
Set rst = Nothing: Set conn = Nothing
End Function
NO MODULO CLASSE
- Código:
Public conn As New ADODB.Connection
Public Sub Conectar()
Dim nConectar As String
nConectar = "DRIVER=SQLite3 oledb Driver;Database=H:\NotizCaixa\NotizCaixa.db;"
conn.ConnectionString = nConectar
conn.Open
End Sub
Public Sub Desconectar()
conn.Close
End Sub
Por favor se alguém puder me ajudar ficarei muito grato.
Deus acima de tudo e todos.
Marcar tópico como Resolvido: 
Consulta.zip 
