MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Conexão VBA com Data Base File (.DB)

    Guedelha
    Guedelha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 24/06/2019

    Conexão VBA com Data Base File (.DB) Empty Conexão VBA com Data Base File (.DB)

    Mensagem  Guedelha 9/2/2020, 12:24

    Bom 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
    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.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1193
    Registrado : 13/12/2016

    Conexão VBA com Data Base File (.DB) Empty Re: Conexão VBA com Data Base File (.DB)

    Mensagem  Alexandre Fim 10/2/2020, 12:55

    Guedelha bom dia,

    Veja este site de strings de conexão, inclusive SQLite.

    https://www.connectionstrings.com/sqlite/

    boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 6/3/2021, 10:13