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

    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"
    avatar
    hiperjohn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    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: Seg 25 Set 2017, 23:09