PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Problème code suppression enregistrement
Problème code suppression enregistrement
Iniciado por viog, 25,jun. 2019 09:52 - 3 respuestas
Publicado el 25,junio 2019 - 09:52
Bonjour,

Je me permet de poster ici car je ne comprends pas ce qui ne va pas dans mon code :
J'essaie de supprimer un enregistrement en le sélectionnant dans une liste.
Le voici :

J'ai testé, il trouve bien l'enregistrement en question mais celui-ci ne se supprime pas.
Il faut savoir que j'essaie de supprimer l'enregistrement d'une table association.

Merci d'avance !

Le code :

QuestionR est une chaîne
QuestionR = LISTE_Questions[LISTE_Questions]
//On récupère la valeur de la ligne sélectionnée (un intitulé)

//On récupère la question liée à l'intitulé
HExécuteRequête(REQ_ChercheQuestionAvecQuestionFR,hRequêteDéfaut,QuestionR)
SI HNbEnr(REQ_ChercheQuestionAvecQuestionFR) <> 0 ALORS
SI OuiNon("Etes vous sûr de vouloir supprimer la question du questionnaire ?") ALORS

HLitPremier(REQ_ChercheQuestionAvecQuestionFR) //On supprime la question dan

HExécuteRequête(REQ_ChercheQuestionDansQuestionnaire,hRequêteDéfaut,gsIDQuestionnaire,REQ_ChercheQuestionAvecQuestionFR.IDQuestion)
SI HNbEnr(REQ_ChercheQuestionDansQuestionnaire) <> 0 ALORS
HLitPremier(REQ_ChercheQuestionDansQuestionnaire)
HSupprime(REQ_ChercheQuestionDansQuestionnaire,hNumEnrEnCours,hIgnoreIntégrité)
FIN

charge_questions()
FIN
SINON
Erreur("Erreur dans les données.")
FIN
Miembro registrado
1.640 mensajes
Publicado el 25,junio 2019 - 10:23
Hello

Le problème vient du paramètre hRequêteDéfaut je pense dans ton HExécuteRequête
Il faut mettre hModifieFichier et ça devrait passer.
Miembro registrado
299 mensajes
Publicado el 25,junio 2019 - 10:27
On ne voit pas les critères de recherche d'enregistrement mais je pense que vous pouvez faire plus simple avec une requete SQL

LC_SQL = "Delete from QuestionAvecQuestionFR where critères de REQ_ChercheQuestionAvecQuestionFR
HexecuterequeteSQL(LC_SQL)

LC_SQL = "Delete from QuestionDansQuestionnaire where critères de REQ_ChercheQuestionDansQuestionnaire
HexecuterequeteSQL(LC_SQL)


Soit 4 lignes en tout et si il y a une relation entre les 2 tables supprimer la table enfant avant la table parent.
Publicado el 25,junio 2019 - 10:30
Ça marche, merci beaucoup !