Discussion :

[Invité]

Bonjour,
Pouvez-vous me donner des exemples sur la méthode vous utiliseriez pour afficher le résultat d’un Recordset dans une boite de message unique ? "flag, compteur etc…".

Code :

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

1
2
3
4
While not objRst.EOF
MsgBox objRst.Fields(0).name & " : " & objRst.Fields(0)
objRst.MoveNext	
Wend

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
Dim MsG
While Not objRst.EOF
    MsG = MsG & objRst.Fields(0).Name & " : " & objRst.Fields(0)
    objRst.MoveNext
    If Not objRst.EOF Then MsG = MsG & vbNewLine
Wend
MsgBox MsG, vbInformation, "voilà voilà ...."

par contre il ne faut pas que ton recordset contienne trop de lignes.

[Invité]

Merci ProgElecT
Comme cité dans ma question, "flag".
Ceci donne le même résultat :

Code :

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

1
2
3
4
5
6
7
Dim MsG
While Not objRst.EOF
    MsG = MsG & objRst.Fields(0).Name & " : " & objRst.Fields(0)
    objRst.MoveNext
    If (blnFlag = False) Then MsG = MsG & vbNewLine
Wend
MsgBox MsG, vbInformation, "Comme-ci, comme-ça ...."

Il y a-t-il une contre-indication ?

[ProgElecT]

Salut

Merci ProgElecT
Comme cité dans ma question, "flag".
Ceci donne le même résultat
................
Il y a-t-il une contre-indication ?

Je n'ai peut être pas compris ton besoin, le code proposé renvoie bien les enregistrements, voilà une autre façon de faire pour le même résultat.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim T, MsG
If Not objRst.EOF Then
    MsG = "Nbr d'enregistrement recupéré: " & objRst.RecordCount & vbNewLine
    For T = 1 To objRst.RecordCount
        MsG = MsG & objRst.Fields(0).Name & " : " & objRst.Fields(0)
        objRst.MoveNext
        If Not objRst.EOF Then MsG = MsG & vbNewLine
    Next T
    Else
    MsG = "Aucun enregistrement retourné"
End If    
MsgBox MsG, vbInformation, "Comme-ci, comme-ça ...."

objRst.Fields(0).Name ou objRst.Fields(0) te renvoie la même chose car objRst.Fields(0) te renvoie aussi la valeur par défaut, soit .Name de la colonne.

[Invité]

Nbr d'enregistrement recupéré: -1

[ProgElecT]

Salut

Peux tu nous mettre le code de la requête de connexion d'ouverture de la BDs ainsi que la requête d’ouverture du recordset?