• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Retrieves all entries from a database and populates a listbox. Eg first column in a database is use

Retrieves all entries from a database and populates a listbox. Eg first column in a database is use

Retrieves all entries from a database and populates a listbox. Eg first column in a database is userName, this will fill the list style combo

Rate Retrieves all entries from a database and populates a listbox. Eg first column in a database is use

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Usage:
'replace initializeConnection, closeConnection, initializeRecSet and killRecSet 'with calls to your database connection, disconnection, recordset setup and recordset close functions
        'rssd is the name of the recordset - change this to the name of your recordset
        'collectreference is the column of the databse which is cycled to populate the list.
        'zero is column one, 1 is column two etc,
        

    Public Function populateList(objectRef As Object, tableName As String, collectReference As Integer) As Integer
        On Error Resume Next
        
        Dim intUsers As Integer
        Dim count As Integer
    
        ' where objectReference is the formname.comboboxname.
        'frmEditAccount.cmbEditAcc.Clear
        objectRef.Clear
        resultCode = initializeConnection(dataSource)
        If resultCode <> 0 Then MsgBox "error: connection - returned from function: initializeConnection(from populateList) with return value " & CStr(resultCode)
        resultCode = initializeRecSet
        rsSD.Source = "SELECT * FROM " & tableName
        rsSD.Open
        intUsers = rsSD.RecordCount
         
         If count < rsSD.RecordCount Then
            While count < rsSD.RecordCount
                objectRef.AddItem (rsSD.Collect(collectReference))
                count = count + 1
                rsSD.MoveNext
            Wend
         End If
         
        resultCode = killRecSet
        resultCode = closeConnection(dataSource)
    
   End Function