Mettre à jour DataGridView dont le DataSource est une relation.

Version imprimable

Voir 40 message(s) de cette discussion en une page

Mettre à jour et filtrer DataGridView dont le DataSource est une relation.

Bonjour tout le monde.
J'ai 2 DataGridView (une maître "TblPersonnelDataGridView" et l'autre détail "TblCongésDataGridView" filtrée par une ComboBox "cboAnnée") :
Code:

1 2 3 4 5 6 7 8 9 Private Sub frmCongés_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TblPersonnelDataGridView.DataSource = TblPersonnelBindingSource TblCongésDataGridView.DataSource = reltblPersonnelreqtblCongésBindingSource cboAnnée.DataSource = ReqtblCongésBindingSource cboAnnée.DisplayMember = "Année" Me.ReqtblCongésTableAdapter.Fill(Me.GRHDataSet1.reqtblCongés) Me.TblPersonnelTableAdapter.Fill(Me.GRHDataSet1.tblPersonnel) End Sub
Je filtre ma TblCongésDataGridView par la ComboBox :
Code:

1 2 3 Private Sub cboAnnée_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnnée.SelectedIndexChanged reltblPersonnelreqtblCongésBindingSource.Filter = "Année = '" & cboAnnée.Text & "'" End Sub
Le problème est que je n'arrive pas à mettre à jour la TblCongésDataGridView lorsque je modifie ses cellules et que je clique sur le bouton TblCongésBindingNavigatorSaveItem, puisque la relation ne possède pas d'événement Update! J'essaie donc de faire ceci :
Code:

1 2 3 4 5 6 Private Sub TblCongésBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblCongésBindingNavigatorSaveItem.Click Me.Validate() TblCongésBindingSource.EndEdit() Me.TblCongésTableAdapter.Update(Me.GRHDataSet1.tblCongés) ' GRHDataSet1.AcceptChanges() End Sub
Mais ça marche pas.
J'attend votre aide s'il vous plaît.:help:

ajouter mon ami cette ligne de code

Code:

1
2
 'TODO : cette ligne de code charge les données dans la table 'DatabaseDataSet.matable'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
                    Form.matableTableAdapter.Fill(Form.Database1DataSet1.matable)

matable c'est la table qui remplit datagridview

26/04/2008, 20h05
zizou2007

Merci pour ta réponse Matrixdine, mais malheureusement ça marche pas.
le problème est que les données que je fais entrer ne s'enregistrent peut être pas dans la base de donnée Access.
26/04/2008, 23h55
olsimare

Bonjour.

As-tu un commandbuilder sur l'adapter ?

Cdt.
27/04/2008, 00h17
zizou2007

Citation:

olsimare
Bonjour.

As-tu un commandbuilder sur l'adapter ?

Cdt.

A vrai dire, je suis débutant et j'ai pas compris la question.:oops:
Mais j'ai utilisé le concepteur si c'est de ça que vous parlez.

bonjour.

Non pas vraiment, je parlais d'un truc du style :

Code:

1
2
3
4
5
6
7
8
Private Sub TblCongésBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblCongésBindingNavigatorSaveItem.Click
        Me.Validate()
        TblCongésBindingSource.EndEdit()
        Dim cmdBuilder As New OleDbCommandBuilder(Me.TblCongésTableAdapter)
         Me.TblCongésTableAdapter.Update(Me.GRHDataSet1.tblCongés)
      '  GRHDataSet1.AcceptChanges()
End Sub

Cdt.

27/04/2008, 01h46
zizou2007

J'ai appliqué ce que vous m'avez suggéré Olsimare, et le programme m'a demandé d'importer System.Data.OleDb, ce que j'ai fait; mais il me donne l'erreur suivante :
Une valeur de type 'GRH.GRHDataSet1TableAdapters.tblCongésTableAdapter' ne peut pas être convertie en 'System.Data.OleDb.OleDbDataAdapter'.
27/04/2008, 15h21
zizou2007

Le problème est que si j'utilise directement les tablesBindingSource comme DataSource, les modifications sont enregistrées et je peux filtrer, mais il n'y a plus de correspondance entre les 2 DataGridView (c'est pourquoi j'ai utilisé la relation); Je présume qu'il n'y pas autre moyen pour les faire corespondre sans une relation, non !?
Est ce que le problème réside au niveau de la relation !? :arf:

