[VB.NET] Problème avec DataReader..?

Version imprimable

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:

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

07/03/2005, 19h13
Pleymo

salut

je met la valeur de ma variable var_priori dans le "DRKY" et cela me sors mes 2 champs avec mon datareader.

jai decouvert que mon champ DRKY est justifié a droite... cest donc pour cela que quand jentre "1" ..il ne trouve rien puisque quil a seulement le choix " 1" a regarder...

comment je peu faire loperation inverse du TRIM lorsque je met ma valeur dans mon .value :

Code:

Me.SelectCommandF0005.Parameters("@DRKY").Value = var_priori

...jaimerais que ma variable "var_priori" ait le nombre d'espace blanc qu'il faut sachant que la longueur de mon champ es de 10 caractere.

Citation:

je voulais mettre genre ca : " " & var_priori

mais jai comme choix de valeur : 1,2,3,4,5,6,7,8,9,10
donc je ne sais pas a lavance si il faudra 8 ou 9 caractere blanc...

merci de votre aide...

et oui! je me parle tout seul...seulement en esperant que quelqu'un vienne me parler un jour!...mais cest trop tard!

jai esaayer ceci qui marche et qui regle mon probleme
Code:

1 2 3 4 5 6 7 8 If var_priori = 10 Then NewVar_priori = var_priori.PadLeft(10, espace) Else NewVar_priori = var_priori.PadLeft(9, espace) NewVar_priori = NewVar_priori + " " End If Me.SelectCommandF0005.Parameters("@DRKY").Value = NewVar_priori