VB compter le nombre de valeur

VB compter le nombre de valeur - VB/VBA/VBS - Programmation

Marsh Posté le 06-03-2006 à 17:14:33    

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"

Reply

Marsh Posté le 06-03-2006 à 17:14:33   

Reply

Marsh Posté le 06-03-2006 à 17:19:28    

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.

Reply

Marsh Posté le 06-03-2006 à 17:23:14    

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...

Reply

Marsh Posté le 07-03-2006 à 08:46:51    

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


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

Reply

Marsh Posté le 07-03-2006 à 10:09:35    

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed