Problème avec un recordset

Version imprimable

07/02/2008, 19h11
david71

Problème avec un recordset
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:

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.
07/02/2008, 19h32
Vld44

hmm, juste avant de faire ton count essaye "Rec.movelast"
08/02/2008, 09h30
david71

Non j'essaye de faire cela, le résultat est exactement identique !
08/02/2008, 09h41
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
08/02/2008, 09h54
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 ...
08/02/2008, 10h07
david71
Pour info, voilà ma boucle principale qui utilise le code suivant où j'ai rajouté un compteur :
Code:

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.
08/02/2008, 11h11
david71

Pour information, j'exécute une requête beaucoup plus simple :

"SELECT * FROM MATABLE" ça me donne le nombre d'enregistrements total.

Par contre, lorsque j'utilise une requête beaucoup plus complexe, je n'ai pas tout ce que je veux!
08/02/2008, 12h24
Vld44

je peux voir exactement le contenu de ta boucle while not eof please ?

OK, ci-dessous la boucle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Do Until Rec.EOF
            'Traitement des données
            If Not TraitementDonnees(Feuille, _
                                     FeuilleParam, _
                                     Rec, _
                                     FlagVM, _
                                     xCol) Then GoTo SafeExit
 
            'Les Totaux
'            TotalVS(0) = TotalVS(0) + Rec!VS
'            TotalVM(0) = TotalVM(0) + Rec!VM
'            TotalCDV(0) = TotalCDV(0) + Rec!CDV
'
'            TotalVS(1) = TotalVS(1) + Rec!VS_P
'            TotalVM(1) = TotalVM(1) + Rec!VM_P
'            TotalCDV(1) = TotalCDV(1) + Rec!CDV_P
 
            If (IsNull(Rec!NBRETITRESNOUV) = False) Then
                TotalVSRgr(0) = TotalVSRgr(0) + Rec!NBRETITRESNOUV
            End If
            If (IsNull(Rec!NBRETITRESANC) = False) Then
                TotalVSNRgr(0) = TotalVSNRgr(0) + Rec!NBRETITRESANC
            End If
            If (IsNull(Rec!NBRETITRESNOUV_P) = False) Then
                TotalVSRgrP(0) = TotalVSRgrP(0) + Rec!NBRETITRESNOUV_P
            End If
            If (IsNull(Rec!NBRETITRESANC_P) = False) Then
                TotalVSNRgrP(0) = TotalVSNRgrP(0) + Rec!NBRETITRESANC_P
            End If
            If (IsNull(Rec!Q_VOIX) = False) Then
                TotalVoixRgr(0) = TotalVoixRgr(0) + Rec!Q_VOIX
            End If
 
            'On additione que les pouvoirs en propre
            TotalTit = TotalTit + Rec!N_POUVOIRS
            'Modif UT0AX1 le 21/09/00 tri par intermédiaire: total par intermédiaire
            ' gestion rupture
'            If xCol("Tri") = CS_TRI_INTERMED_RETOUR Then
'                oldIntermed = IIf(IsNull(Rec!N_INTERMED), "Inconnu", Rec!N_INTERMED)
'            End If
            Rec.MoveNext
'            If Not Rec.EOF And xCol("Tri") = CS_TRI_INTERMED_RETOUR Then
'                curIntermed = IIf(IsNull(Rec!N_INTERMED), "Inconnu", Rec!N_INTERMED)
'            End If
            If xCol("ImprimerAdresse") = 1 Then
                Lg = Lg + 4 '4 lignes par groupe avec adresse
            Else
                Lg = Lg + 2 '2 lignes par groupe
            End If
 
            ' Total puis rupture sur intermédiaire
 
            'Gestion de la rupture de page
            RupturePage = RupturePage + 1
            If RupturePage >= LimitePage Then
                .Cells(Lg, 1).PageBreak = xlManual
                If Not Rec.EOF Then
                    If Not InsertionEntete(FeuilleParam, Feuille, xCol) Then GoTo SafeExit
                End If
                RupturePage = 0
            End If
        Loop

08/02/2008, 14h33
ProgElecT

Citation:

"SELECT * FROM MATABLE" ça me donne le nombre d'enregistrements total.

Donc forcement, ta requête qui ne te retourne pas tous les enregistrements, fonctionne ;)

Dans cette requete, une des conditions n'est pas remplis par (109-100=) 9 de tes enregistrements de ta table.
En general on construit une requete pour qu'elle ne retourne que les enregistrements souhaités, il semplerait qu'elle le fait tout simplement.
08/02/2008, 14h53
Vld44

mets un point d'arrête sur tes 2 safeexit, pour moi le problème est là