Discussion :

[dolyne.b]

Bonjour,

j'ai besoin de récupérer les champs modifiés dans mon dataGridView afin de pouvoir les envoyer à mon updatequery en paramètres et je ne sais pas comment faire..

Code :

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

1
2
3
Me.Validate()
Me.F_TARIFQTEBindingSource.EndEdit()
Me.F_TARIFQTETableAdapter.UpdateQuery(PrixModifié, id_Produit)

Bon en fait le problème c'est que je ne sais pas comment appeler les parametres pour mon udatequery
Est-ce que vous savez comment je fais pour lui dire de faire la mise à jour sur tous les produits dont les prix ont été modifiés dans le datagridview ?

[dolyne.b]

Bon alors j'ai un peu avancé mais c'est pas encore ça..
Voilà le code de mon bouton enregistrer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Me.Validate()
Me.F_TARIFQTEBindingSource.EndEdit()

Dim dt As New BLHDataSet.F_TARIFQTEDataTable
Dim prixChange = dt.GetChanges(DataRowState.Modified)
'Dim prixChange = CType(BLHDataSet.F_TARIFQTE.GetChanges(Data.DataRowState.Modified), BLHDataSet.F_TARIFQTEDataTable)
'Dim prixChange = BLHDataSet.F_TARIFQTE.GetChanges(DataRowState.Modified)

If prixChange IsNot Nothing Then
  'Me.F_TARIFQTETableAdapter.UpdateQuery(PrixModifié, id_Produit)
  F_TARIFQTETableAdapter.UpdateQuery(prixChange, 76100)
  'Pour l'instant l'id produit est en dur car je ne sais pas comment le récupérer
End If

Me.BLHDataSet.AcceptChanges()

J'ai plusieurs problèmes:

1- Pour ce qui est de récupérer les lignes modifiées avec GetChanges je ne sais pas si ma méthode est la bonne...

2- je ne sais toujours pas comment appeler les paramètres attendus par mon update qui sont: le prix à modifier et l'identifiant de l'article.
Je ne sais pas comment dans les lignes qui ont été modifiées récupérer le Prix et l'id...

Si quelqu'un a une idée pour me sortir de là ça serait avec joie !

[dolyne.b]

Bon ben si ça interesse quelqu'un voilà la solution (merci amine):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Me.Validate()
Me.F_TARIFQTEBindingSource.EndEdit()
 
Dim prixChange = CType(BLHDataSet.F_TARIFQTE.GetChanges(Data.DataRowState.Modified), BLHDataSet.F_TARIFQTEDataTable)
 
If prixChange IsNot Nothing Then
     Dim nbRows As Integer
     Dim ligne As DataRow
     Dim PrixModifie As Decimal
     Dim id As Integer
     Dim borne As Decimal
     Dim i As Integer
     nbRows = prixChange.Rows.Count
 
     For i = 0 To nbRows - 1
         ligne = prixChange.Rows(i)
         PrixModifie = ligne(3)
         id = ligne(4)
         Me.F_TARIFQTETableAdapter.UpdateQuery(PrixModifie, id)
     Next
     Me.BLHDataSet.AcceptChanges()
End If