Discussion :

[poufouille]

Bonjour à tous,
Voila j'ai développé une application sur pocket pc. A présent, je développe l'interface pc sous vb2005. Par contre j'ai tenté de récupérer le meme code, visiblement niveau datareader, cela ne marche pas trés bien. J'utiliser le meme datareader dans une boucle et j'ai un message d'erreur : "un datareader associé à cette commande est déjà ouvert".

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim req, rs As String
Dim res As SqlDataReader
 
req = "SELECT * FROM CLIENT WHERE CODETECHNICIEN=" & CType(Tech.SelectedItem, CodeLibelle).Code.ToString
req += " ORDER BY c.codeclient"
res = sql.DoSelect(req)
 
ListTerre.Rows.Clear()
Dim r As Row
Dim c As Collection
   While res.Read
      c = New Collection
      c.Add(sql.GetInteger(res, "CODECLIENT"))
      c.Add(sql.GetInteger(res, "RAISONSOCIALE")) 
      CompteAnalyse(sql.GetDate(res, "DATEANALYSE"), n1, n2, n3, n4, n5)
      c.Add(n5)
      r = New Row(c)
      ListTerre.Rows.Add(r)
   End While

Dans ma fonction CompteAnalyse j'ai une requete avec un datareader et c'est la que le message apparait.

J'ai pourtant tenté de le nommé différemment, cela me fait la meme erreur.
Quelq'un peut il m'apporter de l'aide à ce sujet ?
Merci d'avance.

[SaumonAgile]

Tu dois appeler Close sur ton DataReader quand tu as terminé de le parcourir.

[poufouille]

J'ai un close déjà dans ma fonction et également dans ma 1ere requete...
est ce que j'ai oublié quelque chose ?

Private Sub CompteAnalyse(ByVal codeclient As Integer, ByVal codetype As Integer, ByRef n1 As Integer, ByRef n2 As Integer, ByRef n3 As Integer, ByRef n4 As Integer, ByRef n5 As Integer)
Dim req As String
req = "SELECT * FROM ECHANTILLON WHERE DATEANALYSE IS NOT NULL AND CODECLIENT=" & codeclient.ToString
If codetype = 1 Then req += " AND CODEARTICLE<>" & MoinsAnalysesSpeciales()
If codetype = 2 Then req += " AND CODEARTICLE=250"
If codetype = 3 Then req += " AND CODEARTICLE BETWEEN 1000 AND 1999"
If codetype = 4 Then req += " AND CODEARTICLE BETWEEN 2000 AND 2100"
Dim res As SqlDataReader = sql.DoSelect(req)
While res.Read
If sql.GetDate(res, "DATEANALYSE") >= New Date(Year(Now) - 4, 4, 1) And sql.GetDate(res, "DATEANALYSE") <= New Date(Year(Now) - 3, 3, 31) Then
n5 = n5 + 1
ElseIf sql.GetDate(res, "DATEANALYSE") >= New Date(Year(Now) - 3, 4, 1) And sql.GetDate(res, "DATEANALYSE") <= New Date(Year(Now) - 2, 3, 31) Then
n4 = n4 + 1
ElseIf sql.GetDate(res, "DATEANALYSE") >= New Date(Year(Now) - 2, 4, 1) And sql.GetDate(res, "DATEANALYSE") <= New Date(Year(Now) - 1, 3, 31) Then
n3 = n3 + 1
ElseIf sql.GetDate(res, "DATEANALYSE") >= New Date(Year(Now) - 1, 4, 1) And sql.GetDate(res, "DATEANALYSE") <= New Date(Year(Now), 3, 31) Then
n2 = n2 + 1
ElseIf sql.GetDate(res, "DATEANALYSE") >= New Date(Year(Now), 4, 1) And sql.GetDate(res, "DATEANALYSE") <= New Date(Year(Now) + 1, 3, 31) Then
n1 = n1 + 1
End If
End While
res.Close()
End Sub

[_skip]

Dispose() ?

[poufouille]

je ne connais pas "dispose" ???

[poufouille]

si ca peut aider, voici la solution :

"Bonjour,
Il est tout à fait possible d'avoir plusieurs DataReader sur une même connexion*grace à l'activation de "MARS" en incluant dans la chaine de connexion l'option : MultipleActiveResultSets=True. Par contre, cette option n'est valide que pour SQL Server 2005 ...
Activation de MARS : http://msdn2.microsoft.com/fr-fr/lib...bf(VS.80).aspx
Exemple d'utilisation : http://msdn2.microsoft.com/fr-fr/library/yf1a7f4f(VS.80).aspx"