Discussion :

[david71]

Bonjour,

Je n'arrive pas à voir pourquoi j'ai un tel comportement :

J'ai un programme VB6 qui exécute une requête passée à une base DB2 Windows mais lorsque le programme renvoie le recordset, il ne contient que 100 lignes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim req As String
 
... 
 
Set Rec = cO.OpenRecordset(req, dbOpenSnapshot)
 
Debug.Print Rec.RecordCount
 
...

Cela est donné par le Debug.Print.

Quand j'exécute ma requête en dehors de VB dans un client DB2, j'ai 109 lignes, je ne vois pas du tout pourquoi !!

Merci d'avance pour tout complément d'information.

[Vld44]

hmm, juste avant de faire ton count essaye "Rec.movelast"

[david71]

Non j'essaye de faire cela, le résultat est exactement identique !

[Invité]

Bonjour

Je ne connais pas DB2, mais c'est peut-être une restruction du à la technologie DAO que tu utilises. C'est juste une hypothèse.

As-tu essayé avec ADO, c'est conseillé pour se connecter à une autre source.
Il est préférable en général d'utiliser DAO pour une connexion avec une base Access.

Tu as des tutos sur ADO dans la page cours VB.

Starec

[Vld44]

juste pour vérifier, as-tu bouclé sur tout recordset pour compter toi même le nombre d'enregistrements retournés ?

On ne sait jamais ...

[david71]

Pour info, voilà ma boucle principale qui utilise le code suivant où j'ai rajouté un compteur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim counter As Integer
counter = 1
Rec.MoveLast
Rec.MoveFirst
Do Until Rec.EOF
...
     Print.Debug counter
     counter = counter + 1
...     
Loop

Ce code me donne aussi un compteur = 100.
Donc je ne comprends vraiment pas.

Concernant l'utilisation de ADO pour DB2, avez-vous des exemples particuliers ?

Merci d'avance.