Discussion :

[botanique]

Bonjour,
je suis en train de créer une appli avec des fenêtre MDI pour la gestion d'une base de données. Dans la fenêtre MDI parent, je me connecte à la BDD et je remplis le DataSet. Dans chacune des fenêtres MDI Fille, il y a des controles que je voudrais lier à une dataTable du DataSet de la fenêtre MDI Parent.
Mon problème, c'est que je n'arrive pas à utiliser ce DataSet dans les fenêtres MDI Fille.

Comment faire pour utiliser ce DataSet dans les fenêtres MDI Fille?

Merci pour votre aide.

Botanique

[neguib]

* Expose ton DataSet à l'aide d'un accesseur (ReadOnly Property)
* Toutes les FormFilles concernées doivent avoir un constructeur surchargé qui recevoit en parametre la FormParent
* Dans la FormParent toutes les FormFilles concernées doivent être instanciées avec ce constructeur surchargé ( New FormFille(Me))

[botanique]

Merci pour ta réponse,
étant ébutant, peux-tu m'expliquer un peu plus en détail tes deux premiers points?

Amicalement

Botanique

[neguib]

*1 J'imagine que tu as déclaré dans ta FormParent un Dataset privé DS

Code :

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

1
2
3
4
5
6
7
8
 
Private DS As DataSet
REM: Obtient le DataSet de l'instance FormParent
Public ReadOnly Property DataSet As DataSet
 Get
    Return Me.DS
 End Get
End Property

*2 Chaque FormFille concernée doit avoir un constructeur surchargé recevant l'instance de FormParent

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
 
Public Class FormFille
'...etc...
 Private parent As FormParent
 '...etc...
 REM: Permet d'instancier FormFille
 Public Sub New (ByVal f As FormParent)
    Me.New()
    Me.parent = f
 End Sub
 '...
 REM: maintenant le dataset de FormParent
 REM: est accessible par la FormFille
 'par exemple:
    Dim ds As DataSet = Me.parent.Dataset

[botanique]

En fait, mon DataSet a été créé par le concepteur de VS. Car j'utilise un DataSet fortement typé et je ne sais pas le faire par le code.

La propriété readOnly se déclare dans le FormParent ou dasn le FormFille?

Et le dataset ainsi créé dans le formfille sera-t-il déjà rempli?

Merci de ton aide précieuse.

Botanique

[neguib]

La propriété readOnly se déclare dans le FormParent ou dasn le FormFille?

Relis attentivement le 1* stp

Et le dataset ainsi créé dans la Formfille sera-t-il déjà rempli?

Tu veux dire récupéré par FormFille en l'attribuant à une variable locale. Ben il sera egal à celui de FormParent donc celà dépends si celui de FormParent a eu le temps d'être rempli.
Si tu as correctement conçu ton appli, tu as accedé à tes données à l'ouverture de l'appli afin d'avoir les données en cache (une fois pour toute) avant d'afficher quoi que ce soit Non :

[botanique]

Excuse moi d'être aussi bête.

Par contre, j'ai fait comme tu m'as dis, mais j'ai une erreur au niveau de l'écriture : = Me.parent.dataset

il me dit que dataset n'est pas un control de parent. C'est pour ça que je voulais être sûr que j'avais déclaré la propriété au bon endroit.

Oui, je voulais bien dire récupéré. A partir de cette récupération, je pourrai modifier le dataset? Je pense que non puisque la propriété sera à ReadOnly.

Je sais que je peux être pénible, mais c'est la première fois que je fais un accesseur alors je veux comprendre le pourquoi du comment.

Merci de ta patience.

Botanique

[neguib]

Montre moi le code que tu as fait on va verifier en direct c'est mieux

[botanique]

Voici l'accesseur que j'ai créé :

'Obtient le DataSet de l'instance FormParent
Public Property DataSet() As DataSet
Get
Return Me.DtsHerbier1
End Get

Set(ByVal Value As DataSet)
Me.DtsHerbier1 = Value
End Set
End Property

