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

3 participantes

    Atualizar vínculo ODBC

    avatar
    newknights
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Atualizar vínculo ODBC Empty Atualizar vínculo ODBC

    Mensagem  newknights 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

    Atualizar vínculo ODBC Open?id=1FNBNPDTwJCN3A8Qg_NasRySCwNqvyaZM
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Atualizar vínculo ODBC Empty Re: Atualizar vínculo ODBC

    Mensagem  JPaulo 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

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


    Respeito às regras : Respeito às Regras 100%

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

    Atualizar vínculo ODBC Empty Re: Atualizar vínculo ODBC

    Mensagem  newknights 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 : Respeito às Regras 100%

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

    Atualizar vínculo ODBC Empty Re: Atualizar vínculo ODBC

    Mensagem  Mauricio Coimbra 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: 28/11/2022, 01:25