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

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.

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

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.