////INSERTION BLOB
HOuvreConnexion(MaConnexionpower8)
IdLast est un entier
schaine est une chaîne
Marequete est une Source de Données
ASExec("ADDLIBLE CED5")
xes est un Buffer
xes = fChargeBuffer("c:\temp\capture.gif")
schaine="INSERT INTO CEDBLO2(nom,photo) VALUES(:nom,:photo)"
SI PAS HPrépareRequêteSQL(Marequete,MaConnexionpower8,hRequêteSansCorrection,schaine) ALORS
Erreur(HErreurInfo())
FIN
Marequete.nom = "aura"
Marequete.photo = xes
QUAND EXCEPTION DANS
SQLTransaction(sqlDébut,MaConnexionpower8)
SI PAS HExécuteRequêteSQL(Marequete) ALORS
Info(HErreurInfo())
FIN
SQLTransaction(sqlFin,MaConnexionpower8)
SI HLitDernier(Cedblo2, Id) ALORS
IdLast = Cedblo2.Id
Info(IdLast)
SINON
Info("Fichier non trouvé " + ErreurInfo())
FIN
FAIRE
SQLTransaction(sqlAnnule, MaConnexionpower8)
FIN