Requete sous vb6

**SISGI** · 09/04/2014, 11h50

Bonjour

j'ai un problème ou niveau d'une requête fait sous une page vb6 et la base de donnée est en access voilà ma requete et voilà l'erreur

j'ai besoins de vos aides SVP

Code :

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

1
2
3
4
ConnectionGlobal.Execute "Update Agents INNER JOIN BulletinsPaie on Agents.Matricule=BulletinsPaie.IdAgent Set " _
& " BulletinsPaie.NbreJoursTravail='5', " _
& " BulletinsPaie.HeuresTravail='5' " _
& " Where (Suspendu=-1 or Partis=-1)  and  IdPeriode='" & TablePeriodeDefaut.Fields("IdPeriode") & "'"

et voilà l'erreur
aucune valeur donnée pour un ou plusieurs des paramètres requis

mercii d'avance

**pc75** · 10/04/2014, 08h22

Bonjour,

Si tu écris ce code, il te donne quoi ?

Code :

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

1
2
3
4
5
 
MsgBox "Update Agents INNER JOIN BulletinsPaie on Agents.Matricule=BulletinsPaie.IdAgent Set " _
& " BulletinsPaie.NbreJoursTravail='5', " _
& " BulletinsPaie.HeuresTravail='5' " _
& " Where (Suspendu=-1 or Partis=-1)  and  IdPeriode='" & TablePeriodeDefaut.Fields("IdPeriode") & "'"

**SISGI** · 10/04/2014, 10h28

Mercii pour votre réponse

voilà ce qu'il m'affiche

Code :

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

1
2
3
4
Update (BulletinsPaie INNER JOIN Agents  on Agents.Matricule=BulletinsPaie.IdAgent)  
Set BulletinsPaie.NbreJoursTravail= '5' , 
BulletinsPaie.HeuresTravail= '5 
Where (Suspendu=-1 or Partis=-1)  and  IdPeriode='03-2014'

**pc75** · 10/04/2014, 11h59

Tu as essayé d'exécuter cette requête directement sous Access ?

**SISGI** · 10/04/2014, 13h24

oui j'ai fait un test maint sous access ça marche très bien

voilà le code

Code :

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

1
2
3
4
Update BulletinsPaie  INNER JOIN Agents  on (Agents.Matricule=BulletinsPaie.IdAgent) Set
BulletinsPaie.NbreJoursTravail= '5' ,
BulletinsPaie.HeuresTravail= '5' 
Where  (Agents.Suspendu=yes or Agents.Partis=yes)  and BulletinsPaie.IdPeriode='03-2014'