VBA porbleme de requetes Fermé

Question

Bonjour j'ai un porbleme pour exécuter ma commande SQL en VBA j'ai tapé ce code la

SQL = "SELECT getTable.OPPO, getTable.MPE, getTable.MPF, getTable.MRE, getTable.MRF, getTable.M__, "2005_T3" AS année FROM getTable WHERE (((getTable.CBQD)="total") And ((getTable.MOIS)="total") And ((getTable.CMOP)="total"));"

DoCmd.RunSQL Sql

C'est la meme que la commande qu'une requete selection SQL de Access

il me met une erreur a ma ligne de commande SQL je ne comrpends pas pourquoi ela fonctionne pas si quelqu'un peut m'aider  il veut pas s'exécuter ca doit etre une erreur de syntaxe mais je vois pas laquelle
Merci d'avance

Lazarey · Answer

Salut,

Il me semble que l'on ne peut pas mettre de " dans une chaine de caractères en vba. Donc essaye de les remplacer par des ' ou de mettre des ' devant chaque ".
Je pense que cela devrait marcher.

darkspoilt · Answer

ca marche merci mais il me met une erreur

Une action exécuter SQL nécessite un argumentconsistant en une instruction SQL

j'ai fais un msgbox pour vérifier ma ligne est bien dedans

EBasta · Answer

Bonjour,

Il existe 2 soucis dans ton programme :
1- un souci de SQL à travers VBA.
2- exécuter une requête SELECT en VBA sans connexion à la base de données.

1- En VBA, les guillemets " correspondent uniquement à des chaînes de caractères. Il ne faut donc pas de " directement dans le SQL intégré dans le VBA mais une apostrophe '.

La commande SQL sous VBA devient donc :

SQL = "SELECT getTable.OPPO, getTable.MPE, getTable.MPF, getTable.MRE, getTable.MRF, getTable.M__, '2005_T3' AS année FROM getTable WHERE getTable.CBQD='total' And getTable.MOIS='total' And getTable.CMOP='total';"

Comme le WHERE ne contient que des AND, les parenthèses peuvent être supprimées.

2- Le RunQSL pour un SELECT peut poser des problèmes car il faut se connecter à la base et définir la requête qui s'y attache. Ce n'est pas forcément simple. Le code VBA de base devient alors :

Sub Exemple()

Dim dbCourante As DAO.Database
Dim rstRequete As DAO.Recordset

Dim strOPPO as String

'Définir la base de travail comme la base actuelle
Set dbCourante = CurrentDb

'Définir la requête
SQL = "SELECT getTable.OPPO, getTable.MPE, getTable.MPF, getTable.MRE, getTable.MRF, getTable.M__, '2005_T3' AS année FROM getTable WHERE getTable.CBQD='total' And getTable.MOIS='total' And getTable.CMOP='total';"

'Exécuter la requête définie par SQL
Set rstRequete = dbCourante.OpenRecordset(SQL)

'Récupérer la valeur OPPO pour l'enregistrement de la requête pour la placer dans une variable (pour un usage futur)
strOPPO = rstRequete!OPPO

'Se déconnecter de la requête et de la base
Set rstRequete = Nothing
Set dbCourante = Nothing

End Sub

Maintenant, il faut modifier le code pour tenir compte de ta demande et de l'intéret du SELECT dans ton projet. Si la requête SQL retourne plusieurs enregistrements, il faut une boucle...

J'espère avoir bien répondu.

darkspoilt · Answer

Merci beaucoup pour ton code ca m'avance énormément
En plus tu as bien expliqué a quoi correspond chaque module ce qui me permet de comprendre.
 en fait mon select va servi a etre ajouté avec une requete ajout dont la commande est 



Dim Var as String
Var = "ReqSelect"

Sql="INSERT INTO TableTest ( année, OPPO, MPE, MPF, MRE, MRF, M__ ) SELECT  " & Var & ".année, " & Var & ".OPPO, "& Var & ".MPE," & Var & "..MPF," & Var & "..MRE," & Var & "..MRF," & Var & "..M__ FROM" & Var & ";"
DoCmd SQL



La place de ReqSelect ca serait strOPPO ???

darkspoilt · Answer

a etre ajouté a une requete ajout pardon

EBasta · Answer

Il n'y a pas d'intérêt de dissocier la requête SELECT du INSERT. Les 2 requêtes peuvent être fusionnées. Sinon, dans ta commande, il y a des erreurs parmi les guillemets et des points...

Si je ne me trompe pas, le programme devrait être de la forme :

Sub Exemple()

Dim dbCourante As DAO.Database 

'Définir la base de travail comme la base actuelle 
Set dbCourante = CurrentDb 

'Définir la requête 
SQL = " INSERT INTO TableTest ( année, OPPO, MPE, MPF, MRE, MRF, M__ ) SELECT '2005_T3', getTable.OPPO, getTable.MPE, getTable.MPF, getTable.MRE, getTable.MRF, getTable.M__ FROM getTable WHERE getTable.CBQD='total' And getTable.MOIS='total' And getTable.CMOP='total';" 

'Exécuter la requête
dbCourante.Execute (SQL)

Set dbCourante = Nothing 

End Sub

darkspoilt · Answer

je savais pas qu'on pouvait fusionner les deux j'aurais au moins appris quelque chose. sinon il met une erreur trop peu de paramètre 9attendu lorsque j'execute

darkspoilt · Answer

si quelqu'un peut m'aider j'arrive pas a trouver la syntaxe
Merci d'avance

darkspoilt · Answer

Je fait ma premiere requête pour ajouter une colonne année que je rempli a trvers le code d'ou la raison de mon premier Select c'est pour filtrer etajouter une colonne a ma premiere table

le code sql de Access généré donne ceci


PFPF2005_T3 est une table présente dans Access
ma premiere idée est de faire
nom de la requete Req2005_T3
SELECT PJPF2005_T3.OPPO, PJPF2005_T3.MPE, PJPF2005_T3.MPF, PJPF2005_T3.MRE, PJPF2005_T3.MRF, PJPF2005_T3.M__, "2005_T3" AS année
FROM PJPF2005_T3
WHERE (((PJPF2005_T3.CBQD)="total") AND ((PJPF2005_T3.MOIS)="total") AND ((PJPF2005_T3.CMOP)="total"));

et ensuite 

INSERT INTO Test ( année, OPPO, MPE, MPF, MRE, MRF, M__ )
SELECT Req2005_T3.année, Req2005_T3.OPPO, Req2005_T3.MPE, Req2005_T3.MPF, Req2005_T3.MRE, Req2005_T3.MRF, Req2005_T3.M__
FROM Req2005_T3;

total étant une valeur
Req2005_T3 une requete selection

VBA porbleme de requetes

9 réponses

Discussions similaires