Requête SQL sous VB

Question

Au secour !!!!!!!!!!!
Voil&#224;, j'ai besoin de faire une requ&#234;te SQL sous VB mais il semble qu'il y a des erreurs dans ma syntaxe. Le probl&#232;me et que j'ai beau chercher, je ne trouve pas o&#249;! Si quelqu'un pouvait m'aider, je vous en remercie par avance.



voici mon code :

                StrChaineSQL = " INSERT INTO tblLocalisations ( RefBat, Etage, Bureau, Position, PositionNorm, CreerPar, DateCreation, Actif ) " & _
                      " SELECT tblFicheTransfert.BatArr, tblFicheTransfert.EtagArr, tblFicheTransfert.BurArr, tblFicheTransfert.PosArr, tblFicheTransfert.PosNormArr, '" & Environ("username") & "' As Expr2, '" & Now() & "' As Expr3, -1 AS Expr1 " & _                      " FROM tblFicheTransfert LEFT JOIN tblLocalisations ON (tblFicheTransfert.PosArr tblLocalisations.Position) AND (tblFicheTransfert.BurArr tblLocalisations.Bureau) AND (tblFicheTransfert.EtagArr = tblLocalisations.Etage) AND (tblFicheTransfert.BatArr = tblLocalisations.RefBat) " & _
                      " WHERE (((tblFicheTransfert.RefTransf)=[Formulaires]![frmDossTransferts]![RefTransf]) AND ((tblFicheTransfert.BatArr) Is Not Null) AND ((tblFicheTransfert.EtagArr) Is Not Null) AND ((tblFicheTransfert.BurArr) Is Not Null) AND ((tblFicheTransfert.PosArr) Is Not Null) AND ((tblLocalisations.RefBat) Is Null) AND ((tblLocalisations.Etage) Is Null) AND ((tblLocalisations.Travee) Is Null) AND ((tblLocalisations.Bureau) Is Null) AND ((tblLocalisations.Position) Is Null)) ; "

                CurrentDb.Execute StrChaineSQL

Le message d'erreur est :


" Trop peu de param&#232;tres. 1 attendu."

Zlub · Answer

Salut,

C'est que ne nom de paramettre que tu as &#224; inserer (
RefBat, Etage, Bureau, Position, PositionNorm, CreerPar, DateCreation, Actif ) ne correspond pas au nombre de valeurs que tu affectes ... genre une en moins, ou une en trop..



un compte vit fait semble te donner 8 champs &#224; reseigner et 9 valeurs ... sauf erreur de ma part


Comment tu fais pour mettre 9 boites dans 8 cartons ?



++

Zlub

franck7593 · Answer

On pli les boites ?

Zlub · Answer

Salut,

M&#234;me pas ... t'apprends &#224; compter et tu vois que 8 boites rentrent dans 8 cartons ... :)

++

Zlub

Tuning Max · Answer

Non j'ai bien la m&#234;me quantit&#233; de champs selectionn&#233;s et de champs de destination. A savoir 8

Zlub · Answer

Salut,

J'ai vu ... voir mon post de 14:41:50 ...

++

Zlub

Zlub · Answer

Salut,

D&#233;j&#224; fais du m&#233;nage
das les parenthese parcequ'Access est bien sympas mais faut qu'il
arrete de tout parenth&#233;ser... limite s'il fait pas lettre par lettre
....



Ensuite c'est possible que tu autorises la saisie d'une valeur nulle ou vide dans une table et pas dans l'autre...



Tu devrais faire un Debug.print StrChaineSQL et v&#233;rifier que la requ&#234;te est bonne...

++

Zlub

gillestang · Answer

Bonjour j'ai regardé votre code SQL deux truc ont attiré mon attention je les mets en gras  

StrChaineSQL =  " INSERT INTO tblLocalisations ( RefBat, Etage, Bureau, Position, PositionNorm, CreerPar, DateCreation, Actif ) " & _
                      " SELECT tblFicheTransfert.BatArr, tblFicheTransfert.EtagArr, tblFicheTransfert.BurArr, tblFicheTransfert.PosArr, tblFicheTransfert.PosNormArr, '" &  Environ("username")  & "' As Expr2, '" & Now() & "' As Expr3, -1 AS Expr1 " & _
                      " FROM tblFicheTransfert LEFT JOIN tblLocalisations ON (tblFicheTransfert.PosArr  tblLocalisations.Position) AND (tblFicheTransfert.BurArr tblLocalisations.Bureau) AND (tblFicheTransfert.EtagArr = tblLocalisations.Etage) AND (tblFicheTransfert.BatArr = tblLocalisations.RefBat) " & _
                      " WHERE (((tblFicheTransfert.RefTransf)=[Formulaires]![frmDossTransferts]![RefTransf]) AND ((tblFicheTransfert.BatArr) Is Not Null) AND ((tblFicheTransfert.EtagArr) Is Not Null) AND ((tblFicheTransfert.BurArr) Is Not Null) AND ((tblFicheTransfert.PosArr) Is Not Null) AND ((tblLocalisations.RefBat) Is Null) AND ((tblLocalisations.Etage) Is Null) AND ((tblLocalisations.Travee) Is Null) AND ((tblLocalisations.Bureau) Is Null) AND ((tblLocalisations.Position) Is Null)) ; "

                CurrentDb.Execute StrChaineSQL

la syntaxe est "  ......... " & var & ".........." 
tu as dans var ( Environ("username") ) je pense que les cotes que tu as dans var peuvent être une source d'erreur.

a ce niveau là aussi je pense qu'il y a problème "' As Expr3, -1 AS Expr1 " & _ je crois que tu devais mettre : "' As Expr3, -1 AS Expr1 '"
 et enfin cette expression ( ; ") pas de point virgule en VB à la fin de la requette je pense.

Requête SQL sous VB

7 réponses

Discussions similaires