WDForge.org - Forums

Re: Nombre d'enregistrement

Sujet: Re: Nombre d'enregistrement
par R&B sur 29/6/2005 13:27:02

Bonjour,

Il existe deux solutions.
La première consiste en un parcours sans lecture du fichier filtré :

nNb est un entier
cCle est une chaîne = hFiltre(FICHIER...)
HLitPremier(FICHIER,cClé)
TANTQUE PAS HEnDehors()
   nNb++
   HAvance(FICHIER,cCle,1)
FIN
Info(nNb)

La seconde est d'utiliser une requête de comptage pour la condition.

nNb est un entier
sSQL est une Source de données
cSQL est une chaine = SELECT COUNT(*) AS NBR FROM FICHIER WHERE ..."
SI HExécuteRequeteSQL(sSQL,HRequeteDefaut,cSQL) ALORS
   SI HLitPremier(sSQL) ALORS nNB = sSQL.NBR
FIN
HAnnuleDeclaration(sSQL)
Info(nNb)