MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    Executar uma consulta do tipo Acrescentar via DOS (.bat)

    kleber.arruda
    kleber.arruda
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/09/2016

    Executar uma consulta do tipo Acrescentar via DOS (.bat) Empty Executar uma consulta do tipo Acrescentar via DOS (.bat)

    Mensagem  kleber.arruda 12/10/2017, 00:01


    Prezados amigos do fórum !

    Mais uma vez recorre a nobre ajuda, no intuito de automatizar uma seguinte situação:

    -> Atualmente, criei um projeto no Access (versão 2010) no Windows 10, de Gestão de Investimentos, que se conecta a uma Base de Dados do Oracle, do qual consome muitas informações;

    -> Me surgiu a idéia, e não sei se é possível, de criar uma rotina via .bat, na qual eu executaria consultas oriundas do Banco de Dados Oracle, e abastecesse minhas tabelas do Access, trabalho dessa forma offline.

    -> E agendaria no servidor (no qual fica o Banco de Dados) para que sempre execute uma vez ao dia sempre essa consulta.

    Alguma sugestão?

    No aguardo.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Executar uma consulta do tipo Acrescentar via DOS (.bat) Empty Re: Executar uma consulta do tipo Acrescentar via DOS (.bat)

    Mensagem  =>Nois 12/10/2017, 00:05

    você vai pegar um banco oracle pronto ou vai ter que logar primeiro pra depois extrair


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    Executar uma consulta do tipo Acrescentar via DOS (.bat) Empty Re: Executar uma consulta do tipo Acrescentar via DOS (.bat)

    Mensagem  JPaulo 12/10/2017, 12:03

    Para que tudo funcione sem intervenção humana, tem de ter as suas tabelas vinculadas com senha.

    Eu uso no meu trabalho esta rotina que corre todos os dias ás 05 da manhã e nunca deu pau.

    Criei uma Macro no banco, nessa macro chamo uma função que faz correr todas as consultas de acréscimo para as tabelas.

    No modulo:
    Código:
    Option Explicit

    Public Function fncCorreDados78()
    Dim strQuery0 As String
    Dim strQuery1 As String
    Dim strQuery2 As String

    On Error GoTo 1
    'minimiza o banco
        DoCmd.RunCommand acCmdAppMinimize

    strQuery0 = "Consulta1"
    strQuery1 = "Consulta2"
    strQuery2 = "Consulta3"

        DoCmd.SetWarnings False
        DoCmd.OpenQuery strQuery0, acViewNormal, acEdit
        DoCmd.OpenQuery strQuery1, acViewNormal, acEdit
        DoCmd.OpenQuery strQuery2, acViewNormal, acEdit
        CurrentDb.Execute "UPDATE tblUltimaAtualizacao SET DataAtualizacao=Now() WHERE ID=78"
        DoCmd.SetWarnings True

    Exit_1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Application.Quit acQuitSaveAll
        Exit Function
        
    1:
        DoCmd.Hourglass False
        DoCmd.Echo True
    'se existir erro, limpa a memoria e volta a correr a função  
            LimpaMemoria78
    End Function

    Public Function LimpaMemoria78()
    Dim db As Database
        Set db = Nothing
        fncCorreDados78
    End Function

    Na Macro a ação:
    Run Code e o nome da função.

    Criei um ficheiro de texto (notepad) e lá dentro escrevi:

    Código:
    @echo off
    START /WAIT Msaccess.exe "C:\Pasta\Banco.accdb" /x "SuaMacro"

    Salvei e renomiei de .txt para .bat
    Este batch file, corre no schedule do windows á hora que quero.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Executar uma consulta do tipo Acrescentar via DOS (.bat) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Executar uma consulta do tipo Acrescentar via DOS (.bat) Folder_announce_new 102 Códigos VBA Gratuitos...
    Executar uma consulta do tipo Acrescentar via DOS (.bat) Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 28/2/2021, 00:17