problème de syntaxeRésolu

Question

Bonjour les amis j'ai encor besoin d'aide pour mon bout de code quand j'excute mon programme il y a une erreur de syntaxe mais je n'arrive pas à detecter l'erreur alors les amis aider moi à resoudre ce problème je compte sur votre bonne compréhension voici le bout de code: Private Sub Combo1_Click() If rs.State <> adStateClosed Then rs.Close rs.Source = "select * from Produit" rs.Open rs.Find "Libelle='" & Combo1 & "'", , adSearchForward, 1 If Not rs.EOF Then If rs.State <> adStateClosed Then rs.Close rs.Source = "select sum(totalvente) as totalvente from vente where N_Produits=" & rs!N_Produits and datevente between #" & Format$(Text1.Text, "MM\/DD\/YYYY") & "# AND #" & Format$(Text2.Text, "MM\/DD\/YYYY") & "# " rs.Open If Not IsNull(rs!totalvente) Then LabelB1.Caption = rs!totalvente Else LabelB1.Caption = "00" End If merci

cs_Jack · Accepted Answer

Salut
Si tu avais préparé ta requète dans une String avant de l'attribuer à rs.Source, tu aurais pu la visualiser dans la fenêtre de debug et voir tout de suite où se trouve l'erreur.
Pense aussi à bien utiliser la césure (cassure) de ligne de VB : c'est pratique pour vérifier les syntaxe "au coup d'oeil"
"select sum(totalvente) as totalvente " & _
"  from vente " & _
" where N_Produits = " & rs!N_Produits & _
"   and datevente between #" & Format$(Text1.Text, "MM\/DD\/YYYY") & "# " & _
                    " and #" & Format$(Text2.Text, "MM\/DD\/YYYY") & "# "
Dans ton cas, il manquait la réouverture des " après le rs!N_Produits. 
Le nombre de " dans une syntaxe VB ne peut jamais être impaire.

Rappel : Si N_Produits est de type Texte, il faut encadrer la donnée fournie avec des '. Exemple :
" where N_Produits = '" & rs!N_Produits & "' " & _

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Exploreur · Answer

Salut,

C'est pas dans ta requête défois ? Sur quelle ligne pointe l'erreur dans Vb ?

A+
Exploreur

ouat19 · Answer

merci les amis

Exploreur dans mon cas l'erreur pointe sur la ligne ci dessous:


rs.Source = "select sum(totalvente) as totalvente from vente where N_Produits=" & rs!N_Produits and datevente between #" & Format$(Text1.Text, "MM\/DD\/YYYY") & "# AND #" & Format$(Text2.Text, "MM\/DD\/YYYY") & "# "

merci

cs_Exploreur · Answer

Salut,

C'est bien ce que je pensais....Regarde tout ce qu'explique Jack, avec cela tu devrais sans problème régler le tiens... 

A+
Exploreur

ouat19 · Answer

Merci beaucoup Jack ça passe sans problème maintenant
merci pour tout les amis

Problème de syntaxe

5 réponses

Votre réponse

Discussions similaires