Suppresion d'enregistrement ds Access avec VB6

[Résolu]
Signaler
Messages postés
3
Date d'inscription
mercredi 20 décembre 2006
Statut
Membre
Dernière intervention
18 janvier 2007
-
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
-
Bonjour,


J'arrive sans probleme créer des enregistrement dans access, mais comment faire pour les supprimer ensuite. Pour info dans ma table access j'ai créé un colonne "Auto" en NumerotationAuto avec une clef primaire.

Merci pour votre aide
Sébastien


'=========================
'===Creation de la base===
'=========================
Private Sub Command1_Click()


Dim db As Database
Dim rs As Recordset
Dim sql As String


Set db = OpenDatabase(App.Path & "\BDD_97.mdb")


'On séléctionne tous les champs de la table
sql = "select * from Table1"


'on est bien en mode écriture (dbOpenDynaset)
Set rs = db.OpenRecordset(sql, dbOpenDynaset)


'Pour ajouter un enregistrement
rs.AddNew


rs.Fields("Nom") = TxtNom.Text
rs.Fields("Prenom") = TxtPrenom.Text
rs.Fields("Age") = TxtAge.Text


'Une fois les valeurs définies, on met à jour
rs.Update
rs.Close


MsgBox "Création de la Base Réussie", vbInformation, "Enregistrement..."


End Sub

3 réponses

Messages postés
326
Date d'inscription
vendredi 15 avril 2005
Statut
Membre
Dernière intervention
29 avril 2008
2
Salut

bd.Execute "delete * FROM...........
Messages postés
3
Date d'inscription
mercredi 20 décembre 2006
Statut
Membre
Dernière intervention
18 janvier 2007

Ok merci pour ton aide j'arrive a supprimer des enregistrement dans ma bas.
Encore merci
Sébastien
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Tu peux aussi utiliser une requête SQL pour trouver les enregistrements à effacer

En DAOSet Rs Db.OpenRecordset("Select * from MaTable Where Nom '" & text1 & "'")
If Rs.RecordCount > 0 then Rs.Delete

MPi