none
Insertion et Suppression d'une ligne dans une base de donnée access (Application Windows) RRS feed

  • Question

  • Bonjour Tout le monde J'ai vrai problème. 
    Je cherche un moyen d'inserer les valeurs que j'ai saisi dans mon datagrid dans ma base donnée access
    que j'ai désigné comme source de donnée. 

    voila le code qui me permet d'insérer une nouvelle ligne dans le datagrid

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Dim lign As DataRow = BdvDataSet.etudiant.NewRow


            Dim v As String
            Dim w As String
            Dim a As String
            Dim b As String
            Dim c As String
            Dim d As String
            Dim m As String
            Dim o As String
            Dim p As String
            Dim q As String
            Dim r As String


            v = InputBox("N° de l'étudiant", , )
            w = InputBox("Prenom de l'étudiant", , )
            a = InputBox("Nom de l'étudiant", , )
            b = InputBox("Sexe de l'étudiant", , )
            c = InputBox("Adresse de l'étudiant", , )
            d = InputBox("N°téléphonique de l'étudiant", , )
            m = InputBox("Email de l'étudiant", , )
            o = InputBox("Pays de naissance de l'étudiant", , )
            p = InputBox("Nationalité de l'étudiant", , )
            q = InputBox("Date de naissance de l'étudiant", , )
            r = InputBox("Lieu de naissance de l'étudiant", , )
     

            lign(0) = v
            lign(1) = w
            lign(2) = a
            lign(3) = b
            lign(4) = c
            lign(5) = d
            lign(6) = m
            lign(7) = o
            lign(8) = p
            lign(9) = q
            lign(10) = r


            BdvDataSet.etudiant.Rows.Add(lign)
            EtudiantTableAdapter.Update(BdvDataSet)

    End sub  

    c'est le code d'un boutton

    Maintenant jaimerai faire un autre boutton exemple:"enregistrer" pour tout insérer dans ma base
    et "supprimer" une ligne et du datagrid et de la base. Je fais une application windows et je n'utilise pa le mode console.

    je débute juste en vb.net , j'ai besoin d'aide, est que quelqu'un aurait une idée ou meme un code pour activer de tels boutons?

    merci




    vendredi 31 juillet 2009 08:42

Réponses

  • Bonjour,

    Le plus simple est d'utiliser un BindingNavigator.
    Sinon, recherchez sur internet des exemples d'utilisation du contrôle DataGridView.

    Cordialement
    Gilles TOURREAU - MVP C#
    dimanche 9 août 2009 13:16
    Modérateur

Toutes les réponses

  • Bonjour,

    Le plus simple est d'utiliser un BindingNavigator.
    Sinon, recherchez sur internet des exemples d'utilisation du contrôle DataGridView.

    Cordialement
    Gilles TOURREAU - MVP C#
    dimanche 9 août 2009 13:16
    Modérateur
  • bjr excuse moi j'ai ne pas compris ta question mais il y a plusieurs façon de travailler sur datagrid

    - comme créer une Bdd exemple avaec access et inserer dans Vb avec biensur un navigator ou les contôles Bnt

    mais l'insertion avec des boutons tu as la possibilité même avec la Méthode ADO,DAO ou SQL et en mettant le datagrid par recordset tu peut appeler ta bdd

    et il faut savoir que avec ADODB c'est une connection avec DSN ( data source name) donc créer un odbc pour la connexion

    bon voila une ligne avec ADODB comme Bdd crée avec Access

    ---------------------------------------------------------------------

    option compare Database

    Dim db As New ADODB.connection
    Dim rs As New ADODB.recordset
    Dim Sql,Id


    Private Sub BntEnregis_Click()

    Sql="Select * Form EtudiantTableAdapter"
    rs.Open "EtudiantTableAdapter", CurrentProject.Connection, adOpenKeyset, adLockOptimistic    ' ici vous mettez votre table
    rs.AddNew
    '
    ' A la première colonne apres rs qui le recordset metter votre nom du champ et a la 2ème colonnes le nom du control txt...

    rs!num_edut = N° de l'étudiant
    rs!Pren_Etud = Prenom de l'étudiant
    rs!Nom_etud = Nom de l'étudiant
    rs!Sex_etud= Sexe de l'étudiant
    rs.Update

    MsgBox "Enregistrement validé", , ""

    ' Bon je me limite la mais vous pouvez continuer pour les autres lignes
    ' la ligne suivante ce pour effacer les controles texte après l'enregistrement 

    N° de l'étudiant =""
    Prenom de l'étudiant=""
    Nom de l'étudiant=""
    Sexe de l'étudiant=""

    N° de l'étudiant.SetFocus
    rs.Close
    Set rs = Nothing

    End Sub



    -----------------------

    Private Sub Form_Load()
    Set rs = Nothing
    id = "Table_Etudiant"
    db.Open id

    End Sub


    X-ML
    mercredi 16 septembre 2009 11:40