Bonjour!
Toujours dans mon developpement de mon application,je viens auprès de vous solliciter une aide car je ne comprends plus rien.En effet,j'utilise une base de données access mais les infos saisies ne s'enregistrent plus dans la base.Lorsque je saisie les informations sur mes forms,tout se passe bien et je peux voir même dans le datagrid ce que je viens de saisir.Mais une fois l'application fermée,et lorsque je relance je ne vois plus ce que j'ai saisie.
Alors j'aimerai savoir comment remedier à cette situation.
Merci d'avance pour vos éclaircissements.
Voici mon code pour inserer:
<code>
Private Sub Btn_enrgistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_enregistrer.Click
If txt_cod_cons.Text = "" Or txt_fonction.Text = "" Or cmb_civilite.Text = "" Or txt_nom.Text = "" Or txt_prenom.Text = "" Then
MsgBox("Tous les champs doivent être renseignés", MsgBoxStyle.Information, "Vérification des champs")
Else
Dim NewLigne As DataRow
With DtSet
' Création de la nouvelle ligne
NewLigne = DtSet.Tables("conseiller").NewRow
'affectation des valeurs
NewLigne(1) = txt_cod_cons.Text
NewLigne(0) = DtSet.Tables.Item(0).Rows.Count + 1
NewLigne(2) = txt_fonction.Text
NewLigne(3) = cmb_civilite.Text
NewLigne(4) = txt_nom.Text
NewLigne(5) = txt_prenom.Text
' Ajout de la ligne à la table
.Tables("conseiller").Rows.Add(NewLigne)
Connection.Open()
' Création CommandBuilder
'(genere automatiquement l'update entre le dataSet et la base de donnée
Dim CmdBuild As OleDbCommandBuilder
CmdBuild = New OleDb.OleDbCommandBuilder(AdapTConseiller)
AdapTConseiller.UpdateCommand = CmdBuild.GetUpdateCommand()
AdapTConseiller.Update(DtSet, "conseiller")
Connection.Close()
End With
End If
Btn_nouveau.Visible = True
Btn_enregistrer.Visible = False
Vide_champ()
bloque_ctrls()
End Sub
</code>