Discussion :

[Pleymo]

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

[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 :

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

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.

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...

[Pleymo]

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 :

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

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