Salut

J'ai un datareader qui va lire des infos dans une table...tout fonctionne à la merveille. Mon 2e datareader ne fonctionne pas.. il fait ma requete et arrive a mon "While reader.read" et sors immédiatement apres avec le "reader.close"...
je suis vraiment confus...
quelqu'un peut maider?

Merci!


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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub conserverF0005(ByVal var_priori As String)
Try
Me.MonAdapteurF0005.SelectCommand = Me.SelectCommandF0005
 
Dim var_Descrip1 As String
Dim var_Descrip2 As String
 
Me.SelectCommandF0005.CommandText = "SELECT DRDL01,DRDL02,DRRT,DRSY,DRKY FROM F0005 WHERE DRSY = ? AND DRRT = ? AND DRKY = ?"
Me.SelectCommandF0005.Connection = Me.MaConnectionAS400
Me.SelectCommandF0005.Connection.Close()
Me.SelectCommandF0005.Connection.Open()
 
Me.SelectCommandF0005.Parameters.Add("@DRSY", OdbcType.NVarChar)
Me.SelectCommandF0005.Parameters("@DRSY").Value = "58"
 
Me.SelectCommandF0005.Parameters.Add("@DRRT", OdbcType.NVarChar)
Me.SelectCommandF0005.Parameters("@DRRT").Value = "RB"
 
Me.SelectCommandF0005.Parameters.Add("@DRKY", OdbcType.NVarChar)
Me.SelectCommandF0005.Parameters("@DRKY").Value = var_priori
 
Dim MonReader As OdbcDataReader = Me.SelectCommandF0005.ExecuteReader()
    While MonReader.Read
        Try
           var_Descrip1 = CType(MonReader("DRDL01"), String)
           var_Descrip2 = CType(MonReader("DRDL02"), String)
        Catch ex As Exception
       End Try
    End While
MonReader.Close()
 
Me.SelectCommandF0005.Connection.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try