pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

cdbAjoute (en anglais cdbAdd)

// Ajout d'un enregistrement dans le fichier Client
 cdbEcritCol("MaBase", "Client", "Nom", "Dupont")
cdbEcritCol("MaBase", "Client", "Prénom", "Paul")
cdbEcritCol("MaBase", "Client", "Ville", "Avignon")
ResAjout = cdbAjoute ("MaBase", "Client")
// Problème rencontré ?
SI ResAjout = Faux ALORS Erreur(ErreurInfo())

Début de la page

cdbAjoute (en anglais cdbAdd)

// Base de données standard "Contacts"
// Ajout d'un enregistrement dans le fichier Contacts
 cdbContact. Nom = "Dupont"
 cdbContact. Prénom = "Paul"
 cdbContact. NomAffiché = "Dupont Paul"
 cdbContact. VilleDomicile = "Avignon"
 ResAjout = cdbAjoute ("", cdbContact )
// Problème rencontré ?
SI ResAjout = Faux ALORS Erreur(ErreurInfo())

Début de la page

cdbAnnuleRecherche (en anglais cdbCancelSearch)

// Recherche du premier enregistrement pour lequel le nom du client est Dupont
 ResRecherche = cdbLitRecherche("MaBase","Client","Nom","Dupont")
// Arrêt de la recherche
 cdbAnnuleRecherche ("MaBase","Client")
// Prénom de ce premier client trouvé
 Info("Le prénom de ce client est : "+cdbCol("MaBase", "Client", "Prénom"))

Début de la page

cdbCol (en anglais cdbCol)

// Connaître le nom de la colonne d'indice 2
 ResNom = cdbCol ("MaBase", "Client", 2, cdbNom )
// Afficher le nom renvoyé
 Info("Le nom de la colonne d'indice 2 est : "+ ResNom)

Début de la page

cdbCol (en anglais cdbCol)

// Connaître la valeur de la colonne d'identifiant 3A1601F
 ResValeur = cdbCol ("MaBase", "Client", OX3A16001F, ...
               cdbValeur + cdbParIdentifiant )
// Afficher la valeur renvoyée
 Info("La valeur est : "+ ResValeur)

Début de la page

cdbCol (en anglais cdbCol)

// Connaître le type de la colonne "Société"
 ResType = cdbCol ("MaBase", "Client", "Société", cdbType )
// Afficher la valeur renvoyée
SELON ResType
  CAS hRubBooléen : Info("La rubrique est de type booléen.")
  CAS hRubEntier2 : Info("La rubrique est de type entier sur 2 octets.")
  CAS hRubEntier4 : Info("La rubrique est de type entier sur 4 octets.")
  CAS hRubRéel8 : Info("La rubrique est de type réel.")
  CAS hRubTexte : Info("La rubrique est de type chaîne.")
FIN

Début de la page

cdbDateHeureVersEntier (en anglais cdbDateTimeToInteger)

// Ajout d'un enregistrement dans le fichier Client
 cdbEcritCol("MaBase","Client", "Nom", "Dupont")
cdbEcritCol("MaBase","Client", "Prénom", "Paul")
cdbEcritCol("MaBase","Client", "Ville", "Avignon")

DateInscrit est une DateHeure = "200112311524"
 // Transformation de cette variable
 cdbEcritCol("MaBase","Client", "Inscription", ...
                  cdbDateHeureVersEntier (DateInscrit))
cdbAjoute("MaBase", "Client")

Début de la page

cdbEcritCol (en anglais cdbWriteCol)

// Ajout d'un enregistrement dans le fichier Client
 cdbEcritCol ("MaBase","Client", "Nom", "Dupont")
cdbEcritCol ("MaBase","Client", "Prénom", "Paul")
cdbEcritCol ("MaBase","Client", "Ville", "Avignon")
ResAjout = cdbAjoute("MaBase", "Client")

Début de la page

cdbEnDehors (en anglais cdbOut)

// Lecture du premier enregistrement du fichier Client
 cdbLitPremier("MaBase","Client")
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors ("MaBase","") = Faux
     // Traitement de l'enregistrement
    ...
FIN

Début de la page

cdbEnDehors (en anglais cdbOut)

// Base de données standard "Contacts"
// Lecture du premier enregistrement
 cdbLitPremier("", cdbContact )
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors ("", cdbContact ) = Faux
     // Traitement de l'enregistrement
    ...
FIN

Début de la page

cdbEntierVersDateHeure (en anglais cdbIntegerToDateTime)

// Connaître la date d'inscription présente de la colonne d'indice 2
 ResDate = cdbCol("MaBase", "Client", 2)
