[VB.NET] Sql plante

Version imprimable

[VB.NET] Sql plante

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

Code:

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:

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?

07/10/2004, 11h06
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:

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

-----------------
Mario Ramalho
07/10/2004, 11h28
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?
07/10/2004, 11h33
Maniak

Citation:

Envoyé par 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.

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 :)
07/10/2004, 11h45
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