Update dd'un dgv avec jointure
p.delbrayelle
Membre Dernière intervention
31 mars 2017
- - Dernière réponse :
Whismeril
Contributeur Dernière intervention
19 mai 2019
- 1 avril 2017 à 19:11
- Messages postés
- 14
- Date d'inscription
- vendredi 25 avril 2014
- Statut
- Messages postés
- 13294
- Date d'inscription
- mardi 11 mars 2003
- Statut
A voir également:
- Update avec jointure
- Update jointure - Meilleures réponses
- Pb sur jointure dans update dans access 2003 ✓ - Forum - SQL
- Update avec jointure ✓ - Forum - SQL
- Update - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Visual Basic / VB.NET : Check url update - CodeS SourceS - Guide
- Visual Basic / VB.NET : 2ème update-neo net... (( naviguateur internet "fun") - Cod - Guide
7 réponses
- Messages postés
- 13294
- Date d'inscription
- mardi 11 mars 2003
- Statut
Bonjour
les bases de données c'est pas mon truc, cependant, ton titre parle de datagridview et d'update.
Or dans le code que tu montres, il n'y a pas de datagridview, il n'y a pas de requête update (si c'est ça que tu appelles update?).
Tu ne dis même pas si la ligne qui bug est dans le code présenté.
les bases de données c'est pas mon truc, cependant, ton titre parle de datagridview et d'update.
Or dans le code que tu montres, il n'y a pas de datagridview, il n'y a pas de requête update (si c'est ça que tu appelles update?).
Tu ne dis même pas si la ligne qui bug est dans le code présenté.
- Messages postés
- 14
- Date d'inscription
- vendredi 25 avril 2014
- Statut
Bonjour Whismeril,
Merci pour ta rép.
En fait je lis le datatable au dgv
et pour la suite avant de modifier mon code pour rajouter la jointure je fesais :
Ce qui fonctionnait bien car j'enregistrais des doublons d'infos sur les tables
aujourd'hui j'essaie de faire avec :
Merci pour ta rép.
En fait je lis le datatable au dgv
DataGridView1.DataSource = ObjetDataTable2
et pour la suite avant de modifier mon code pour rajouter la jointure je fesais :
ObjetCB2 = New OleDbCommandBuilder(ObjetDataAdapter2)
' ObjetDataAdapter2.Update(ObjetDataSet2, "Offres")
' ObjetDataSet2.Clear()
' ObjetDataAdapter2.Fill(ObjetDataSet2, "Offres")
' ObjetDataTable2 = ObjetDataSet2.Tables("Offres")
' ObjetConnection.Close()
Ce qui fonctionnait bien car j'enregistrais des doublons d'infos sur les tables
aujourd'hui j'essaie de faire avec :
Try
ObjetConnection.Open()
Dim requete As String = "UPDATE Offres SET MONTANT = Montant where ID_OFFRE= ID_Odp"
MsgBox(requete)
Dim commande As New OleDbCommand(requete, ObjetConnection)
commande.ExecuteNonQuery()
commande.Dispose()
ObjetConnection.Close()
Catch ex As Exception
MsgBox(ex.ToString)
ObjetConnection.Close()
End Try
- Messages postés
- 14
- Date d'inscription
- vendredi 25 avril 2014
- Statut
- Messages postés
- 14
- Date d'inscription
- vendredi 25 avril 2014
- Statut
- Messages postés
- 14
- Date d'inscription
- vendredi 25 avril 2014
- Statut
merci pour ton temps.
Bon week end
Bon week end
- Messages postés
- 13294
- Date d'inscription
- mardi 11 mars 2003
- Statut
Salut, j'ai tenté un truc avec Linq (ça peut s'améliorer un peu pour savoir qui a réellement été mis à jour)
Si ça te parait utile, je peux améliorer
PS: je n'ai pas réussi, avec tes données exemple à obtenir la même jointure que toi
Class Client//pas utile dans l'option 2 Public Property ID_Client() As Integer Public Property Nom() As String End Class Class Offre//pas utile dans l'option 2 Public Property ID() As Integer Public Property ID_Offre() As Integer Public Property ID_Client() As Integer Public Property Montant() As Double End Class Class Jointure Public Property ID() As Integer Public Property ID_Client() As Integer Public Property Montant() As Double Public Property Nom() As String End Class
'pour que je puisse tester chez moi
Dim clients As New List(Of Client)() From {
New Client With {.ID_Client = 1, .Nom = "NOM1"},
New Client With {.ID_Client = 2, .Nom = "NOM2"},
New Client With {.ID_Client = 3, .Nom = "NOM3"}}
Dim offres As New List(Of Offre)() From {
New Offre With {.ID = 1, .ID_Offre = 1, .ID_Client = 1, .Montant = 1000},
New Offre With {.ID = 2, .ID_Offre = 1, .ID_Client = 3, .Montant = 2000},
New Offre With {.ID = 3, .ID_Offre = 3, .ID_Client = 3, .Montant = 3000}}
'fin d'init chez moi
'Option1 ici faire en sorte que clients et offres soient remplies avec les 2 tables
Dim jointures As List(Of Jointure) = (
From c In clients
Join o In offres On c.ID_Client Equals o.ID_Client
Where o.ID_Offre = 1
Select New Jointure With {.ID = o.ID_Offre, .ID_Client = o.ID_Client, .Nom = c.Nom, .Montant = o.Montant}).ToList()
'Option2 remplir jointures avec le résultat de ta requête. DU coup les classes Client et Offre ne te servent pas
dataGridView1.DataSource = jointures
'Modification des données pour le test
jointures(0).Nom = "Nouveau nom"
jointures(1).Montant = 9999
'création des 2 listes de mise à jour
Dim clientsMAJ As List(Of Client) = (
From j In jointures
Select New Client With {.ID_Client = j.ID_Client, .Nom = j.Nom}).ToList()
Dim offresMAJ As List(Of Offre) = (
From j In jointures
Select New Offre With {.ID_Offre = j.ID, .Montant = j.Montant}).ToList()
'TODO faire les 2 requettes Upadte
Si ça te parait utile, je peux améliorer
PS: je n'ai pas réussi, avec tes données exemple à obtenir la même jointure que toi
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.