// Conversion de la date récupérée
 DateInscrit est un DateHeure = cdbEntierVersDateHeure (ResDate)
 // Formater la date récupérée
 DateInscrit = DateVersChaîne(DateInscrit)
// Afficher la date d'inscription
 Info("La date d'inscription est le : "+ DateInscrit)

Début de la page

cdbFerme (en anglais cdbClose)

// Fermeture de la base de données "MaBase"
 ResFerme = cdbFerme ("MaBase")
// Problème rencontré ?
SI ResFerme = Faux ALORS Erreur(ErreurInfo())

Début de la page

cdbListeFichier (en anglais cdbListFile)

// Connaître la liste des fichiers présents dans
// la base de données "MaBase"
 ResFichier = cdbListeFichier ("MaBase")
// Ajoute la liste des fichiers dans une liste
 ListeAjoute(ListeFichier, ResFichier)

Début de la page

cdbLit (en anglais cdbRead)

// Lecture de l'enregistrement 15
 cdbLit ("MaBase","Client", 15)
// Ajoute le nom du client dans une liste
 ListeAjoute(ListeClient, cdbCol("MaBase", "Client", "Nom"))

Début de la page

cdbLit (en anglais cdbRead)

// Base de données standard "Contacts"
// Lecture de l'enregistrement 15
 cdbLit ("", cdbContact , 15)
// Ajoute le nom du contact dans une liste
 ListeAjoute(ListeClient, cdbContact . Nom )

Début de la page

cdbLitDernier (en anglais cdbReadLast)

// Lecture du dernier enregistrement du fichier Client
 cdbLitDernier("MaBase","Client")
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("MaBase","") = Faux
     // Traitement de l'enregistrement
    cdbLitPrécédent("MaBase","")
    ...
FIN

Début de la page

cdbLitDernier (en anglais cdbReadLast)

// Base de données standard "Contacts"
// Lecture du dernier enregistrement
 cdbLitDernier("", cdbContact )
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("", cdbContact ) = Faux
     // Traitement de l'enregistrement
    cdbLitPrécédent("", cdbContact )
    ...
FIN

Début de la page

cdbLitPrecedent (en anglais cdbReadPrevious)

// Lecture du dernier enregistrement du fichier Client
 cdbLitDernier("MaBase","Client")
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("MaBase","") = Faux
     // Traitement de l'enregistrement
    cdbLitPrécédent ("MaBase","")
    ...
FIN

Début de la page

cdbLitPrecedent (en anglais cdbReadPrevious)

// Base de données standard "Contacts"
// Lecture du dernier enregistrement
 cdbLitDernier("", cdbContact )
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("","") = Faux
     // Traitement de l'enregistrement
    cdbLitPrécédent ("","")
    ...
FIN

Début de la page

cdbLitPremier (en anglais cdbReadFirst)

// Lecture du premier enregistrement du fichier Client
 cdbLitPremier("MaBase","Client")
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("MaBase","") = Faux
     // Traitement de l'enregistrement
    cdbLitSuivant("MaBase","")
    ...
FIN

Début de la page

cdbLitPremier (en anglais cdbReadFirst)

// Base de données standard "Contacts"
// Lecture du premier enregistrement
 cdbLitPremier("", cdbContact )
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("","") = Faux
     // Traitement de l'enregistrement
    cdbLitSuivant("","")
    ...
FIN

Début de la page

cdbLitRecherche (en anglais cdbReadSeek)

// Recherche du premier enregistrement pour lequel le nom du client est Dupont
 ResRecherche = cdbLitRecherche ("MaBase","Client","Nom","Dupont")
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("MaBase","Client") = Faux
     SI ResRecherche = Vrai ALORS Compteur ++
    cdbLitSuivant("MaBase","Client")
FIN
// Nombre d'enregistrements trouvés ?
 Info("Nombre de clients ayant pour nom Dupont : "+Compteur)

Début de la page

cdbLitRecherche (en anglais cdbReadSeek)

// Recherche du premier enregistrement pour lequel
// le nom du client commence par Dupont
 ResRecherche = cdbLitRecherche ("MaBase","Client",7864001F, ...
                      "Dupont", cdbParIdentifiant + cdbCommencePar )
...

Début de la page

cdbLitSuivant (en anglais cdbReadNext)

// Lecture du premier enregistrement du fichier Client
 cdbLitPremier("MaBase","Client")
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("MaBase","") = Faux
     // Traitement de l'enregistrement
    cdbLitSuivant ("MaBase","")
    ...
FIN

Début de la page

cdbLitSuivant (en anglais cdbReadNext)

Base de données standard "Contacts"
// Lecture du premier enregistrement
cdbLitPremier("", cdbContact )
// Enregistrement en dehors du fichier ?
TANTQUE cdbEnDehors("","") = Faux
     // Traitement de l'enregistrement
    cdbLitSuivant ("","")
    ...
