1. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

DEMANDE Problème dans la requête update(sqlexec)

Discussion dans 'Windev' créé par elghyati, Jan 26, 2021.

  1. elghyati

    elghyati Member

    Inscrit:
    Jan 2, 2018
    Messages:
    56
    J'aime reçus:
    7
    Bonjour
    Je dois récupérer des informations du fichier utilisateur d'une base en ligne vers un fichier client d'une base local , et après l'insertion dans le fichier local je dois modifier un champs dans le fichier utilisateur dans la bas en ligne.voilà le mon code .
    [windev]PROCEDURE p_imp()
    scdcl est une chaîne
    sCOMPTCLI est une chaîne
    semail est une chaîne
    sid est un entier =1
    sWCompt est un entier
    NumConnexionTh est un entier
    ch,ch2 sont des chaînes

    NumConnexionTh =SQLConnecte(Serveur, User,Pass,Bd, "HFSQLCS")
    SI NumConnexionTh <>0 ALORS //
    ch =[
    SELECT Utilisateur.IDUtilisateur,Utilisateur.childFirstName, Utilisateur.childLastName,Utilisateur.phone,Utilisateur.grade,Utilisateur.Matricule
    FROM Utilisateur WHERE Utilisateur.estNouveau = 1
    ]
    ch2 =[
    UPDATE Utilisateur SET Utilisateur.estNouveau = 0 WHERE Utilisateur.IDUtilisateur =%1
    ]

    SI PAS SQLExec(ch,"LaReq") ALORS
    Erreur(HErreurInfo())
    SINON
    SQLPremier("LaReq")
    TANTQUE PAS SQL.EnDehors
    semail = SansEspace(SQLCol("LaReq",6))
    sid = SQLCol("LaReq",1)
    SI semail<>"" ALORS
    HExécuteRequêteSQL(req,hRequêteDéfaut,"SELECT * FROM CLIENT WHERE EMAIL='"+semail+"'")
    HLitPremier(req)
    SI PAS HTrouve(req) ALORS
    HRAZ(CLIENT)
    scdcl = Complète(G_CodeSalon,:relievedface:+NumériqueVersChaîne(sWCompt,"05d")
    sCOMPTCLI=NumériqueVersChaîne(sWCompt,"05d")
    CLIENT.CodeCLI = scdcl
    CLIENT.ComptCli = sCOMPTCLI
    CLIENT.DateCarte = DateSys()
    CLIENT.Point = G_CodeSalon
    CLIENT.Marketing = Vrai
    CLIENT.Supprime = "N"
    CLIENT.CIV = 5
    CLIENT.EMAIL = SQLCol("LaReq",6)
    CLIENT.NOM = SQLCol("LaReq",2)
    CLIENT.Prenom = SQLCol("LaReq",:relievedface:
    SI HAjoute(CLIENT) ALORS // ca marche bien
    ch2 =[
    UPDATE Utilisateur SET Utilisateur.estNouveau = 0 WHERE Utilisateur.IDUtilisateur =%1
    ]
    SI PAS SQLExec(ChaîneConstruit(ch2,sid),"REQ1") ALORS //la requête update n'execute pas
    Info(SQL.Erreur)
    FIN
    //

    FIN

    FIN
    FIN
    SQLSuivant("LaReq")
    FIN
    SQLFerme("LaReq")
    FIN

    // FIN
    SQLFerme("REQ1")

    SINON
    Trace("Echec de la connexion au serveur","Veuillez vérifier vos paramétres")
    FIN
    [/windev]

    dans la procédure tous ils marches bien sauf la requête update n'exécute pas .

    Avez-vous des infos SVP ?
     
    Tags:

Partager cette page

Chargement...