MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Duvida consulta Bancos diferentes

    Compartilhe

    lsdtampi
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 5
    Registrado : 23/03/2014

    Duvida consulta Bancos diferentes

    Mensagem  lsdtampi em Qua 14 Jan 2015, 13:07

    É o seguinte, fiz um comando sql aqui pra atualizar matriculas de uma tabela comparando o cpf, funcionou e panz, o problema é a tabela "MATRICULASBASE" que criei ficou muito grande, gostaria de saber se colocando essa tabela em outro banco com o nome "MATRICULAS" por exemplo, como ficaria o uptade.


    Código:
    Private Sub consultaBase_Click()

    Dim db As Database
    Dim rs As Recordset


    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT [OPERACAO].* FROM [OPERACAO]")
     
      db.Execute ("UPDATE OPERACAO INNER JOIN MATRICULASBASE ON OPERACAO.CPF=MATRICULASBASE.CPF SET OPERACAO.MATRICULA_CLIENTES = MATRICULASBASE.MATRICULA , OPERACAO.CONSULTADO_CLIENTES = TRUE")
     
      MsgBox "BUSCA DE MATRICULAS REALIZADA COM SUCESSO"

    hiperjohn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 06/06/2013

    Re: Duvida consulta Bancos diferentes

    Mensagem  hiperjohn em Ter 20 Jan 2015, 14:09

    Seria mais ou menos isso:

    Dim dbOther As Database
    Dim caminho as string

    caminho = C:/Pasta/arquivo.accdb <<< Ou seja, o caminho completo de onde está o novo bd



    Set dbOther = OpenDatabase(caminho, False, False, "MS Access;PWD=Senha_do_Outro_BD")
    dbOther.Execute "Sua_Consulta;"
    Set dbOther = Nothing
    MsgBox "OPERAÇÃO REALIZADA COM SUCESSO", vbInformation, "ATENÇÃO"

      Data/hora atual: Sab 10 Dez 2016, 04:52