Perte d'information dans un Recordset

**heddicmi** · 18/10/2006, 12h43

Bien le bonjour brave gens !

Je viens de passer en mode arrachage de cheveux à cause de la manipulation d'un Recordset qui me fait que des malheurs. Je m'explique !

Je récupère des informations sur une base SQL SERER Express. Ma requête se passe bien, elle retourne bien des résultats. J'avance donc tranquillement en lui apposant un simple MoveFirst, puis je rentre dans ma boucle.

Or, si l'espion me montre bien la ligne de résultat dans rs, lorsque j'avance pas à pas et que j'exécute l'instruction suivante, POUF !, le Recordset perd presque toutes ses informations. Presque oui, puisqu'en fait, seules les valeurs issus de VARCHAR dans ma table sont perdues. Les INT, elles, sont bien conservées.

Par la suite, dans la boucle, bis repetita, à l'exécution du MoveNext, l'espion me montre bien que le recordset récupère les valeurs, mais dès la ligne suivante, je perd les informations.

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
Dim rs As ADODB.Recordset
 
    ' Récupération de la liste des fichiers à réaliser (requete, c'est aussi une fonction de mon cru)
    Set rs = requete("SELECT UTILISATEUR.id_user, UTILISATEUR.prenom_user, UTILISATEUR.nom_user, UTILISATEUR.email_user, LABORATOIRE.id_labo, LABORATOIRE.libelle_labo " & _
                     "FROM UTILISATEUR, LABORATOIRE " & _
                     "WHERE UTILISATEUR.id_labo=LABORATOIRE.id_labo " & _
                     "  AND UTILISATEUR.actif=1 " & _
                     "  AND UTILISATEUR.type=1 " & _
                     "  AND UTILISATEUR.id_user<>2 " & _
                     "ORDER BY LABORATOIRE.libelle_labo")
 
    rs.MoveFirst
    Do
       msgbox(rs(1))
 
        rs.MoveNext
     Loop Until rs.EOF = True

Si vous avez des explications je suis preneur, si vous avez besoin de plus d'informations, je suis aussi présent

**pc75** · 18/10/2006, 14h19

Bonjour,

A la place de ça :

Do
msgbox(rs(0))

rs.MoveNext
Loop Until rs.EOF = True

J'essaierai ça :

Code :

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

1
2
3
4
5
6
 
    Do while not rs.EOF
       msgbox(rs(0))
 
        rs.MoveNext
     Loop

**Vld44** · 18/10/2006, 14h29

Ce que tu veux dire c'est que tout va bien sauf au moment

msgbox(rs(0))

?

**heddicmi** · 18/10/2006, 14h39

Je fais du pas à pas, pour mieux cerner

Après exécution de :

1 rs.MoveFirst

rs(0) est bien égale à X
rs(1) est bien égale à "YYYYYY"
etc...

2 Do

rs(0) est toujours égale à X
Mais rs(1) perd sa valeur

3 msgbox(rs(1))

du coup msgbox(rs(1)) n'affiche pas "YYYYYY" mais du vide

4 rs.MoveNext

Enregistrement suivant,
rs(0) est bien égale à Y
rs(1) est bien égale à "ZZZZZZZ"
etc...

5 Loop Until rs.EOF = True

On repart sur le Do
rs(0) est toujours égale à Y
mais rs(1) perd sa valeur...

Ensuite, à chaque tour de boucle,
après le passage sur le MoveNext, rs(...) prendra les valeurs de l'enregistrement, mais dès l'instruction suivante, rs(1) perdra sa valeur.

Ce n'est donc que mes champs VARCHAR qui perdent leurs valeurs.

Ce n'est pas spécialement un souci de boucle...

PS : J'ai corrigé mon code sur le 1er post qui n'est pas la retranscription de la réalité

**Vld44** · 18/10/2006, 14h59

tu as essayé en utilisant rs.field(1) à la place ?

**Le Pharaon** · 18/10/2006, 16h21

La fonction requete fait quoi ?

Peut-on la voir dans les détails ?

**heddicmi** · 18/10/2006, 16h33

Envoyé par Bujuman

La fonction requete fait quoi ?

Peut-on la voir dans les détails ?

Actuellement elle est light, mais je l'améliorais surement pour des messages d'erreurs plus conséquents :

Code :

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

1
2
3
4
5
Function requete(ByVal req As String) As ADODB.Recordset
    ' Exécution de la requête
    Set requete = New ADODB.Recordset
    requete.Open req, cnx
End Function

Mais bon, parlons peu parlons bien, il y a un truc marrant en fait...

Il s'avère que quand j'avance au pas à pas, le Recordset perd ses informations, mais à traitement "normal", no soucy, il roule sans perdre les infos... pffffff

Pour la forme je mets un Résolu, mais ça me gave là !