Bonjour tout le monde,
J'ai un problème et je suis bloqué dans l'exécution de ma requête genre :
reader = ExecuteRequete(requete,connexion)
le problème que la requete est correcte car je l'ai exécuté dans l'SQL Server management Studio Express(où il y a ma base de données), et elle me donne des résultats correctes ???!
Mais, lorsque je veux l'éxecuter dans le code VB.NET ça me donne rien.!
Remarque : ce code est effectué au niveau d'un select case checkBox (=true)
voici le code pour mieux comprendre :
*********************************************************
Select Case Me.FiltreDateParc.Checked
'si on a choisi l'option de filtre
Case True
r = ExecuteRequete("Select IdCampagne, NomCampagne, im.CoutPrestationIntervention,id.CoutPrestationIntervention from (( intervention im join campagne on im.IdCampagneIntervention=IdCampagne) join intervention id on id.IdCampagneIntervention=IdCampagne) where id.TypeIntervention=" & EnumTypeIntervention.demontage & " and im.TypeIntervention=" & EnumTypeIntervention.montage & " and (id.DateIntervention BETWEEN '02/04/2006 00:00:00' and '28/04/2008 00:00:00') and (im.DateIntervention BETWEEN '02/04/2006 00:00:00' and '28/04/2008 00:00:00')", c.Connexion)
While r.Read() AndAlso Not r(0) Is System.DBNull.Value
it = New ListViewItem
id_campagne = CType(r(0), Integer)
it.Text = CType(r(1), String)
it.SubItems.Add(CType(r(2), Double))
it.SubItems.Add(CType(r(3), Double))
rq2 = ExecuteRequete("Select sum(PrixAchatPiece) from piece where IdPiece IN( select a.IdPieceAffectation from Affectation a,piece p where IdCampagneAffectation=" + id_campagne + " and a.IdPieceAffectation NOT IN (SELECT IdPieceAffectation from Affectation where IdPieceAffectation=a.IdPieceAffectation and DateDebutAffectation<a.DateDebutAffectation ) and a.IdPieceAffectation=p.IdPiece)", c2.Connexion)
If rq2.Read() AndAlso Not rq2(0) Is System.DBNull.Value Then
it.SubItems.Add(CType(rq2(0), Double))
End If
rq2.Close()
rq3 = ExecuteRequete("Select DateIntervention , sum(CoutPrestationIntervention) from intervention where IdIntervention IN (select IdProblemeLie from intervient_sur_prob where IdProblemeLie IN (Select IdProbleme from probleme where IdAffectationProbleme IN (select IdAffectation from Affectation where IdCampagneAffectation=" & id_campagne + "))) and DateIntervention BETWEEN '" + Me.PickerDebutParc.Value.ToShortDateString + "' and '" + Me.PickerFinParc.Value.ToShortDateString + "'", c2.Connexion)
If rq3.Read() AndAlso Not rq3(0) Is System.DBNull.Value Then
it.SubItems.Add(CType(rq3(1), Double))
it.SubItems.Add(CDate(rq3(0)))
End If
rq3.Close()
Me.ListViewCoutParc.Items.Add(it)
End While
r.Close()
End Select
c2.Connexion.Dispose()
**********************************************************
Et merci d'avance
Partager