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.

[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!

[Vld44]

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

[david71]

OK, ci-dessous la boucle :

Code :

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

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

[ProgElecT]

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

[Vld44]

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