MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Dúvida - conexão access e SQL server

    Compartilhe

    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

    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á.
    avatar
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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: 14/11/2018, 11:49