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

    Atualizar vínculo ODBC

    Compartilhe
    avatar
    newknights
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 29/02/2016

    Atualizar vínculo ODBC

    Mensagem  newknights em 6/8/2018, 15:18

    Prezados,

    Gostaria de atualizar a fonte de dados do ODBC de uma tabela vinculada de forma simples. Procurei na internet e tem vários códigos complexos, que lê tabela a tabela e atualiza, mas preciso apenas para 1 tabela:

    Quando clico em cima da tabela aparece a seguinte mensagem...

    ODBC;DNS=BI_VER;UID=bi_ver;APP=Microsoft Office 2013;DATABASE=FIN00013;TABLE=dbo.arqpag


    Por favor, podem enviar o comando?

    Obrigado,

    RD

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10437
    Registrado : 04/11/2009

    Re: Atualizar vínculo ODBC

    Mensagem  JPaulo em 7/8/2018, 10:40

    Ola;

    Só testando para vermos se funfa;

    Código:
    'Num modulo vazio cole o seguinte cod e salve com o nome que desejar:

    Public Sub RefreshLinkOdbc(Conection As String)
    Dim tdf As TableDef
    On Error GoTo ControleErros

        For Each tdf In CurrentDb.TableDefs
            If Len(tdf.Connect) > 0 Then
                tdf.Connect = Conection
                tdf.Refreshlink
            End If
        Next tdf
        
        Exit Sub
    ControleErros:
        MsgBox "Falha na ligação: " & Err.Description
    End Sub

    '*****************************************************************************************

    'Num botão no seu form, no evento ao efectuar clik, cole:

    Call RefreshLinkOdbc ("ODBC;DNS=BI_VER;UID=bi_ver;APP=Microsoft Office 2013;DATABASE=FIN00013;TABLE=dbo.arqpag")


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    newknights
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 29/02/2016

    Re: Atualizar vínculo ODBC

    Mensagem  newknights em 7/8/2018, 14:39

    Olá JPaulo,

    Criei conforme informado mas quando clico no botão abre a tela de configuração do ODBC, não faz de forma transparente (automática). Tenho que selecionar a conexão e colocar a senha 2 vezes.

    Após isso, quando abro a tabela vinculada pede de novo a senha (como se a senha não ficasse gravada).

    Sabe se precisa de algum ajuste?

    Obrigado,

    Rene
    avatar
    Mauricio Coimbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 12/07/2011

    Re: Atualizar vínculo ODBC

    Mensagem  Mauricio Coimbra em 1/2/2019, 19:43

    Estou com o mesmo problema? Alguém conseguir resolver.

    Preciso que indique a Fonte de dados de máquina que instalei automaticamente.

    Obrigado

      Data/hora atual: 23/3/2019, 13:31