Bonjour,
Pour relier 2 DGV avec une relation tu peux utiliser 2 objets bindingsource
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim BSPersonnel As BindingSource 'lié à TblPersonnel Dim BSConges As BindingSource 'Lié à TblConges dim DTAV as dataview BSPersonnel = New BindingSource 'parent BSConges = New BindingSource 'enfant DTAV = New DataView DTAV.Table = DS.TblPersonnel DTAV.RowFilter = "Année = '" & cboAnnée.Text & "'" BSPersonnel.DataSource = DTAV BSConge.DataSource = BSPersonnel BS.DataMember = "Nom de la relation "(personnel--conge) DGVPersonnel.DataSource = BSPersonnel DGVConge.DataSource = BSConge
Le principe :
- un bindingsource lié à la table parent au travers d'un dataviewqui permet de filtrer les enregistrements.
- un bindingsource lié au bindingsource parent mais le datamember qui est lié à la relation n'affichera que les enregistrements enfants.
Si tu ne doit pas filtrer les enregistrements le bindinsource parent est lié directement à la table parent.
Bon boulot8-) Jean

Voilà mes modifications JPelli :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub frmCongés_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim BSPersonnel As BindingSource       'lié à TblPersonnel
        Dim BSConges As BindingSource          'Lié à TblConges
        Dim DTAV As DataView
        BSPersonnel = New BindingSource   'parent
        BSConges = New BindingSource      'enfant
        DTAV = New DataView
        DTAV.Table = GRHDataSet1.tblPersonnel
        DTAV.RowFilter = "Année = '" & cboAnnée.Text & "'"
        BSPersonnel.DataSource = DTAV
        BSConges.DataSource = TblPersonnelBindingSource
        BSConges.DataMember = "reltblPersonnelreqtblCongés"
        TblPersonnelDataGridView.DataSource = BSPersonnel
        TblCongésDataGridView.DataSource = BSConges
End Sub

Seulement jai l'erreur suivante "Impossible de trouver la colonne [Année]" au niveau de la ligne :

Code:

DTAV.RowFilter = "Année = '" & cboAnnée.Text & "'"

car ma colonne [Année] se trouve dans la table tblCongés (enfant) et c'est TblCongésDataGridView que je veux filtrer.

Bonjour,
Je n'ai pas essayé mais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub frmCongés_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim BSPersonnel As BindingSource       'lié à TblPersonnel
        Dim BSConges As BindingSource          'Lié à TblConges
        BSPersonnel = New BindingSource   'parent
        BSConges = New BindingSource      'enfant
        BSPersonnel.DataSource = GRHDataSet1
        BSPersonnel.datamembre = "tlbpersonnel"
        BSConges.DataSource = TblPersonnelBindingSource
        BSConges.DataMember = "reltblPersonnelreqtblCongés"
        BSConges.Filter = "Année = '" & cboAnnée.Text & "'" 
       TblPersonnelDataGridView.DataSource = BSPersonnel
        TblCongésDataGridView.DataSource = BSConges
End Sub

Code:

BSConges.Filter = string.format("Année = '{0}'", cboAnnée.Text)

Plus clair(à mon avis) si tu as plusieurs champs à concaténer.

Bon boulot8-) Jean

29/04/2008, 20h27
zizou2007

Et Bein, malheureusement, ça marche toujours pas. :cry:
J'ai la possibilité de faire correspondre les 2 DataGridView, mais sans pouvoir filtrer.
Le filtrage est important pour moi, car je veux que l'utilisateur puisse faire différencier les congés par années en choisissant dans la combobox.
Bien sûr, c'était possible si le champ "année" était déjà présent dans la table et était donc rempli par l'utilisateur; seulement il est calculé dans mon cas par une requete à partir de la date de début du congé.
Je ne sais pas s'il y a un autre schéma pour procéder! je vous serai reconnaissant si vous me mettez sur le chemin.

Bonjour,
Une solution, remplir le datagridview enfant " à la main"
Lors de l'évenement positionchanged, construire le DGV enfant
1 récupérer le datarowview du bindingsource
2 créer la liste des lignes enfants
2 créer le DGV
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim withevents BSPersonnel As BindingSource 'lié à TblPersonnel dim DTARVParenr as datarowview dim DTAVEnfant as dataview dim DTARV as datarowview if typeof bsPersonnel.current is datarowvien then DTARVParent = ctype(bsPersonnel.current,datarowview) DTAVEnfant = DTARVParent.CreateChildView("NonDeLaRelation") for each DTARV in DTVEnfant charger le DGV avec les lignes correspondant à l'année ... next end if
Bon boulot8-) Jean

