Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1484 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VB compter le nombre de valeur

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VB compter le nombre de valeur

n°1319636
guitoun
Posté le 06-03-2006 à 17:14:33  profilanswer
 

bonjour j'aimerai savoir comment on compte le nombre de valeur  dans une table  puis apré  affecter ce nombre de valeur a une variable !  
 
g fai  sa  pour compter le nombre de valeur mai jarive po a réutiliser la valeur  est ce que  quelqu'un pourrait m'aider ?
 
 
nb_e = "SELECT COUNT (numC) AS nbvaleur FROM CONTACT"

mood
Publicité
Posté le 06-03-2006 à 17:14:33  profilanswer
 

n°1319643
tegu
Posté le 06-03-2006 à 17:19:28  profilanswer
 

Définit plus clairement le contexte de ton problème.
Quelles versions de logiciels (VBA Excel, VBA Access, VB6, ...) ?
Quelle base de données (SQL Server, Mysql, Access, Excel, fichier texte, ...) ?
Quelle méthode d'accès à ces données (DAO, ADO, ...) ?
 
Parce que tu nous montres juste du SQL là, donc pas vraiment du VB.

n°1319650
guitoun
Posté le 06-03-2006 à 17:23:14  profilanswer
 

Ui c vrai que c'est pas trés claire ce que j'ai dit dsl  
alors j'utilise VB 6 et mon code plus en details c'est ceci :  
 
Dim nb_e As String
Dim table As Recordset
Private Sub Command1_Click()
Set base = DBEngine.OpenDatabase("F:\agenda\agenda.mdb" )
 
nb_e = "SELECT COUNT (numC) AS nbvaleur  FROM CONTACT"
 
etc...

n°1319909
Profil sup​primé
Posté le 07-03-2006 à 08:46:51  answer
 

Code :
  1. Dim nb_e As String
  2. Dim MonRecordSet As Recordset
  3. set MonRecordSet = MaBase.OpenRecordset("Select * from CONTACT", dbOpenDynaset)
  4. nb_e = MonRecordSet.RecordCount


 
C'est pas la meilleure solution, mais c'est la plus simple.

n°1319943
tegu
Posté le 07-03-2006 à 10:09:35  profilanswer
 

Pour reprendre en partie l'exemple précédent de mon « collègue », tu peux aussi faire comme cela

Dim nb_e As Long
Dim MonRecordSet As Recordset
 
Set MonRecordSet = MaBase.OpenRecordset("Select Count(*) As compteur from CONTACT" )
If Not MonRecordSet.BOF Then
    nb_e = CLng(MonRecordSet!compteur)     ' bon, moi je préfère mettre ce nombre dans un type numérique :)
EndIf

Je pense que cette dernière méthode est plus rapide sur des tables comportant de nombreux enregistrements (un seul champ retourné) mais à toi de voir.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VB compter le nombre de valeur

 

Sujets relatifs
Matcher un nombre inconnu d'arguments[Résolu]Execution d'un void main(args[]) en java et valeur retour
[resolu] Convertir un entier en chaine représentant sa valeur hexaCompter le nombre de caractère d'une ligne d'un fichier
Lecture du nombre de caracteres d'un floatHelp MySQL tri par nombre d'occurrences
Identifier le type d'un caractere (majuscule, minuscule; nombre...)[C] Compter le nombre de lignes d'un fichier
Plus de sujets relatifs à : VB compter le nombre de valeur


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR