recordset

Question

bjr,
un truc bizar, enfin surement un truc que j ai pas vu...
Voila j ai un recordset qui a un count de 4 et quand je les resultats mets dans ma combo il ne trouve que le premier.
Si qql a une id&#233;e...svp
merci d avance
Voici le code:
Public Sub fournisseur(frm As Form)


    Dim strSQL As String
    Dim cmd As New ADODB.Command
    Dim rs As New ADODB.Recordset
    On Error Resume Next
    cmd.ActiveConnection = CNN                
    cmd.CommandType = adCmdText        
    
    rs.CursorLocation = adUseClient   
    rs.CursorType = adOpenStatic       '3
    rs.LockType = adLockReadOnly       '1
    
    strSQL = "SELECT fournisseur.nom FROM fournisseur"
        
    cmd.CommandText = strSQL       
    rs.Open cmd                


'***********************************************
If Err.Number <> 0 Then                      
    MsgBox cmd.CommandText & Err.Description  '*
End If                                        '*
'***********************************************
 nb = rs.RecordCount
    If Not rs.EOF Then                 
        rs.MoveFirst
        For i = 0 To nb - 1
            frm.ComboF.AddItem (rs(i))
            rs.MoveNext
        Next
    End If


    rs.Close
    Set rs = Nothing
    Set cmd = Nothing
    
End Sub

tbbuim1 · Answer

V&#233;rifie si dans l'option Style de ton Combo, tu as bien

0 - Dropdown Combo

TBBUIM

cs_CanisLupus · Answer

Salut,

Si tu veux avoir le nombre r&#233;el d'enregs du recordset, fais :
rs.movelast
nb = rs.RecordCount
rs.movefirst

car autrement ce que retourne le recordcount est souvent bizarre.

D'autre part, dans rs(i) i repr&#233;sente l'index d'un champ et dans ton code, tu prends le nb d'enregistrements (donc de lignes)

J'aurais plut&#244;t fais comme &#231;a, sans recordcount :

    Do while Not rs.EOF                 
            frm.ComboF.AddItem rs!tonchamp
            rs.MoveNext
    Loop

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Recordset

2 réponses

Discussions similaires