Les données de la table access alimenté par des combobox s'ecrase
elmrabti_h
Messages postés3Date d'inscriptionmercredi 9 mars 2005StatutMembreDernière intervention27 février 2013
-
27 févr. 2013 à 18:52
elmrabti_h
Messages postés3Date d'inscriptionmercredi 9 mars 2005StatutMembreDernière intervention27 février 2013
-
27 févr. 2013 à 19:53
Bonjour,
J'ai besoins de votre aide :(, je suis vraiment coincé
je développe une application sous vb express 2008 avec une base access.
j'ai une Form appelé F_fiches qui contient :
* des combobox alimentés à l'aide des tables access 2007.
* Boutton : créer nouvelle fiche et autres...
Au niveau de la Base access :
* les tables qui alimentent les combobox
* Table T_suivi : qui contient tout les champs de la Form F_fiche et qui sera alimenté automatiquement après avoir cliquer sur le bouton créer nouvelle fiche.
les données sont bien enregistrer sur la table T_suivi mais le problème est que a chaque test de l'application les données s’écrase et le champs N° fiche qui est automatique s'est arrêté au numéro 12
ci-dessous le code du clique du bouton btn_ajouter
-------------------------------------------------------------------------
Private Sub btn_ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ajouter.Click
' controle sur les noms des personnes qui doivent pas etre pareille
If cmbbx_formateur1.Text = cmbbx_PFormation.Text Then
MsgBox(" Attention!!, le nom de formateur1 est similaire à celui de la personne en formation, veuillez choisir un autre nom", MsgBoxStyle.Information)
cmbbx_formateur1.Text = ""
cmbbx_formateur1.Focus()
Else
If cmbbx_formateur2.Text = cmbbx_formateur1.Text Then
MsgBox("Attention!!,le nom du formateur 2 est le meme que celui du formateur 1, veuillez choisir un autre nom", MsgBoxStyle.Information)
cmbbx_formateur2.Text = ""
cmbbx_formateur2.Focus()
Else
If cmbbx_formateur2.Text = cmbbx_PFormation.Text Then
MsgBox("Attention!!,le nom du formateur 2 est le meme que celui de la personne en formation, veuillez choisir un autre nom", MsgBoxStyle.Information)
cmbbx_formateur2.Text = ""
cmbbx_formateur2.Focus()
Else
'On crée une connexion
Dim MyConnexion As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= bd_projet.accdb")
'On crée notre commande contenant la requête SQL où l'on selectionne toute la table Table_suivi
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT T_suivi.* FROM T_suivi"
'On crée un DataAdapter (essentiel pour enregistrer notre dataSet dans la bdd)
Dim MyDataAdapter As New OleDbDataAdapter
MyDataAdapter = New OleDbDataAdapter(Mycommand)
Dim MyDataset As New DataSet()
Dim MyDataTable As DataTable
Dim MyDataRow As DataRow
MyConnexion.Open()
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
MyDataAdapter.Fill(MyDataset, "T_suivi")
'On met alors dans un Objet DataTable une table du DataSet
MyDataTable = MyDataset.Tables("T_suivi")
'On crée alors une nouvelle ligne
MyDataRow = MyDataset.Tables("T_suivi").NewRow
'on lui implémente la valeur du champ
MyDataRow("typefiche") = Me.cmbbx_TypeFiche.Text
MyDataRow("ilots") = Me.cmbbx_ilots.Text
MyDataRow("poste") = Me.cmbbx_poste.Text
MyDataRow("personneformation") = Me.cmbbx_PFormation.Text
MyDataRow("formateur1") = Me.cmbbx_formateur1.Text
MyDataRow("formateur2") = Me.cmbbx_formateur2.Text
MyDataRow("DDformation") = Me.dt_DebutFormation.Text
'ici on ajoute une ligne(row) à notre dataset
MyDataset.Tables("T_suivi").Rows.Add(MyDataRow)
'Pour modifier les valeurs changées dans le DataAdapter
Dim MyCommandBuilder As New OleDbCommandBuilder(MyDataAdapter)
'Mise à jour
MyDataAdapter.Update(MyDataset, "T_suivi")
'Et voila notre BDD mise à jour
MsgBox("La nouvelle fiche est bien enregistrer.", MsgBoxStyle.OkOnly)
btn_ajouter.Enabled = False
btn_annuler.Enabled = False
btn_creer.Enabled = True
End If
End If
End If
End Sub
---------------------------------------------------------------------------
Merci de voir svp
A voir également:
Les données de la table access alimenté par des combobox s'ecrase
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 27 févr. 2013 à 19:01
Bonjour,
Update correspond à une mise à jour, par à un ajout (fait, lui, par Insert).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.