Discussion :

[oami89]

Bonjour,
rg et rd me retourne toujours 0 qui est une valeurs inexistante dans la base.

Code :

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

1
2
3
4
5
6
7
8
 Dim Cmd As New SqlCommand("select A.REMIGRO,A.REMIDET  from [Base-Ets-Mtiri].[dbo].[ARTICLE] A  where A.CODAUX='" & facture.code.Text & " ' ", con)
        con.Open()
        Dim SqlReader As SqlDataReader = Cmd.ExecuteReader
        SqlReader.Read() 
        rg = SqlReader.Item(0)
        rd = SqlReader.Item(1)
        SqlReader.Close()
        con.Close()

Merci de m'aider

[sinople]

Outre le fait que ta requête n'a pas l'air protégée contre une attaque de type injection SQL.

Il faut utiliser l'instruction suivant afin de s'assurer que tu as effectivement un résultat avant de le récupérer. Si tu lis un ligne qui n'existe pas tu récupérera des valeurs null (0 pour en ce qui concerne les numériques).

Code :

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

SqlReader.Hasrow

Il est aussi possible de tester dans un If le Sqlreader.read() afin de vérifier qu'il ne renvoie pas false.