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

[ostenhard]

Bonjour,

Sans l'erreur et son message comment t'aider ?

Un conseil, utilise les requêtes paramétrées cela résoud par soit-même quantité d'erreur (un petit tour dans la faq) !

[jlm22]

Salut,

Vérifie si tu n'as pas des nombres à virgule ou autre, on sait jamais (seul le point passe en SQl ou le nombre à virgule entre cote)

Cordialement

[oami89]

Salut,

Vérifie si tu n'as pas des nombres à virgule ou autre, on sait jamais (seul le point passe en SQl ou le nombre à virgule entre cote)

Cordialement

Non mais pas du tous, je sais cet contrainte

[oami89]

Bonjour,

Sans l'erreur et son message comment t'aider ?

Un conseil, utilise les requêtes paramétrées cela résoud par soit-même quantité d'erreur (un petit tour dans la faq) !

J'ai aucun erreur et aucun message