Comment faire pour remplir un ComboBox avec un jeu d'enregistrements à l'aide de VBA

Pour définir un contrôle qui accepte un contenu (rowsource) pour un jeu d'enregistrements, vous procédez de la manière suivante:

Set recordset = currentDb.OpenRecordset("SELECT * FROM TABLE", dbOpenSnapshot)
Set control.recordset = recordset

Fonctionne avec les jeux d'enregistrements DAO pour sûr, je n'ai pas essayé les jeux d'enregistrements ADO parce que je n'ai aucune raison de les utiliser.

Quand fait de cette façon, une simple actualisation ne fonctionnera pas pour actualiser les données, vous devez faire une répétition de l'instruction set.

OriginalL'auteur Lance S

bonne méthode avec l'aide de la propriété Recordset, merci pour l'astuce!

Patrick, la méthode que vous avez indiqué sur votre page a un gros désavantage (j'ai essayé aussi sur mon propre): La valeur de la liste ne peut être de 32 KO, si vous dépassez cette limite, la fonction renvoie une erreur.
La méthode de rappel qui a le gros inconvénient: il est très lent et il est appelée une fois pour chaque entrée, ce qui le rend inutilisable pour une liste plus longue.
En utilisant le jeu d'enregistrements méthode fonctionne très bien. J'avais besoin de ce parce que ma chaîne SQL a été de plus de 32 KO (beaucoup de valeurs de l'indice pour where ID IN(x,x,x,x,x...)).

Voici une fonction simple qui utilise cette idée de créer un jeu d'enregistrements de la zone de liste déroulante:

' Fills a combobox with the result of a recordset.
'
' Works with any length of recordset results (up to 10000 in ADP)
' Useful if strSQL is longer than 32767 characters
'
' Author: Christian Coppes
' Date: 16.09.2009
'
Public Sub fnADOComboboxSetRS(cmb As ComboBox, strSQL As String)
    Dim rs As ADODB.Recordset
    Dim lngCount As Long

   On Error GoTo fnADOComboboxSetRS_Error

    Set rs = fnADOSelectCommon(strSQL, adLockReadOnly, adOpenForwardOnly)

    If Not rs Is Nothing Then
        If Not (rs.EOF And rs.BOF) Then
            Set cmb.Recordset = rs
            ' enforces the combobox to load completely
            lngCount = cmb.ListCount
        End If
    End If

fnADOComboboxSetRS_Exit:
    If Not rs Is Nothing Then
        If rs.State = adStateOpen Then rs.Close
        Set rs = Nothing
    End If
    Exit Sub

fnADOComboboxSetRS_Error:
    Select Case Err
        Case Else
            fnErr "modODBC->fnADOComboboxSetRS", True
            Resume fnADOComboboxSetRS_Exit
    End Select
End Sub

(La fonction fnADOSelectCommon ouvre un jeu d'enregistrements ADO et le donne. La fonction fnErr affiche une boîte de message avec l'erreur, si il y en avait un.)

Que cette fonction ferme l'ouverture d'un jeu d'enregistrements, il devrait y avoir aucun problème avec la mémoire. Je l'ai testé et n'ai pas vu tout de l'augmentation de la mémoire qui n'a pas été libéré après la fermeture du formulaire avec les zones de liste modifiables.

Dans l'Événement Unload du formulaire, vous pouvez en outre utiliser un "Set rs=Moi.Comboboxname.Jeu d'enregistrements" et puis fermez-le. Cela ne devrait pas être nécessaire en ce qui concerne la mémoire, mais il peut être préférable de libérer des connexions ouvertes (si utilisé avec un serveur de base de données).

Acclamations,

Christian

OriginalL'auteur

Dans MS Access, c'est ok, mais dans visual basic, vous pouvez utiliser quelque chose comme ceci en utilisant adodc (Jet 4.0):

Private sub Form1_Load()
   with Adodc1
     .commandtype = adcmdtext
     .recordsource = "Select * from courses"
     .refresh

     while not .recordset.eof
           combo1.additem = .recordset.coursecode
           .recordset.movenext
     wend
   end with
End Sub

OriginalL'auteur rexreponte