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

    Dúvida - conexão access e SQL server

    avatar
    dtsabatini
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 21/05/2014

    Dúvida - conexão access e SQL server Empty Dúvida - conexão access e SQL server

    Mensagem  dtsabatini em 28/3/2018, 12:46

    Bom dia!

    Estou trabalhando em um projeto onde preciso criar um DBLink entre o Access e o SQLServer, porém tenho permissão apenas para fazer consultas no banco de dados. Como posso vincular uma tabela no access a uma consulta no banco de dados do SQLServer? Grato desde já.
    José Machado
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 104
    Registrado : 13/09/2016

    Dúvida - conexão access e SQL server Empty Re: Dúvida - conexão access e SQL server

    Mensagem  José Machado em 28/3/2018, 14:27

    Bom dia Amigo

    Crie um Modulo de Classe com nome Cls_Conexao e cole o código abaixo nele, Importa a biblioteca Microsoft Activex Data Objects 2.8 Library

    Dim CONEXAO As ADODB.Connection

    Dim CONEXAO_STRING As String

    Public DATA_READER As ADODB.Recordset

        
    Sub Initialize()
        
        Dim DATA_BASE_PROVIDER As String
        Dim DATA_BASE_LOCAL As String
        Dim DATA_BASE_NOME As String
        Dim DATA_BASE_USUARIO As String
        Dim DATA_BASE_SENHA As String
        
        DATA_BASE_PROVIDER = "Microsoft.ACE.OLEDB.12.0"
        
        DATA_BASE_LOCAL = " C:\" 
        
        DATA_BASE_NOME = " Nome do Arquivo mais a extensão .accdb" 
          
        DATA_BASE_USUARIO = ""
        
        DATA_BASE_SENHA = ""
        
        CONEXAO_STRING = "Provider = " & DATA_BASE_PROVIDER & _
        ";DATA SOURCE = " & DATA_BASE_LOCAL + DATA_BASE_NOME & _
        ";USER ID = " & DATA_BASE_USUARIO & _
        ";PASSWORD = " & DATA_BASE_SENHA & ";"
        
        Set CONEXAO = New ADODB.CONEXAO
        
        CONEXAO.CursorLocation = adUseClient
        
    End Sub

    Public Sub Abrir_Conexao()
        Initialize
        CONEXAO.Open CONEXAO_STRING
    End Sub

    Public Sub Fechar_Conexao()
        CONEXAO.Close
        Set CONEXAO = Nothing
    End Sub

    Public Sub Executar_Query(query As String)
        Abrir_Conexao
        CONEXAO.Execute (query)
        Fechar_Conexao
    End Sub

    Public Sub Executar_DATA_READER(query As String)
        Set DATA_READER = New ADODB.Recordset
            DATA_READER.Open query, CONEXAO, adOpenStatic, adLockReadOnly
    End Sub
    Public Sub Fechar_DATA_READER()
        DATA_READER.Close
        Set DATA_READER = Nothing
        Fechar_Conexao
    End Sub

      Data/hora atual: 19/10/2020, 23:00