Delete

Signaler
Messages postés
22
Date d'inscription
dimanche 14 novembre 2010
Statut
Membre
Dernière intervention
26 février 2012
-
Messages postés
12
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
11 avril 2011
-
slt tt le monde!!! j'ai besoin d'aide svp
j'ai un projet de vb/access, lorsque je veux supprimer un enregistrement de ma base de donnés ça engendre un msg d'erreur impossible de supprimer cet enregistrement car une autre table contient des enregistrement connexes!!! je parviens pas à résoudre le pb!!!
aidez moi SVP!!!!

5 réponses

Messages postés
14827
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 octobre 2021
157
Bonjour,

Regardes les relations de ta table, tu as un enregistrements dans une autre table (liée) qui utilises une référence vers l'enregistrement que tu cherches à supprimer.

Mon site
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,

en effet une ou plusieurs clés étrangères de ta table (et donc de ton enregistrement) sont certainement clé primaire d'autres tables. tu dois d'abord supprimer ces autres enregistrements pour pouvoir supprimer "le premier"
[hr]
Messages postés
22
Date d'inscription
dimanche 14 novembre 2010
Statut
Membre
Dernière intervention
26 février 2012

merci!!! j'ai résolu le problème!!!
sVp est ce qu'il y'a quelqu'un qui peut me montrer la syntaxe générale pour la suppression d'un élément sélectionné du combobox dans vb6!!!
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
Private Sub Command1_Click()
    If Combo1.ListIndex = -1 Then
        MsgBox "Aucun item sélectionné"
    Else
        Combo1.RemoveItem (Combo1.ListIndex)
    End If
End Sub
Messages postés
12
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
11 avril 2011

Bjr et voici une solution à ton pb

Private Sub Supprimer_Click()
msql = " DELETE * FROM table WHERE champs='" & Combobox & "'"
MyDB.Execute (msql)
MsgBox "Suppression effectuée avec succès!", vbInformation, "Résultat"
Combobox = ""
End Sub


NB: '" & CbxCodesce & "' cela recupere la valeur se trouvant ds le combobox
Combobox = "" ceci efface le champ selectionné ds le combobox apres la supprission

jesper ke sa t'aidera