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


    Vincular tabelas de vários backends

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1026
    Registrado : 21/01/2010

    Vincular tabelas de vários backends Empty Vincular tabelas de vários backends

    Mensagem  Gilberto Rocha em Sab 12 Mar 2016, 23:12

    Pessoal, essa é uma dúvida recorrente, caso queira vincular tabelas de bancos de dados diferentes segue código:

    1) Crie uma tabela com o nome tabelasbanco
    2) Crie os campos formato texto: caminho, nometabela
    3) Adicione o caminho do banco no campo caminho
    4) Adicione o nome da tabela no campo nometabela
    5) Execute a função abaixo: Call VinculaTabelasComPassword()

    Public Function VinculaTabelasComPassword()
    'Criação do vinculo de uma tabela: Autor JPaulo
    'Modificação para várias tabelas Gilberto Rocha

    Dim db2 As Database
    Dim tbl As TableDef
    Dim strNomeTabelaOrigem As String
    Dim strNomeTabelaALigar As String

    Dim db As Database
    Dim rs As Recordset

    On Error GoTo trata
    Set db = CurrentDb()

    Set rs = db.OpenRecordset("Select * from tabelasbanco")
    rs.MoveFirst

    Do Until rs.EOF
      If Len(rs!caminho) > 0 Then
      strNomeTabelaOrigem = rs!nometabela
      strNomeTabelaALigar = rs!nometabela
     
      'Deleta o vinculo
      DoCmd.DeleteObject acTable, rs!nometabela
     
      Set db2 = CurrentDb()
      Set tbl = db2.CreateTableDef(strNomeTabelaALigar, dbAttachSavePWD, strNomeTabelaOrigem, ";Database=" & rs!caminho & ";Pwd=senha")
      db2.TableDefs.Append tbl
      End If
    rs.MoveNext
    Loop

     Set tbl = Nothing
     db2.Close


    On Error Resume Next
    rs.Close
    Set db = Nothing
       
       
    sai:
    Exit Function

    trata:
    MsgBox "Erro ao vincular tabelas " & " " & err.Number & " " & err.Description & " " & err.Source, vbCritical, "Atenção"
    Resume sai

    End Function


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    www.congregafacil.com

    Analista de BI SR
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 802
    Registrado : 09/11/2012

    Vincular tabelas de vários backends Empty Re: Vincular tabelas de vários backends

    Mensagem  =>Nois em Qui 17 Mar 2016, 00:03

    Muito bom! estava precisando, vou montar a tabela!


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Seg 18 Nov 2019, 02:15