[VB6] Nbre d'enregistrements dans un Recordset

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB6] Nbre d'enregistrements dans un Recordset

harelde

Salut à tous.

Je suis en train d'halluciner :pt1cable:
J'interroge une base Access avec une requète SQL.
Je colle le résultat du Select dans un Recordset.
Et quand je demande le nbre d'enregistrements, j'obtient des trucs à se taper la tête contre les murs :

rstMonRecordSet.MaxRecords = 0
rstMonRecordSet.RecordCount = -1

Je me dis, y a un soucis : ma requete ramene une sélection vide.
Et bien non !
Je peux écrire les données du Recordset dans un .txt, et il y a bien des données dedans !

Vous avez une idée ?
Pourquoi ce pbe ?
Comment récupérer le nbre d'enregistrements ?

Merci de votre aide

Laurent

Publicité

ixemul

Nan mais sans blague ! ⚡

bienvenu dans le monde ADO...

avec Access, ton pb, est tt a fait normal, comme avec toute autre base de donnée en mode "client ADO".

Avec access, aucun moyen de passer ta connection en mode "server" donc, pour recuperer le nombre d'enreg, tu fais un "select count(...)" AVANT ta requete

harelde

Génial !

:-(((

merci de ton aide.

Arjuna

Aircraft Ident.: F-MBSD

Autre méthode que le COUNT (parceque c'est pas terrible) :

Code :

Dim cpt as Integer
cpt = 0
' On teste que la requête n'est pas vide
If Not (rs.BOF and rs.EOF) Then
' On retourne la première ligne du rs.
rs.MoveFirst
' On parcours le rs d'un bout à l'autre
Do While Not rs.EOF
' Hop, on a trouvé une ligne
cpt = cpt + 1
Loop
' On retourne à la première ligne
rs.MoveFirst
End

Ce système est mieu qu'un "count()", parceque :
1) Ca t'évite de faire une requête supplémentaire (ce qu'il y a de plus coûteux)
2) Da toute façon, ton RS tu vas devoir le parcourir, donc dans tous les cas, il faudra bien le charger en mémoire à un moment où à un autre.

Ce système est mieu, uniquement si le nombre de lignes est limité, et leur taille limitée.
Evidement, si t'as des champs de type "text" et un grand nombre de lignes ( > 100 000) ce sytème sera peut-être plus lent qu'un count(), mais en règle générale, il est mieu.

ixemul

Nan mais sans blague ! ⚡

Arjuna a écrit :

Autre méthode que le COUNT (parceque c'est pas terrible) :

Code :

Dim cpt as Integer
cpt = 0
' On teste que la requête n'est pas vide
If Not (rs.BOF and rs.EOF) Then
' On retourne la première ligne du rs.
rs.MoveFirst
' On parcours le rs d'un bout à l'autre
Do While Not rs.EOF
' Hop, on a trouvé une ligne
cpt = cpt + 1
Loop
' On retourne à la première ligne
rs.MoveFirst
End

Et il faut egalement préciser que cela ne fonctionne pas si la connec ADO est en forward only

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB6] Nbre d'enregistrements dans un Recordset

Sujets relatifs
[SQL SERVER + C++Builder] Nbre d'instances et instances valides	[VB6] : Export sous excel
Changer de page de démarrage sous VB6...	VB6: ScrollBar et TextBox ne coincident pas!
comment utiliser les enregistrements provenant d'un procédure stockée	[VB6 - VBA] Format de date
[VB6] Recordset et ListBox	Utiliser les erreures avec vb6 entreprise
[VB6] Requète SQL (LIKE)
Plus de sujets relatifs à : [VB6] Nbre d'enregistrements dans un Recordset

Page générée en 0.032 secondes