Je l'ai mis dans la fromParent après la code généré par le concepteur Windows Form où DtsHerbier1 est déclaré en private.

Puis dans la form fille, j'ai suchargé le constructeur Windows Form:

Public Sub New(ByVal f As Form1)
MyBase.New()
Me.Parent = f

'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()

'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

End Sub

Dans La form parent (Form1), j'ai instancé la from fille comme tu me l'as précisé :

Private Sub MenuTaxon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTaxon.Click

Dim FrmAjoutTaxon As New AjoutTaxon(Me)

'Déclaration de la fenêtre parent
'FrmAjoutTaxon.MdiParent = Me
'Affiche la fenêtre fille
FrmAjoutTaxon.Show()


End Sub

Enfin, dans la fenêtre fille, j'ai déclaré le DataSet ds dans la procédure load de cette fenêtre :

Dim ds As DataSet = Me.Parent.dataset

Et c'est là qu'il me dit que dataset n'est pas un control de parent.

Merci pour ton aide.

Botanique

[Cyrilange]

Pourquoi ne pas passer le dataset ou un dataview en paramètre à ton MdiChild en utilisant le constructeur ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Sub New(ds as dataset)
        MyBase.New()
 
        'Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
 
End Sub

ensuite tu retournes le dataset modifié au MdiParent et tu fais un ParentDS.merge(ChildDS).

[neguib]

ok la confusion vient du mot 'Parent' qui est déjà une propriété native de la Form
Donc dans les FormFilles n'oublie pas de declarer une variable privée disons appelée 'ParentForm' et c'est à elle que tu attribue 'f' ensuite il suffira d'utiliser ParentForm.DataSet

Sinon la remarque de Cyrilange est judicieuse si tu n'as besoin que de manipuler la DataSet (et rien d'autre) de la FormParent, autant en effet ne transmettre que directement l'instance de la Dataset, dans ce cas il te suffit de modifier le constructeur surchargé pour qu'il attende en paramètre un DataSet au lieu d'une Form

[botanique]

Oui, c'est une bonne idée, je n'y avais pas pensé.

Mais je me heurte alors à un autre problème : les combobox ne se remplissent pas.

Donc pour tester, j'ai crée un bouton test qui doit m'afficher "ok" dans une MessageBox lorsque je clique dessus. Mais lorsque je clique dessus, rien ne se passe.

As-tu une idée?

Et je pense que c'est pour ça que mes combo ne se remplissent pas avec les tables que je leur attribue quand le formulaire se charge.


Merci beaucoup pour ton aide, sans toi, je galèrerais encore plus.

Botanique

[neguib]

et comment procedes-tu pour le binding de ta combo ?
et cette fois n'oublies pas sinon je ne prendrais pas le temps de repondre

[botanique]

Excuse moi pour les balises, je pensais qu'une fois dans le titre du message elle réapparaissait après. Je n'oublirai plus maintenant.

Avant, voici comment j'ai instauré la formfille :

Dim DtSt as DataSet
Public Sub New(ByVal F As Form1, ByVal DS As DataSet)
MyBase.New()
DtSt = DS
Me.Parent = F
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()

'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

End Sub

Puis, dans la prcédure de chargement de la formfille voici comment j'ai réaliser le binding :
Me.ComboboxAjoutFam.datasource = DS.Tables("Table_famille")
Me.ComboBoxAjoutFam.Displaymember = "Famille"
Me.comboBox.ValueMember = "Famille"

Voilà,

merci de ton aide.

[Wyatan]

Tu vas te faire gronder !

Les balises "code" se mettent dans le corps de ton message, pour encadrer le code, justement.
Tu dois écrire [ code ]// je tape mon code ici[ /code ] (sans les espaces) pour obtenir ceci :

Code :

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

// je tape mon code ici

(le bouton "éditer" te permettra de corriger ton message )

[botanique]

Excuse moi pour les balises, je pensais qu'une fois dans le titre du message elle réapparaissait après. Je n'oublirai plus maintenant.

