Exemple d'utilisation de la commande HExtraitMemo

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

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

PROCEDURE bExtraitProduit ( sNomProduit )

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

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

PROCEDURE bExtraitProduit ( sNomProduit )

SI HLitRecherchePremier ( PRODUIT , sNomProduit ) ALORS
    / / photo du produit
    SI PAS HExtraitMémo ( PRODUIT , PHOTO ) ALORS
       RENVOYER Faux
    FIN
FIN
RENVOYER Vrai