none
programmer les boutons ajouter ,supprimer,modifier,premier...

Answers

  • Bonjour,

     

    Vous pourrez utiliser le bindingnavigator qui remplace tout les boutons que vous avez créé:

    http://msdn.microsoft.com/fr-fr/library/8zhc8d2f(v=vs.80).aspx

     

    et si vous tenez a votre interface Je vous met sur les rails avec le code du bouton ajouter et je vous laisse le soin de faire un effort pour les autres boutons 

     

     

     Dim con As oledb.oledbConnection = New oledb.oledbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=votre base")
    
     Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
            
              cmd = New Oledb.OledbCommand("Insert Into tatable(nom,categorie) Values(@nom,@categorie)", con)
         cmd.Parameters.Add("@nom", OleDbType.NVarChar)
                cmd.Parameters.Add("@categorie", OleDbType.NVarChar)
                cmd.Parameters("@nom").Value = txtnom.Text
                cmd.Parameters("@PassDonne").Value = txtcategorie.Text
    con.open()
    
            cmd.ExecuteNonQuery()
            ShowData()
    
        End Sub
    
        Public Sub ShowData()
            cmd = New Oledb.OledbCommand("Select * FROM  tatable", con)
             con.Open()
            myDA = New Oledb.OledbDataAdapter(cmd)
            myDataSet = New DataSet()
            myDA.Fill(myDataSet)
            DataGridView1.DataSource = myDataSet.Tables(0).DefaultView
        End Sub
    
    
    

     


    la méthode showdata vous pourrez l'utiliser a chaque fois que vous modfiez la base (suppression,mise a jour etc)

     

     


    Best Regards...Please mark as answer if my post is helpful
    • Edited by YosrJ Saturday, September 17, 2011 8:20 AM
    • Proposed as answer by Ciprian Duduiala Monday, September 19, 2011 6:38 AM
    • Marked as answer by TroxsaEditor Wednesday, September 21, 2011 8:02 AM
    Saturday, September 17, 2011 8:18 AM

All replies



  • EN VB 2008,pour que les enregistrements s'ajoute ,se supprime  dans le datagridview,et base des données en access

     

    Friday, September 16, 2011 10:25 AM
  • Bonjour,

    Pour devenir un développeur, il faut essayer de coder et après cent, mille essais, on devient chevroné.

    quand vous avez un problème que vous n'arrivez pas à résoudre, alors il est conseillé de sélectionner le control ou le mot clef que l'on ne connait pas et d'appuyer sur la touche F1 pour avoir de l'aide

    Vous aurez ainsi une explication et un exemple qu'il est beaucoup plus facile d'adapter si on est devant une feuille blanche.

    Donc en sélectionnant un datagridview sur ma Form1 puis en tapant sur F1, j'arrive sur

    http://msdn.microsoft.com/fr-fr/library/wc5cbb9z.aspx

    et là, j'ai un magnifique exemple de datagridview qui montre comment ajouter, supprimer

    Donc il suffit de l'adapter à votre exemple.


    fred
    Friday, September 16, 2011 5:23 PM
  • Bonjour,

     

    Vous pourrez utiliser le bindingnavigator qui remplace tout les boutons que vous avez créé:

    http://msdn.microsoft.com/fr-fr/library/8zhc8d2f(v=vs.80).aspx

     

    et si vous tenez a votre interface Je vous met sur les rails avec le code du bouton ajouter et je vous laisse le soin de faire un effort pour les autres boutons 

     

     

     Dim con As oledb.oledbConnection = New oledb.oledbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=votre base")
    
     Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
            
              cmd = New Oledb.OledbCommand("Insert Into tatable(nom,categorie) Values(@nom,@categorie)", con)
         cmd.Parameters.Add("@nom", OleDbType.NVarChar)
                cmd.Parameters.Add("@categorie", OleDbType.NVarChar)
                cmd.Parameters("@nom").Value = txtnom.Text
                cmd.Parameters("@PassDonne").Value = txtcategorie.Text
    con.open()
    
            cmd.ExecuteNonQuery()
            ShowData()
    
        End Sub
    
        Public Sub ShowData()
            cmd = New Oledb.OledbCommand("Select * FROM  tatable", con)
             con.Open()
            myDA = New Oledb.OledbDataAdapter(cmd)
            myDataSet = New DataSet()
            myDA.Fill(myDataSet)
            DataGridView1.DataSource = myDataSet.Tables(0).DefaultView
        End Sub
    
    
    

     


    la méthode showdata vous pourrez l'utiliser a chaque fois que vous modfiez la base (suppression,mise a jour etc)

     

     


    Best Regards...Please mark as answer if my post is helpful
    • Edited by YosrJ Saturday, September 17, 2011 8:20 AM
    • Proposed as answer by Ciprian Duduiala Monday, September 19, 2011 6:38 AM
    • Marked as answer by TroxsaEditor Wednesday, September 21, 2011 8:02 AM
    Saturday, September 17, 2011 8:18 AM
  • Bonjour, Bepoukas,

    Est-ce que vous avez testé les solutions proposées ? Merci de partager avec nous les résultats, afin que d'autres personnes avec le même problème puissent profiter de cette solution.

     

    Cordialement,

    Cipri


    Suivez MSDN sur Twitter   Suivez MSDN sur Facebook


    Ciprian DUDUIALA, MSFT  
    •Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

    Monday, September 19, 2011 6:38 AM