Discussion :

[Zouzou1er]

Bonsoir,


Voici mon petit problème. J'aimerais exécuter, depuis un formulaire, une instruction SQL que je stocke sous format texte dans une table. J'arrive à récupérer l'instruction (sous format string) et à l'exécuter, mais uniquement si elle est sans "variable" :
Ex :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT COUNT (*) FROM MATABLE

Mais comment faire pour éxécuter l'instruction suivante où l'une des clauses serait variable. Exemple :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

 "SELECT COUNT (*) FROM MATABLE WHERE CHAMP1= " & valeurduchampdemonformulaire

Si j'écris la requête directement comme cela dans ma table la partie "& valeurduchampdemonformulaire" est bien sûr interprétée comme du texte et ne me récupère pas la valeur de mon champ !


Merci pour vos idées et excellente soirée

Daniel

[Jean-Philippe André]

salut,
il me semble que tu peux stocker la totalité de la chaine en spécifiant directement la valeur liée au formulaire :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT COUNT (*) FROM MATABLE WHERE CHAMP1=Forms!MonFormulaire!MonChamp

[Zouzou1er]

Bonjour,

Merci pour ta réponse, mais malheureusement, cela ne fonctionne pas...

D'autres idées ?

Merci d'avance

Daniel

[=JBO=]

Bonjour,

J'arrive à récupérer l'instruction (sous format string) et à l'exécuter, mais uniquement si elle est sans "variable" :

Tu ne dis pas comment tu exécutes l'iinstruction SQL, merci d'être plus précis en donnant ton code.

La réponse de jpcheck pourrait très bien fonctionner si tu utilises la chaîne de caractères, par exemple, pour l'affecter à la propriété RecordSource d'un Formulaire.
_

[Chrysostome]

Ça peut ressembler à quelque chose comme ça !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim mySQLstockée as string
 
mySQLstockée = DLookUp("MonChamps" , "Matable", "MonChampsQuiFiltre = " & Valeur du Filtre)
 
Docmd.RunSQL mySQLstockée

[=JBO=]

Bonjour, Bonsoir,

Dans l'exemple que tu donnes, la fonction DLookup() doit retourner une commande SQL "finalisée".

Peux-tu nous donner un exemple "réel" de la commande SQL que tu voudrais voir exécuter (c'est pour m'aider à apprécier où se trouve la difficulté).

En ce qui concerne DoCmd.RunSQL, pas de problème il sait parfaitement évaluer les expressions qui désignent un contrôle d'un formulaire ouvert (cf. la réponse de jpcheck).

En revanche si tu passes par DAO ou ADO, alors là ce n'est pas pareil, mais il y a des contournements possibles.

Tu peux aussi envisager de gérer toi même la substitution des paramètres, ce n'est pas hyper sorcier et c'est "la classe".

J'attends de tes nouvelles, merci.
_

[Chrysostome]

Il me semble bien que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim myst as string
valeurduchampdemonformulaire = 5
mystr = "SELECT COUNT (*) FROM MATABLE WHERE CHAMP1= " & valeurduchampdemonformulaire
mystr="SELECT COUNT (*) FROM MATABLE WHERE CHAMP1= 5"
Docmd.RunSQL mystr

[=JBO=]

Sais-tu que DoCmd.RunSQL c'est plutôt pour exécuter des requêtes Actions (INSERT, UPDATE, DELETE, CREATE...).
Même avec une requête sélection (SELECT) qui fonctionnerait, tu n'aurais aucun résultat affiché.

Suis-je clair ?
N'hésite pas à me dire si ce n'est pas clair.

Je n'ai pas bien compris le code VBA que tu viens de donner.
mystr contiendrait le code SQL à exécuter ?

As-tu seulement essayé ceci, juste pour te donner une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim mystr As String
 
mystr="SELECT COUNT (*) FROM MATABLE WHERE CHAMP1= 5"
DoCmd.RunSQL mystr

[EDIT]

@ Chrysostome
Je n'avais pas bien lu que les derniers messages envoyés étaient signés Chrysostome.
Et non par l'auteur du message initial, à savoir Zouzou1er.

Conclusion, ça ne servait à rien que je te demande plus d'infos ! _ ++ + =

[/EDIT]

_