Supprimer un enregistrement dans une bd access avec DAO/Access

Question

Bonjour tout le monde,


J'aimerais supprimer un enregistrement de ma base de données.


Pour cela, j'utilise ce code :

Code  :
PrivateSub commandSupprimerUneRecette_Click(Index AsInteger)
Dim ASupprimer, Prochain AsVariant
Dim rsSuppression As Recordset
Set rsSuppression = BDOuvrirTable("SELECT * FROM recette")
    ASupprimer = rsSuppression.Bookmark
    rsSuppression.MoveNext
    Prochain = rsSuppression.Bookmark
    rsSuppression.Bookmark = ASupprimer
    rsSuppression.Delete
    rsSuppression.Bookmark = Prochain
 
    RemplirListeRecettes 'j'appelle RemplirListeRecettes pour faire un refresh de la liste des recettes

EndSub

Le problème, c'est que rien ne s'efface.


Voici le code pour l'ouverture de la table :

Code  :
PublicFunction BDOuvrirTable(ByVal NomTable AsString, OptionalByVal LectureSeule AsBoolean = False)As Recordset
Set BDOuvrirTable = BD.OpenRecordset(NomTable, IIf(LectureSeule, dbOpenSnapshot, dbOpenDynaset))
EndFunction

Je mets bien sûr "lecture seule" à faux (en ne passant aucun paramètre, il prend par défaut false).


J'utilise DAO avec VB6 et Access.


Sauriez-vous aussi me dire si il est possible dans la fenêtre d'exécution (déboguage) de connaître la valeur de BDOuvrirTable  ?


Merci d'avance pour l'aide.


beegees

LIBRE_MAX · Answer

Bonjour, Pourquoi ne pas y aller franchement ? De toute façon ,dans le cas de Delete ton recordset doit être Dynamique. Set rsSuppression== BD.OpenRecordset("SELECT * FROM recette",dbOpenDynaset) Mais un recordset qui est égal à un autre, jamais vu !

[] Ce qui va sans dire. va mieux en le disant.

Renfield · Answer

BD.Execute "DELETE FROM `recette`"

Supprimer un enregistrement dans une bd access avec DAO/Access

2 réponses

Votre réponse

Discussions similaires