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


    [Resolvido]Vincular vários bancos com várias tabelas

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi em 10/7/2019, 14:07

    Bom dia a todos,

    Eu peguei aqui no fórum um exemplo do JPaulo que funciona muito bem, eu tentei mudar o código para vincular vários bancos com várias tabelas dentro de cada banco, mas sem sucesso.
    Alguém tem um exemplo ou pedaço de código que eu possa usar para aprender a fazer esse vínculo?
    Obrigado !

    Este é o código que o JPaulo usou para tirar a dúvida de um colega aqui do fórum. http://www.maximoaccess.com/t422-resolvidovincular-revincular-back-end

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Call ReVincularTabelas("C:\BackEnd.mdb")
    End Sub

    Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
    Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
    Tdf.RefreshLink
    End If
    Next
    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6307
    Registrado : 15/03/2013

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  ahteixeira em 10/7/2019, 17:45

    Olá Leandro,

    Estou no celular, mas tente alterando o código de:
    Código:
    set dbs = currentdb

    por:
    Código:
    set dbs = DBEngine.OpenDatabase(CaminhoDasTabelas)

    Depois será fazer um Call por cada ficheiro para ligar.
    (Não testado)

    Abraço
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi em 10/7/2019, 18:08

    Olá ahteixeira,

    Vou tentar fazer isso.

    Obrigado!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  Avelino Sampaio em 10/7/2019, 18:18

    Olá!

    veja se o meu artigo abaixo também te ajuda:

    usandoaccess.com.br/blog/vincular-varios-backend.asp?id=1#inicio
    Copie e cole o endereço no seu navegador

    Sucesso!
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi em 10/7/2019, 20:08

    Olá Avelino, muito obrigado por responder.


    Com a sua ajuda e a ajuda do ahteixeira eu estou montando uma função que pegue o nome do banco e jogue numa variável para fazer o Call. Eu tenho 37 bancos e cada banco tem mais de 5 tabelas em cada.
    Se eu conseguir adaptar o seu código e o código do ahteixeira eu reporto aqui.

    Deixo a minha sincera gratidão desde já.

    Abs

    Leandro Baldocchi
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6307
    Registrado : 15/03/2013

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  ahteixeira em 19/8/2019, 15:04

    Olá Leandro,

    Como ficou a situação? Já Resolveu?

    Veja se ajuda:
    http://www.maximoaccess.com/t27608-exemplo-de-sistema-multi-empresa

    Abraço
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi em 19/8/2019, 15:10

    bom dia ahteixeira,

    Desculpe a falta de resposta.

    Eu consegui fazer com sua dica set dbs = DBEngine.OpenDatabase(CaminhoDasTabelas)

    Estou terminando o projeto inteiro e vou disponibilizar aqui no site.


    Obrigado mais uma vez!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6307
    Registrado : 15/03/2013

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  ahteixeira em 19/8/2019, 15:31

    Olá Leandro,

    Uma vez que ficou esclarecido, não se esqueça de dar o tópico como Resolvido, veja como fazer:
    http://www.maximoaccess.com/t860-resolucao-de-topicos

    Quanto ao exemplo será bem-vindo, os membros agradecem.

    Abraço
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi em 19/8/2019, 15:35

    Obrigado!!!!


    Abraços fraternos
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6307
    Registrado : 15/03/2013

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  ahteixeira em 19/8/2019, 15:45

    cheers

    Conteúdo patrocinado

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 01:54