MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Conectar banco de Dados no formato "Accdb"

    avatar
    victorsamvs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Conectar banco de Dados no formato "Accdb"  Empty Conectar banco de Dados no formato "Accdb"

    Mensagem  victorsamvs 25/10/2014, 18: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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Conectar banco de Dados no formato "Accdb"  Empty Re: Conectar banco de Dados no formato "Accdb"

    Mensagem  Avelino Sampaio 28/10/2014, 08:05

    Olá!

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


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 29/3/2024, 08:09