Discussion :

[ibrahima lamine]

bonsoir à tous
voila je debute en vb.net, j'ai une base access avec 2 table Epouse et Enfant que j'essais d'alimenter via vb.net
avec la table Epouse je n'ai pas de probleme
pour alimenter la table Enfant j'ai utilisé un combobox qui me permet de recuperer le numero Epouse qui est une clé etrangére pour la table Enfant.
pour charger le combobox j'utilise ce code

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
Dim chaineSql As String
        chaineSql = "SELECT NumEpouse FROM Epouse
 
        objetCommand.CommandText = chaineSql
        objetCommand.CommandType = CommandType.Text
        'objetConnection.ConnectionString = StrConn
 
 
        Dim reader As System.Data.OleDb.OleDbDataReader
        reader = objetCommand.ExecuteReader
        CbEpouse.Items.Clear()
        If reader.HasRows Then
            While reader.Read()
                CbEpouse.Items.Add(reader.GetValue(0))
 
            End While
        End If

tout se passe comme prevu
Mais quand j'essai d'ajouter un nouvel Enfant tout en choisissant un element du combobox comme numero Epouse, voici message d'erreur que vb me retourne:

Le champ 'NomEpouse ne peut pas contenir une valeur null car la propriete required pour ce champ est true. Saisissez une valeur dans ce champ.

je me sens perdu, s'il vous plais si quelqu'un a une idee

[WOLO Laurent]

Oui, mais tu ne montres que la façon dont tu charges ta combo mais pas comment tu fais ton insert dans la table enfant.

[ibrahima lamine]

Voici le code que j'utilise pour alimenter la table Enfant

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
26
27
28
29
30
Private Sub BtnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnValider.Click
        objetDataRow = objetDataSet.Tables("Enfant").NewRow
        objetDataRow("NumEnfant") = Me.TxtNumEnfant.Text
        objetDataRow("Nom") = Me.TxNomt.Text
        objetDataRow("Prenom") = Me.TxtPrenom.Text
        objetDataRow("DateNaissance") = Me.TxtDateNaiss.Text
        objetDataRow("LieuNaissance") = Me.TxtLieuNaissance.Text
        objetDataRow("NumEpouse") = Me.CbEpouse.Text
        objetDataSet.Tables("Enfant").Rows.Add(objetDataRow)
        'pr modifier les valeurs changer ds le dataAdapter
        cmdb = New OleDbCommandBuilder(objetDataAdapter)
        'Mise a jour
        Try
            objetDataAdapter.Update(objetDataSet, "Enfant")
            'on vide le dataset
            objetDataSet.Clear()
            'on le recharge de nouveau
            objetDataAdapter.Fill(objetDataSet, "Enfant")
            objetDataTable = objetDataSet.Tables("Enfant")
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
 
    End Sub
 
    Private Sub TxtNumEpoused_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub

je me sens perdu, s'il vous plais si quelqu'un a une idee

[alex61]

si j'ai bien compris tu veut que tout les occurrence de tes table soit placer dans tes combobox ?

si c'est le ca , il te sufift de lié une source donné sur ta combobox

c'est la solution la plus simple a mettre en place