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


2 participantes

    Duvida consulta Bancos diferentes

    avatar
    lsdtampi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

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

    Duvida consulta Bancos diferentes Empty Duvida consulta Bancos diferentes

    Mensagem  lsdtampi 14/1/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
    hiperjohn
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Duvida consulta Bancos diferentes Empty Re: Duvida consulta Bancos diferentes

    Mensagem  hiperjohn 20/1/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: 23/11/2024, 12:32