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?