Re: Nombre d'enregistrement
Posté par R&B le 29/6/2005 13:27:02
Bonjour,
Il existe deux solutions.
La première consiste en un parcours sans lecture du fichier filtré :
La seconde est d'utiliser une requête de comptage pour la condition.
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)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=2453&post_id=10340