WDForge.org - Forums

Re: Equivalent de Recordcount sous windev9

Sujet: Re: Equivalent de Recordcount sous windev9
par R&B sur 4/10/2005 9:28:28

Bonjour et bienvenue.
[modérateur]
Merci de lire nos règles d'utilisation.
Nous tentons de rédiger nos réponses afin que tous (y compris les non francophones de souche), puissiez comprendre. D'un autre coté, en plus des difficultés du language naturel (table = SQL ou champs...), vous nous ajoutez la traduction depuis le sms. Cela ne facilite pas notre tâche et nous fait perdre du temp.
[/modérateur]

Pour connaitre le nombre d'enregistremetn satisfaisant une condition, il est possible de parcourir un filtre sans lecture en comptant :

nb est un entier
cCle est une chaine = hFiltre(Fichier,Rubrique,Min,Max)
HPremier(Fichier,cCle)
TANTQUE pas HEnDehors()
   nb++
   HSuivant(fichier,cCle)
FIN

Sinon, en passer pas une requete SQL

nb est un entier
cSQL est une Chaine
sSQL est une Source de Données
cSQL = "SELECT COUNT(*) AS NB FROM FICHIER WHERE <condition>"
SI PAS HExecuteRequeteSQL(sSQL,hRequeteDefaut,cSQL) ALORS RETOUR
SI HLitPremier(sSQL) alors nb = sSQL.NB
HAnnuleDeclaration(sSQL)

En effet, il est à noter que HNbEnr() ne fonctionne pas sur les fichiers filtrés. Il donne les statistiques générales du fichier entier.