HExtraitMémo (Exemple)

DOCUMENTATION EN LIGNE
DE WINDEV, WEBDEV ET WINDEV MOBILE

Version :

Accueil | Connexion | Français

Aide / WLangage / Gestion des bases de données / HFSQL / Fonctions HFSQL

Exemple : Extraire l'image d'un produit (syntaxe 1)
Exemple : Extraire l'image d'un produit (syntaxe 2)

HExtraitMémo (Exemple)

Voir la page d'aide associée

Exemple : Extraire l'image d'un produit (syntaxe 1)

Cet exemple est une procédure permettant d'extraire pour l'enregistrement en cours l'image du produit associé.

PROCÉDURE bExtraitProduit(sNomProduit)

SI HLitRecherchePremier(PRODUIT, sNomProduit) = Vrai ALORS
// Photo du produit
SI HExtraitMémo(SQLLitMémo("MaRequete", 2), "Produit.BMP") = Faux ALORS
RENVOYER Faux
FIN
FIN
RENVOYER Vrai

Exemple : Extraire l'image d'un produit (syntaxe 2)

Cet exemple est une procédure permettant d'extraire pour l'enregistrement en cours, le fichier associé à la rubrique mémo PHOTO.
Le fichier est récupéré avec son nom d'origine, dans le répertoire temporaire en cours.

PROCÉDURE bExtraitProduit(sNomProduit, sNomFichier est une chaîne)

SI HLitRecherchePremier(PRODUIT, sNomProduit) = Vrai ALORS
// Photo du produit
sInfoMemo est une chaîne
sInfoMemo = HInfoMémo(PRODUIT, PHOTO)
SI sInfoMemo = "" ALORS
RENVOYER Faux // pas de fichier dans le mémo
SINON
// Récupère le nom du fichier original du mémo (sans le chemin)
// avec le répertoire temporaire
sNomFichier est une chaîne
sNomFichier = fRépertoireTemp()+["\"] + ...
fExtraitChemin(ExtraitChaîne(sInfoMemo, 2, TAB), ...
fFichier + fExtension)

SI HExtraitMémo(PRODUIT, PHOTO, sNomFichier) = Faux ALORS
RENVOYER Faux
FIN

FIN
FIN
RENVOYER Vrai

Version minimum requise

Version 9

Documentation également disponible pour…

Commentaires

Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale