Bug dans datagridview

Version imprimable

Bonjour,

J'ai un formulaire avec un datagridview contenant les données sur les produits en stock, un textbox et un bouton.

Dans les données sur les produits il y a les stocks, et le nombre de produits à utiliser pour produire un appareil.

Et quand je rentre un nombre dans ma textbox et que j'appuie sur le bouton, le stock baisse (StockReel = StockReel - (NbAUtiliser * textbox1.text).

Mais avant que je ne fasse les mise à jour dans la base données sa fonctionnait très bien.

Et donc j'en suis venu à faire mon update dans la bdd et c'est là le problème.

Car quand je clique sur le bouton, bon déjà le stock je ne le vois plus baisser directement sur mon DGV, mais bon sa à la rigueur c'est pas trop grave.

Donc pour le voir baisser je ferme et ré ouvre l'appli, et la, le stock à baisser mais beaucoup, vraiment beaucoup trop. A peu près 100 fois trop je dirais.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Try For k As Integer = 0 To DGVProduc.RowCount - 1 If TxtbxNb.Text <> "" Then 'Ce que je faisais avant pour réduire le stock : 'DGVProduc.Item(6, k).Value = DGVProduc.Item(6, k).Value - (DGVProduc.Item(5, k).Value * TxtbxNb.Text) 'Maintenant : Dim con4 As New OleDbConnection con4.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MaBdd.accdb") Dim cmd3 As New OleDbCommand cmd3.CommandType = System.Data.CommandType.Text cmd3.CommandText = "UPDATE Produit SET StockReel = StockReel - (NombreUtilParGNRB * " & Me.TxtbxNb.Text & " );" cmd3.Connection = con4 con4.Open() cmd3.ExecuteNonQuery() con4.Close() Else ...
Donc est-ce que quelqu'un aurait une idée d'où vient le problème svp ?

Merci d'avance

16/03/2012, 16h58
Pol63

est-ce normal qu'il n'y ait pas de where dans ta requete ?
19/03/2012, 00h36
Poupou61
Je veux que l'appli le fasse à chaque ligne du datagridview, donc j'avais pensé que le where ne serait pas.

Mais j'ai essayé en faisant :

Code:

cmd3.CommandText = "UPDATE Produit SET StockReel = StockReel - (NombreUtilParGNRB * " & Me.TxtbxNb.Text & " ) WHERE NumProduit = " & text_to_SQL(Me.DGVProduc.Item(0, k).Value) & " ;"

mais sa ne fonctionne pas plus.
Code:

1 2 3 Public Function text_to_SQL(ByVal text As String) As String Return Replace(text, "'", "''") End Function

Sinon j'ai essayé autre chose (sans grand succès non plus), mais je voudrais savoir si l'idée de base peut être fonctionner :

Donc enfaite je fais d'abord ma boucle pour mettre à jour le datagridview (sans mettre à jour la bdd), et après, dans une autre boucle, je fais ma requête update en mettant que stockreel = DGVProduc.Item(6, k).Value :

Code:

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
 
            For k As Integer = 0 To DGVProduc.RowCount - 1
                If TxtbxNb.Text <> "" Then
                    DGVProduc.Item(6, k).Value = DGVProduc.Item(6, k).Value - (DGVProduc.Item(5, k).Value * TxtbxNb.Text)
                Else
...
                End If
 
           Next
 
           For l As Integer = 0 To DGVProduc.RowCount - 1
                Dim con4 As New OleDbConnection
                con4.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MaBdd.accdb")
                Dim cmd3 As New OleDbCommand
                cmd3.CommandType = System.Data.CommandType.Text
 
                'Avec ou sans WHERE ???
                cmd3.CommandText = "UPDATE Produit SET stockreel = " & DGVProduc.Item(6, v).Value & " ;" ' " WHERE NumProduit = " & text_to_SQL(Me.DGVProduc.Item(0, l).Value) & " ;"
 
                cmd3.Connection = con4
 
                con4.Open()
                cmd3.ExecuteNonQuery()
                con4.Close()
            Next

19/03/2012, 11h14
Nathanael Marchand

En tout cas, si tu n'utilises pas les requêtes paramétrées (comme expliqué dans ce tutoriel http://webman.developpez.com/article.../sqlparameter/ ) tu risques d'avoir pas mal de bugs dans ton programme.