MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Conectar banco de Dados no formato "Accdb"

    Compartilhe

    victorsamvs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 01/05/2014

    Conectar banco de Dados no formato "Accdb"

    Mensagem  victorsamvs em Sab 25 Out 2014, 19:40

    Pessoal precisando urgente de um Código que possa coletar os dados do banco de dados no formato ACCDB.

    atualmente uso um código que me conecto no formato .MDB como sitado a baixo

    MODULO:
    Código:
    Global banco As Database
    Global consulta As Recordset
    Sub Conecta()
        Set banco = OpenDatabase("C:\endereço.mdb")
    End Sub
    Sub Desconecta()
        Set banco = Nothing
        Set consulta = Nothing
    End Sub


    ...
    Código:
        Dim ComandoSQL As String

        'Armazena na variável o comando que fará a consulta SQL no BD Access
        ComandoSQL = "select * from tabela_clientes"

        'Chama a rotina que faz a conexão com o BD
        Call Conecta

        'Atribui a variável objeto de BD a execução dos comandos SQL
        Set consulta = banco.OpenRecordset(ComandoSQL)

        While Not consulta.EOF
            id_teste = consulta(0)
            consulta.MoveNext
        Wend

      Call Desconecta

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: Conectar banco de Dados no formato "Accdb"

    Mensagem  Avelino Sampaio em Ter 28 Out 2014, 09:05

    Olá!

    public banco As DAO.Database
    public consulta As DAO.Recordset
    Sub Conecta()
    Set banco = OpenDatabase("C:\endereço.ACCDB")
    ...
    ...


    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

      Data/hora atual: Qui 08 Dez 2016, 10:43