Discussion :

[oami89]

Bonjour,
La requête select ci dessous ne fonctionne pas.!
--->j'ai mis le msgbox en vert pour tester si le Dg.Rows(0).Cells(0).Value contient une valeur pour l'utiliser dans la requete.et le test est positive le msgbox à afficher la valeur que j'ai besoin.
--->puis j'ai essayé d'affecté encore une autre fois avec la ligne en rouge Me.Dg.Rows(0).Cells(0).Value = "eb012" et ca fonctionné.
aidez moi svp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
     MsgBox(Me.Dg.Rows(0).Cells(0).Value)
                Me.Dg.Rows(0).Cells(0).Value = "eb012"
                ' For z = 0 To 10
                con.Open()

                Dim Cmd As New SqlCommand("select QTDISP from [Base-Ets-Mtiri].[dbo].[ARTICLE] where ART= '" & Me.Dg.Rows(0).Cells(0).Value & "'", con)

                Dim SqlReader As SqlDataReader = Cmd.ExecuteReader
                SqlReader.Read() 'lit la première ligne du reader
                Me.Dg.Rows(0).Cells(10).Value = SqlReader.Item(0)
                con.Close()

[jlm22]

Bonjour,

Quel est le message d'erreur ?

[kika10]

mettre

Code :

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

Me.Dg.Rows(0).Cells(10).Value = SqlReader(0).ToString

[oami89]

Bonjour,

Quel est le message d'erreur ?

Tentative non valide de lecture lorsque aucune donnée n'est présente.

[Pol63]

lol

vraiment pas sérieux tout ça !

si le .read retourne false ca veut dire qu'il n'y a pas de ligne, donc lire la valeur de la ligne plante !

[asmduty]

d'où l'interet de faire un

Code :

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

1
2
3
4
5
if sql.Read then
 
...
 
end if

quand on ne lit qu'une ligne ou un

Code :

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

1
2
3
4
5
while sql.Real 
 
...
 
and while

quand on veut lire toutes les lignes


Bref, vérifie ta requète pour voir pourquoi elle ne retourne aucun résultat.
Tu peux le faire de la manière suivante :

Code :

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

1
2
Dim requete as string = "select QTDISP from [Base-Ets-Mtiri].[dbo].[ARTICLE] where ART= '" & Me.Dg.Rows(0).Cells(0).Value & "'"
Dim Cmd As New SqlCommand(requete, con)

Tu poses un pojnt d'arret sur la seconde ligne, met un espion sur requete et regarde ce que vaut requete.

[oami89]

Ne me dites pas de vérifier la requête ou qu'il n'y a pas une ligne a retourner parce que si j'exécute la même requête dans le SQL SERVER elle retourne une ligne,et cette une proposition vraiment pas sérieux comme Pol63 a dit.