Discussion :

[oami89]

Bonjour,
le code ci dessous à un problème,et je pense qu'il arrive de la requete parce que si je remplace Me.Dg.Rows(g).Cells(0).Value par une valeur de la colonne ART de la base ca marche.
Aussi j'ai la remplacé par Me.Dg.Rows(0).Cells(0).Value aussi j'ai aucune valeur retourné par la requete.

aidez moi svp.

Code :

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

1
2
3
4
5
6
7
8
9
  Dim g As Integer
                For g = 0 To 10
                    Dim dst8 As New DataSet
                    Dim adpt8 As New SqlDataAdapter("select QTDISP from [Base-Ets-Mtiri].[dbo].[ARTICLE]  where ART='" & Me.Dg.Rows(g).Cells(0).Value & "'", con)
                    adpt8.Fill(dst8, "t8")
                    For z = 0 To dst8.Tables("t8").Rows.Count - 1
                        Me.Dg.Rows(g).Cells(10).Value = dst8.Tables("t8").Rows(0).Item(0) & vbCrLf
                    Next
                Next