FIN

Début de la page

cdbModifie (en anglais cdbModify)

// Modification de l'enregistrement en cours dans le fichier Client
 cdbEcritCol("MaBase","Client", "Nom", "Dupont")
cdbEcritCol("MaBase","Client", "Prénom", "Paul")
cdbEcritCol("MaBase","Client", "Ville", "Avignon")
ResModification = cdbModifie ("MaBase", "Client")
// Problème rencontré ?
SI ResModification = Faux ALORS Erreur(ErreurInfo())

Début de la page

cdbModifie (en anglais cdbModify)

// Base de données standard "Contacts"
// Modification d'un enregistrement
 cdbContact. Nom = "Dupont"
 cdbContact. Prénom = "Paul"
 cdbContact. VilleDomicile = "Avignon"
 ResModification = cdbModifie ("", cdbContact )
// Problème rencontré ?
SI ResModification = Faux ALORS Erreur(ErreurInfo())

Début de la page

cdbNbCol (en anglais cdbNbCol)

// Nombre de colonnes de l'enregistrement en mémoire ?
 ResNbCol = cdbNbCol ("MaBase", "Client")
Info("Le nombre de colonnes est : +ResNbCol)

Début de la page

cdbNbCol (en anglais cdbNbCol)

// Base de données standard "Contacts"
// Nombre de colonnes de l'enregistrement en mémoire ?
 ResNbCol = cdbNbCol ("", cdbContact )
Info("Le nombre de colonnes est : +ResNbCol)

Début de la page

cdbNbEnr (en anglais cdbNbRec)

// Nombre d'enregistrements présent dans le fichier Client ?
 ResNbEnreg = cdbNbEnr ("MaBase", "Client")
Info("Le nombre d'enregistrement est : +ResNbEnreg)

Début de la page

cdbNbEnr (en anglais cdbNbRec)

// Base de données standard "Contacts"
// Nombre d'enregistrements présent dans le fichier Contacts ?
 ResNbEnreg = cdbNbEnr ("", cdbContact )
Info("Le nombre d'enregistrement est : +ResNbEnreg)

Début de la page

cdbNumEnr (en anglais cdbRecNum)

// Numéro de l'enregistrement en cours dans le fichier Client ?
 ResNumEnCours = cdbNumEnr ("MaBase", "Client")
Info("Le numéro de l'enregistrement en cours est le : +ResNumEnCours)

Début de la page

cdbNumEnr (en anglais cdbRecNum)

// Base de données standard "Contacts"
// Numéro de l'enregistrement en cours dans le fichier Contacts?
 ResNumEnCours = cdbNumEnr ("", cdbContact )
Info("Le numéro de l'enregistrement en cours est le : +ResNumEnCours)

Début de la page

cdbOuvre (en anglais cdbOpen)

// Ouverture de la base de données "MaBase"
 ResOuvre = cdbOuvre ("MaBase", "\MesFichiers\MaBase.cdb")
// Problème rencontré ?
SI ResOuvre = Faux ALORS Erreur(ErreurInfo())

Début de la page

cdbRaz (en anglais cdbRaz)

// Ré-initialisation des variables de la structure
// de la base de données standard "Contacts"
 cdbRaz ( cdbContact )

Début de la page

cdbSupprime (en anglais cdbDelete)

// Suppression de l'enregistrement en cours dans le fichier Client
 ResSuppression = cdbSupprime ("MaBase", "Client")
// Problème rencontré ?
SI ResSuppression = Faux ALORS Erreur(ErreurInfo())

Début de la page

cdbSupprime (en anglais cdbDelete)

// Base de données standard "Contacts"
// Suppression de l'enregistrement en cours dans le fichier Contacts
 ResSuppression = cdbSupprime ("", cdbContact )
// Problème rencontré ?
SI ResSuppression = Faux ALORS Erreur(ErreurInfo())

Début de la page

cdbTrouve (en anglais cdbFound)

// Lecture du premier enregistrement du fichier Client
 cdbLitPremier("MaBase","Client")
// Enregistrement en dehors du fichier ?
TANTQUE cdbTrouve ("MaBase","") = Vrai
     // Traitement de l'enregistrement
    ...
FIN

Début de la page

cdbTrouve (en anglais cdbFound)

// Base de données standard "Contacts"
// Lecture du premier enregistrement
 cdbLitPremier("", cdbContact )
// Enregistrement en dehors du fichier ?
TANTQUE cdbTrouve ("", cdbContact ) = Vrai
     // Traitement de l'enregistrement
    ...
FIN

Début de la page