Avant, voici comment j'ai instauré la formfille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
//Dim DtSt as DataSet 
Public Sub New(ByVal F As Form1, ByVal DS As DataSet) 
MyBase.New() 
DtSt = DS 
Me.Parent = F 
'Cet appel est requis par le Concepteur Windows Form. 
InitializeComponent() 
 
'Ajoutez une initialisation quelconque après l'appel InitializeComponent() 
 
End Sub

Puis, dans la prcédure de chargement de la formfille voici comment j'ai réaliser le binding :

Code :

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

1
2
3
Me.ComboboxAjoutFam.datasource = DS.Tables("Table_famille") 
Me.ComboBoxAjoutFam.Displaymember = "Famille" 
Me.comboBox.ValueMember = "Famille"

Voilà, merci de ton aide pour corriger mon erreur.

Je ferai attention maintenant[/code]

[neguib]

Merci Wyatan j'espère que notre collègue va enfin piger
Bon Botanique je te fais une fleur mais en abuses pas

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
23
24
25
 
Public Class MaFormFille
  Inherits System.Windows.Forms.Form
 
  Private WithEvents DtSt As DataSet
 
  Public Sub New()
   MyBase.New()
   'Cet appel est requis par le Concepteur Windows Form.
   InitializeComponent()
   'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
  End Sub
  Public Sub New(ByVal DS As DataSet)
   Me.New()
   Me.DtSt = DS
   Me.InitCombo()
  End Sub
  '...etc...
  Private Sub InitCombo()
   Me.ComboboxAjoutFam.datasource = Me.DS.Tables("Table_famille") 
   Me.ComboBoxAjoutFam.Displaymember = "Famille" 
   Me.comboBox.ValueMember = "Famille"
  End Sub
  '...etc...
End Class

Ceci ne fonctionnera qu'à la condition que le DataSet de FormParent soit déjà rempli avant tout affichage d'une fenêtre fille
Exemple

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
 
Public Class MaFormParent
 Public Sub New()
  Inherits System.Windows.Forms.Form
 
  Private WithEvents MonDataSet As DataSet
 
  Public Sub New()
   MyBase.New()
   'Cet appel est requis par le Concepteur Windows Form.
   InitializeComponent()
   Me.InitData()
  End Sub
  '...etc..
  Private Sub InitData()
    'code qui instancie et rempli MonDataSet
  End Sub

[botanique]

Ok, maintenant j'ai bien compris et ça marche

Merci beaucoup à vous deux.

De plus, j'ai bien retenu la leçon et je ne n'oublierai plus en ce qui concerne les balise.



Encore une fois merci à vous pour votre précieuse aide.

Botanique

[Cyrilange]

Excuse moi pour les balises, je pensais qu'une fois dans le titre du message elle réapparaissait après. Je n'oublirai plus maintenant.

Avant, voici comment j'ai instauré la formfille :

Dim DtSt as DataSet
Public Sub New(ByVal F As Form1, ByVal DS As DataSet)
MyBase.New()
DtSt = DS
Me.Parent = F
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()

'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

End Sub

Puis, dans la prcédure de chargement de la formfille voici comment j'ai réaliser le binding :
Me.ComboboxAjoutFam.datasource = DS.Tables("Table_famille")
Me.ComboBoxAjoutFam.Displaymember = "Famille"
Me.comboBox.ValueMember = "Famille"

Voilà,

merci de ton aide.

Essayes plutôt de faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim DtSt as New DataSet
 Public Sub New(ByVal DS As DataSet)
        MyBase.New()
        DtSt.Merge(DS)
 
        'Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
 
    End Sub

J'ai enlevé le Me.parent=F parce que je pense qu'il vaut mieux précisé ça quand tu appelles ta ChildForm depuis ta MdiForm :

Code :

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

1
2
3
4
 
Dim ChildForm as new Form1
ChildForm.Parent=Me
ChildForm.Show(DS)

[botanique]

Ok, je vais changer le code avec ta proposition. Il est vrai que dans un tutoriel, le parent est précié à l'appel de la fenêtre fille.

Merci beaucoup.

Botanique