Discussion :

[Poussera]

je veux récupérer les données de 2 tables dans un datagrid quand je sélectionne un client dans un combobox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Sub Grille_Consultation()
        OuvrirConnexion()
        sSQL = "SELECT FactureEnTete.CleCli, FactureEnTete.CleFac, FactureEnTete.NumFac, FactureEnTete.TypDoc, FactureEnTete.DateFact, SUM(FactureDetail.Quantite * FactureDetail.PrixUnitaire - FactureDetail.Quantite * FactureDetail.PrixUnitaire * FactureDetail.Remise / 100) AS NetHT, SUM((FactureDetail.Quantite * FactureDetail.PrixUnitaire - FactureDetail.Quantite * FactureDetail.PrixUnitaire * FactureDetail.Remise / 100)* FactureDetail.CodeTVA / 100) AS TVA, SUM(FactureDetail.Quantite * FactureDetail.PrixUnitaire - FactureDetail.Quantite * FactureDetail.PrixUnitaire * FactureDetail.Remise / 100 + (FactureDetail.Quantite * FactureDetail.PrixUnitaire - FactureDetail.Quantite * FactureDetail.PrixUnitaire * FactureDetail.Remise / 100) * FactureDetail.CodeTVA / 100) AS TTC FROM (FactureEnTete INNER JOIN   FactureDetail ON FactureEnTete.CleFac = FactureDetail.CleFac) GROUP BY FactureEnTete.CleCli, FactureEnTete.CleFac, FactureEnTete.NumFac, FactureEnTete.TypDoc,  FactureEnTete.DateFact HAVING(FactureEnTete.CleCli = '" & CInt(cbCleCliList.Text) & "') ORDER BY FactureEnTete.CleFac"
        With cmdSelect
            .Connection = cn
            .CommandType = CommandType.Text
            .CommandText = sSQL
        End With
        DsConsultFacCli1.Clear()
        daConsultFacCli.SelectCommand = cmdSelect
        daConsultFacCli.Fill(DsConsultFacCli1, "FactureEnTete")
        DataGrid2.DataSource = DsConsultFacCli1.Tables("FactureEnTete")
        FermerConnexion()
    End Sub

en fait c'est :

Code :

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

HAVING(FactureEnTete.CleCli = '" & CInt(cbCleCliList.Text) & "')

qui pose problème. si je mets une valeur à la place de '" & CInt(cbCleCliList.text) & "' ma requete fonctionne.

Qui peut me donner la solution?

[ramalho]

Salut,

Je ne comprends pas pourquoi tu essaies de transformer ta valeur cbCleCliList.Text en Int pour ensuite la remettre en String. Change ta ligne SQL Having par :

Code :

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

HAVING(FactureEnTete.CleCli = '" & cbCleCliList.Text & "')

-----------------
Mario Ramalho

[philippef]

J'ai CInt parce que dans ma table FactureEnTete le champ CleCli est un entier long et je pensais que cbCleCliList devait aussi être un integer.

J'ai donc enlevé CInt mais ça plante encore. Et le message d'erreur est plutot pas clair :
"Une exception non gérée du type 'System.Data.OleDbException' s'est produite dans system.data.dll"

Est ce que ça peut pas être un problème de ' ou de " dans Having?

[Maniak]

J'ai CInt parce que dans ma table FactureEnTete le champ CleCli est un entier long et je pensais que cbCleCliList devait aussi être un integer.

Ok, question suivante :
Si CleCli est un entier, pourquoi mets-tu des apostrophes autour de la valeur dans la requête ?


(la question suivante sera "que donne la requête quand tu l'exécutes dans l'analyseur de requêtes ?", ce qui aurait répondu à ton problème depuis un moment :)

[philippef]

Quand je mets une valeur pour CleCli dans l'analyseur la requete fonctionne

J'ai enlevé les apostrophes et maintenant ça marche

Grand merci