erreur Ajouter des enregistrementsRésolu

Question

Bonjour, j'ai utilise code de l'application Gestion d'une bd access avec ado.net
"http://codes-sources.commentcamarche.net/source/33892-gestion-d-une-bd-access-avec-ado-net"
Modifier  Supprimer  Rechercher des enregistrements ==réussir bien mais j'ai un problème quand Ajouter des enregistrements le champs de numemploye est change automatique mais les autre champs sont (null) 
7	Gates	Bill	          Informaticien
8	Gates	Benjamin   Archéologue
9	Franklin	Benjamin   Politicien
10	Chirac	Jacques	 Politicien
11	Frèreu	Jacques	 Chanteur
12	Chirac	Bernadette Glandeuse
13	Professeur	Allan	         Archéologue
14	Pagny	Florent	Chanteur
15	(null)	       (null)	        (null)
16	(null) 	(null) 	(null)

aminecanarajid · Answer

utiliser Visual Basic 2010 Express

ucfoutu · Answer

Bonjour,
Ah ...
Et- avec quel code (que tu ne montres pas !) as-tu tenté d'ajouter un enregistrement ?
Car c'est bel et bien ce code, dont il s'agit ....

aminecanarajid · Answer

oui oui j'ai tente d'ajouter un enregistrement mais le même probleme
vor le code de form1_load et code de bouton ajouter et valider

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn = "provider = microsoft.ACE.OLEDB.12.0 ; data source = " & Application.StartupPath & "\employés.mdb;"
        cnx = New OleDbConnection
        cnx.ConnectionString = conn
        cnx.Open()

        sql = "select temployés.* from temployés"
        cmd = New OleDbCommand(sql)
        dta = New OleDbDataAdapter(cmd)
        cmd.Connection() = cnx

        dta.Fill(dts, "temployés")
       dtt = dts.Tables("temployés")

        If rownum > dtt.Rows.Count - 1 Then

            btnajou.Enabled = False
            btnenr.Enabled = True
            btnmod.Enabled = False
            btnsup.Enabled = False

            Me.Show()
            Me.txtnom.Focus()

        Else

            Me.txtref.Text = dtt.Rows(rownum).Item("numemployé")
            Me.txtnom.Text = dtt.Rows(rownum).Item("nom")
            Me.txtprenom.Text = dtt.Rows(rownum).Item("prénom")
            Me.txtjob.Text = dtt.Rows(rownum).Item("emploi")

            DataGrid1.SetDataBinding(dts, "temployés")

            btnenr.Enabled = False

        End If

        btnendsearch.Enabled = False
    End Sub




Private Sub btnajou_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnajou.Click

        If btnajou.Text = "Ajouter" Then

            btnp.Enabled = False
            btnprec.Enabled = False
            btnsui.Enabled = False
            btnder.Enabled = False

            btnenr.Enabled = True

            btnmod.Enabled = False

            btnsup.Enabled = False

            Me.txtprenom.Text = ""
            Me.txtnom.Text = ""
            Me.txtjob.Text = ""
   
           Me.btnajou.Text = "Annuler"

        Else

            If rownum > dtt.Rows.Count - 1 Then

                btnenr.Enabled = False
                btnajou.Text = "Ajouter"

            Else

                rownum = 0

                Me.txtnom.Text = dtt.Rows(rownum).Item("nom")
                Me.txtprenom.Text = dtt.Rows(rownum).Item("prénom")
                Me.txtjob.Text = dtt.Rows(rownum).Item("emploi")
          
                btnenr.Enabled = False
                btnajou.Text = "Ajouter"

                btnp.Enabled = True        'premier
                btnprec.Enabled = True     'précédent
                btnsui.Enabled = True      'suivant
                btnder.Enabled = True      'dernier

                btnmod.Enabled = True

                btnsup.Enabled = True

            End If

        End If
    End Sub


 Private Sub btnenr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenr.Click

        If Me.txtnom.Text = "" Or _
      Me.txtprenom.Text = "" Or _
      Me.txtjob.Text = "" Then

            MessageBox.Show("Vous devez remplir tous les champs !", "Erreur...", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Me.txtnom.Focus()

            Exit Sub

        End If

        dtr = dts.Tables("temployés").NewRow
        Me.txtnom.Text = dtt.Rows(rownum).Item("nom")
        Me.txtprenom.Text = dtt.Rows(rownum).Item("prénom")
        Me.txtjob.Text = dtt.Rows(rownum).Item("emploi")

        dts.Tables("temployés").Rows.Add(dtr)

        cmdb = New OleDbCommandBuilder(dta)

        dta.Update(dts, "temployés")

        dts.Clear()
        dta.Fill(dts, "temployés")
        dtt = dts.Tables("temployés")

        DataGrid1.SetDataBinding(dts, "temployés")

        rownum = 0

        Me.txtnom.Text = dtt.Rows(rownum).Item("nom")
        Me.txtprenom.Text = dtt.Rows(rownum).Item("prénom")
        Me.txtjob.Text = dtt.Rows(rownum).Item("emploi")

        btnp.Enabled = True
        btnprec.Enabled = True
        btnsui.Enabled = True
        btnder.Enabled = True

        btnmod.Enabled = True
        btnsup.Enabled = True

        btnajou.Enabled = True
        btnenr.Enabled = False

        btnajou.Text = "Ajouter"
    End Sub

aminecanarajid · Answer

je connue la problème , désolé ucfoutu pour prendre ton temps ;)

ucfoutu · Answer

Je ne vois dans tout cela aucune commande d'insertion !

un peu de lecture :
http://stepcoder.com/Articles/10018/how-to-insert-record-into-access-database-using-vb-net
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

Erreur Ajouter des enregistrements

5 réponses

Votre réponse

Discussions similaires