Gewusst wie: füllen einer ComboBox mit einem Recordset über VBA

Setzen Sie ein Steuerelement akzeptiert eine rowsource an ein recordset Sie Folgendes tun:

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

Funktioniert mit DAO-Recordsets sicher, ich habe nicht versucht ADO-recordsets, da ich keinen wirklichen Grund, Sie zu benutzen.

Wenn auf diese Weise getan, ein einfaches requery wird nicht funktionieren, um die Daten zu aktualisieren, müssen Sie tun, um eine Wiederholung der set-Anweisung.

gute Methode, mit der Sie die Recordset-Eigenschaft, danke für den Tipp!

Patrick, die Methode, die Sie auf Ihrer Seite hat auch einen großen Nachteil (ich habe versucht, das auch auf meine eigene): Die Werteliste kann nur 32 KB, wenn Sie diese Grenze überschreiten, die Funktion wird keinen Fehler werfen.
Die callback-Methode hat den großen Nachteil, dass es sehr langsam und es wird aufgerufen, einmal für jeden Eintrag, das macht es unbrauchbar für eine längere Liste.
Mit der recordset-Methode sehr gut funktioniert. Ich brauchte das, weil mein SQL-string war mehr als 32 KB (Menge der index-Werte für die WHERE ID IN(x,x,x,x,x...)).

Hier ist eine einfache Funktion, die verwendet diese Idee, legen Sie eine Datensatzgruppe, um die combobox:

' 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

(Die Funktion fnADOSelectCommon öffnet ein ADO-recordset und gibt es zurück. Die Funktion fnErr zeigt eine message-box mit dem Fehler, wenn es einen gab.)

Als diese Funktion schließt die geöffnete recordset sollte es keine problem mit dem Speicher. Habe es getestet und habe nicht gesehen, die Erhöhung der Speicher nicht freigegeben, nach dem schließen der form mit den comboboxes.

In das Unload-Ereignis des Formulars können Sie zusätzlich Verwendung eines "Set rs=Me.Comboboxname.Recordset" und schließen Sie es dann. Sollte dies nicht nötig sein in Bezug auf Speicher, aber es ist vielleicht besser, frei, offene verbindungen, wenn verwendet mit einer backend-Datenbank-server).

Cheers,

Christian

In MS-Access, es ist ok, aber in VB, können Sie so etwas wie das mit 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