25
février
2013
[VB.NET ACCESS] Récupérer le numeroAuto après insertion
février
2013
Un article de alassanediakite
Voici un code vous permettant d’avoir le numéro auto généré par ACCESS lors d’un insertion avec VB.NET. Le problème m’a été soumis par un étudiant ayant cherché en vain une solution avec ADO.NET.
J’ai pas trouvé la solution avec ADO.NET je me suis alors tourné vers DAO.
L’exemple utilise:
- une base « contacts.mdb » contenant une seule table « contact:idc numauto clé, lenom texte, prenom texte »
- un formulaire avec deux textbox « Nom » et « Prenom » plus un bouton
Il vous faut d’abord ajouter la référence « Microsoft Access x.x Object Library »
Le code de l’évènement click du bouton
1 2 3 4 5 6 7 8 9 10 11 | Dim rs As dao.Recordset Dim db As dao.Database Dim moteur As New dao.DBEngine db = moteur.Workspaces(0).OpenDatabase("D:\contacts.mdb", False, False) 'le premier false pour mode partagé et le second pour lecture et écriture rs = db.OpenRecordset("contact", 1) rs.AddNew() rs("lenom").Value = Me.Nom.Text rs("prenom").Value = Me.Prenom.Text MsgBox(rs("idc").Value.ToString) 'réception du numéro auto rs.Update() 'validation vers la base |
Commentaires récents
- dans Personnaliser la connexion d’un projet adp ACCESS
- dans [Bases de données] présentation de SQL
- dans [ACCESS] Numérotation automatique de courriers par an (janvier à décembre)
- dans [ACCESS] Numérotation automatique de courriers par an (janvier à décembre)
- dans [ACCESS] Numérotation automatique de courriers par an (janvier à décembre)