30-06-2011, 11:03 AM
Comment utiliser la commande HCopieEnreg() en conservant l`identifiant automatique ?
Code :
//Exemple avec le fichier CATEGORIE
sReq = "SELECT * FROM Categorie"
SI PAS HExecuteRequêteSQL("REQ",hRequêteDefaut, sReq) ALORS Erreur(HErreurInfo())
HLitPremier(REQ)
TANTQUE PAS HEnDehors(REQ)
SI PAS HCopieEnreg(Categorie_Local,REQ,hCopieIdAuto) ALORS Erreur(HErreurInfo())
SI PAS HAjoute(Categorie_Local,hFixeIdAuto) ALORS Erreur(HErreurInfo())
Multitâche(-1)
HLitSuivant(REQ)
FIN
HAnnuleDeclaration(REQ)