requête sql direct modifiée via vba

Bonjour,

Je fais des requêtes sql direct pour récupérer des données sous AS400 pour un grand nombre d'établissements. Chaque établissement est une instance séparée dans AS400.

Pb : actuellement, si je veux lancer une requête identique pour 2 établissements distincts, il faut que je duplique ma requête et que je modifie à la main les paramètres pour aller taper dans la bonne instance : c'est moche et fastidieux.

Ex: établissement 1
requête1:

Code:

---

select * from piclin927.mcp01

---

établissement 2
requête2 :

Code:

---

select * from piclin213.mcp01

---

Ma question est donc : est-il possible avec un code vba (ou mieux via une macro car je ne sais pas encore programmer en vba...) d'aller lire une requête sqldirect, et de l'exécuter autant de fois que nécessaire en allant chercher le paramètre qui varie dans une table ? Si oui, quelle pourrait être la structure d'un tel code.

J'ai trouvé dans les faq comment exécuter une requête via du vba mais il s'agit d'une requête standard et non sql direct

Merci pour votre aide

Bonsoir
As tu été voir à la fin de ce tuto:
http://jdgayot.developpez.com/tutori...s/importAs400/

Citation:

---

Envoyé par GAYOT

Bonsoir
As tu été voir à la fin de ce tuto:
http://jdgayot.developpez.com/tutori...s/importAs400/

---

Non, je n'avais pas vu ce tuto. Cela semble être de la balle, je regarde et je reposte si je suis toujours à la rue !

Merci !

Bonjour,

Merci pour ce super tuto, Gayo.
J'ai juste un petit pb sur la fin pour la 2ème méthode : "Après il suffira avec l'assistant:
- soit de faire une requête de création de table à partir de "Qry_Import" ;
- soit de faire une requête "Ajout" pour alimenter une table déjà créé"

Je comprends bien que la fonction maj_qry_import est sensée mettre à jour le code de la requete initiale qry_import qui possède les attributs de connexion.

Mais comment "exécuter" cette fonction à partir de l'assistant par exemple en faisant une création de table ?
Car si je crée une requete création de table basée sur Qry_import, il faudrait qu'à un moment je spécifie qu'il s'agit de la version modifiée de cette requête càd qu'elle prenne la valeur de 'strsql'...

Désolé pour la question idiote...

Bonjour
Il n'y a pas de questions idiotes.
Par contre je ne suis pas sûr de comprendre où est le problème.
La procédure "Maj_QryImport" pourra être lancée dès que les variables pourront avoir une valeur.
Dans notre exemple si nous nous saisissons la variable de date dans la zone de saisie du formulaire d'accueil, il nous suffira de mettre un évènement "Après mise à jour" sur cette zone:

Code:

---

1 2 3

Private Sub Txt_DateBon_AfterUpdate() Call Maj_QryImport End Sub

---

La requête directe "Qry_Import" sera ainsi modifiée avec la valeur de la zone de texte. Toutes les requêtes de création ou de mise à jour faisant référence à "Qry_Import" auront donc les bonnes valeurs.

Nous aurions pu lancer cette procédure sur un autre évènement (ouverture d'un formulaire, bouton, changement d'onglet...etc). IL faut adapter en fonction du contexte.

Super, j'ai compris et cela marche dans mon cas : j'ai appelé maj_qryimport sur mise à jour d'une liste de valeur de DNS de connexion.

Il me reste à faire une boucle dans le cas de sélection multiples de valeur de DNS, afin que la requête sql direct s'exécute sur le premier DNS, puis le second, ... etc
Dans cette boucle, je compte utiliser la fonction replace().

Une idée de tuto vers lequel m'orienter pour construire cette boucle avec replace ?

En tout cas merci beaucoup pour votre aide !! c'est vraiment sympa et grâce au site je progresse tous les jours sur Access (et c'est pas mon job...).