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
Partager