Discussion :

[botanique]

Bonjour,

je suis en train de créer une appli qui permette de gérer une BDD Access. cette BDD se compose de 10 tables reliées entre elles.

Lors de l'ouverture de l'appli, je lie cette BDD à un DataSet fortement typé.

Dans le Windows Form, il y a des TextBox lié aux données de la table principale et des Datagrids lié aux tables secondaires car j'ai des relations 1-plusieurs.

Pour la lecture pas de problème. Le problème se pose lorsque je veux remplir cette BDD et que celle-ci est vierge.

Voici la procédure que je suis pour la remplir :
1. Remplissage des données liées à la tables principales
2.Sauvegarde de ces données avec création de la clé primaire
3. Focus sur le datagrid1 et remplissage de celui-ci
4. Perte de focus du datagrid1 et passage au datagrid2. Et c'est à ce moment que le datagrid1 se vide automatiquement sans enregistrer les données.

J'espère que ce que j'ai écris est compréhensible.

Peut-être que j'utilise une mauvaise méthode pour la remplir.
Si quelqu'un peux m'aider à résoudre ce problème de remplissage de la BDD vierge, ce serait sympa.

Merci d'avance.

Botanique

[neguib]

Salut
à toi de nous montrer le code que tu fais pour y parvenir nous verrons ainsi si des erreurs ont été faites

[botanique]

Ok, je suis un peu lent à répondre car je fut en vacances. Voici le code que j'utilise pour créer une nouvelle ligne :
'Affichage du Panel pour l'ajout de nouvelles entrées
Me.PanelNew.Show()
Me.PanelVue.Hide()
'Positionnement de la nouvelle entrée et création de la nouvelle ligne
Vue = CType(BindingContext(Me.DtsTest1, "Table_botanique"), CurrencyManager)
If Me.DtsTest1.Table_botanique.Rows(Me.DtsTest1.Table_botanique.Count - 1).Item("Famille") Is DBNull.Value Then
Vue.Position = Me.DtsTest1.Table_botanique.Count - 1
Else
NewLigne = Me.DtsTest1.Table_botanique.NewRow
NewLigne("NumBota") = Me.DtsTest1.Table_botanique.Count + 1
Me.DtsTest1.Table_botanique.Rows.Add(NewLigne)
Me.OleDbDABotanique.Update(Me.DtsTest1, "Table_botanique")
Vue.Position = Me.DtsTest1.Table_botanique.Count

End If

Ce code marche bien car il me créé les lignes que je veux. Par contre, après, pour les remplir, je n'arrive pas à enregistrer les modifications de cette nouvelle ligne. Voici le code que j'utilise pour enrgistrer :
Me.DtsTest1.Table_botanique.Rows(Vue.Position).Item("Espèce") = Me.TxtBxSp.Text
Me.DtsTest1.EnforceConstraints = False
Me.OleDbDABotanique.Update(Me.DtsTest1, "Table_botanique")
Me.DtsTest1.EnforceConstraints = True

Ce code s'exécute seulement lorsque j'appuye sur un bouton.

Le dataset utilisé est un dataset fortement typé.

J'espère que vous avez assez d'info pour m'aider.

Merci beaucoup.