Ouvrir une table Access par une requête en passant par un batch [Résolu]

[kedmard]

Bonjour,

Mon problème fait suite aux pistes de réflexions qui m'ont été données dans la discussion précédente intitulé "Automatisation-Pistes de réflexions" .

Je suis sur Access et j'ai crée une requête nommé "reqnew" à l'aide d'une table liée à Accces (table qui en réalité appartient à SQL server) et cette table nommons la "reqold" reqnew est donc connecté au Server puisqu'elle dépend de reqold.

Je souhaite crée si c'est possible à partir d'un fichier Batch une table ou une requête qui sera une copie conforme de reqnew mais qui ne doit pas être connecté au server; mon but étant de travail sur les données d'une période fixe (journée, semaine, mois) il me faut donc recueillir les infos sur le server sur la periode voulu et ensuite me déconnecté de ce server.


Merci par avance pour votre aide m'est très précieuse.


Kedmard.

[Domi2]

Bonjour,

Si tu transformes ta requête en requête "action", création de table, tu devrais pouvoir l'exécuter sans problème en lisant ce tuto : Access et Fichiers Batch : Passage de Paramètres.

Domi2

[kedmard]

Bonjour,

voici le code que j'ai saisi dans mon batch:

Code :

1
2
3
4
5
6
Cls
 
 
start /WAIT msaccess.exe "C:\Users\Moimeme\Desktop\Enilo\Mabase.accdb" ; "SELECT sessionID, customVariable5, startDateTime, endDateTime, Jour INTO reqnew FROM Reqold;"
 
Pause

Après exécution j'arrive à ouvrir la base access , mais il n'y a aucune table ou requête reqnew de créer.


ai-je omis un détail?

Merci

[jpcheck]

Hello,

il serait judicieux ici de nous fournir le code VBA qui est exécuté dans la macro d'autoexecution

[kedmard]

Le voici:

Code :

1
2
3
4
5
6
7
8
9
10
11
Function StartUp()
Dim monparam As Variant  ' déclare une variable
monparam = Command()      ' affecte la valeur transmise à la variable
 
    If Not IsNull(monparam) Then    'si la variable est nulle
        If Len(monparam) > 0 Then   'on s'assure qu'un paramètre a été passé, sinon pas de comportement particulier
            RecuperationSplit = Split(monparam, "|")
            DoCmd.RunMacro RecuperationSplit(0) 
   End If
    End If
End Function

[jpcheck]

Ici, tu essaies de faire tourner une macro (RunMacro), il faut donc passer en paramètr ele nom de ta macro

Si tu souhaites créer une requete dans la base en lui passant le code SQL, il faut le faire en conséquence (regarde la sur le code VBA de création de QueryDef), de plus, une requete porte un nom sous Access, souhaiterais-tu un nom par défaut ou passer celui-ci par batch aussi ?

[kedmard]

J'ai exécuter celui suivant:

Code :

1
2
3
4
5
6
7
8
9
10
Function StartUp()
Dim monparam As Variant  ' déclare une variable
monparam = Command()      ' affecte la valeur transmise à la variable
 
    If Not IsNull(monparam) Then    
        If Len(monparam) > 0 Then   
         CurrentDB.Execute monparam
              End If
    End If
End Function

et ça marche sur une base access "ordinaire" mais lorsrque j'ai affaire à une base de données contenant des tables (liées) et dont l'accès nécessite un mot de pass là ça ne marche. J'ai même déjà ouvert une discussion concernant cette question qui n'est pas encore résolu. Je continue donc à chercher.

Merci pour tout Jpcheck