Je ne suis pas sûr d'avoir bien compris !
Mais voici ce que j'ai mis dans le BindingSource de la ComboBox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub ReqAnnéestblCongésBindingSource_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReqAnnéestblCongésBindingSource.PositionChanged
        Dim DTARVParent As DataRowView
        Dim DTAVEnfant As DataView
        Dim DTARV As DataRowView
        If TypeOf TblPersonnelBindingSource.Current Is DataRowView Then
            DTARVParent = CType(TblPersonnelBindingSource.Current, DataRowView)
            DTAVEnfant = DTARVParent.CreateChildView("ReltblPersonnelreqtblCongés")
            For Each DTARV In DTAVEnfant
                ' charger le DGV avec les lignes correspondant à l'année
                DTAVEnfant.RowFilter = "Année = '" & cboAnnée.Text & "'"
            Next
        End If
    End Sub

Estce que c'est ce que vous me proposiez de faire ?
En tous cas, ça ne produit aucun effet sur le DataGridView enfant!

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub ReqAnnéestblCongésBindingSource_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReqAnnéestblCongésBindingSource.PositionChanged
        Dim DTARVParent As DataRowView
        Dim DTAVEnfant As DataView
        Dim DTARV As DataRowView
       TblCongésDataGridView.DataSource = dtavEnfant
        If TypeOf TblPersonnelBindingSource.Current Is DataRowView Then
            DTARVParent = CType(TblPersonnelBindingSource.Current, DataRowView)
            DTAVEnfant = DTARVParent.CreateChildView("ReltblPersonnelreqtblCongés")
                 DTAVEnfant.RowFilter = "Année = '" & cboAnnée.Text & "'"
        End If
    End Sub

Vérifie si le résultat de DTARVEnfant contient bien les enregistrements de la relation mais avec toutes les années.
Il faut peut-être déclarer DTAVEnfant au niveau module.
Bon boulot8-) Jean

06/05/2008, 14h10
zizou2007

ça marche toujours pas.
Je pense que je vais abondonner le filtrage par années malheureusement.
:cry: :cry: :cry:

Désolé : De retour encore !
Ce que je n'arrive pas à comprendre est pourquoi je peux filtrer en Access grâce à ma requête "ReqTblCongésAvecAnnéeCessation" selon mes deux critères (Nom et Année) pour obtenir les congés d'une personne dans une année donnée :
Code:

1 2 3 SELECT tblPersonnel.Nom, tblPersonnel.Prénom, tblCongés.*, Year([Date de Cessation]) AS AnnéeCessation FROM tblPersonnel INNER JOIN tblCongés ON tblPersonnel.ID = tblCongés.IDpersonnel WHERE (((tblPersonnel.Nom)=[entrer Nom]) AND ((Year([Date de Cessation]))=[entrer Année]));
Alors que ce n'est pas possible en VB.Net !? L'inverse auraît été acceptable, je pense.
Je me demande si je fais ceci :
Code:

1 2 TblPersonnelDataGridView.DataSource = TblPersonnelBindingSource TblDataGRidView.DataSource = TblPersonnelReqTblCongésAvecAnnéeCessationBindingSource
est ce qu'il n'y aurait pas un moyen de refaire le code SQL d'en haut pour mes ComboBox "cboNom" et "cboAnnée" respectivement ?!!

Quelque chose comme ça par exemple (bien que ça marche pas) :

Code:

1
2
3
4
5
6
7
8
9
10
 Private Sub cboAnnéePriseCongé_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnnéePriseCongé.SelectedIndexChanged
    Dim objDataView As New DataView
    Dim strFiltre
    strFiltre = "Nom = '" & cboNom.Text And "AnnéeCessation = '" & cboAnnéePriseCongé.Text
    With objDataView
         .Table = GRHDataSet1.reqTblCongésAvecNomPrénom
         .RowFilter = strFiltre
    End With
    Me.ReqTblCongésAvecNomPrénomBindingSource.DataSource = objDataView
 End Sub

ça donne des erreurs sur "strFiltre" biensûr !!

18/05/2008, 21h18
Poulain

Quelle est l'erreur exactement?
18/05/2008, 21h58
zizou2007

Salut Grand Poulain.
L'erreur produite est la suivante :

L'exception System.InvalidCastException n'a pas été gérée :
Conversion from string "Nom = 'AAAAA" to type 'Long' is not valid.

Voir 40 message(s) de cette discussion en une page