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

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

Answer 1

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#

Answer 2

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