devxlogo

Fill a List Box with the Values from a Database Table

Fill a List Box with the Values from a Database Table

Use this code to fill a list box with the values from a database table. The first field in the query provides the ItemData for the list:

 Call FillList(dbase, "select personno, " & _	"personname from tblperson order by " & _	"personname;", lstperson)Sub FillList(thedb As Database, thesql As _	String, THELIST As Control)On Error Resume Next	THELIST.Clear	Call FillListAp(thedb, thesql, THELIST)End SubSub FillListAp(thedb As Database, thesql As _	String, THELIST As Control)	On Error Resume Next	Dim theset As Recordset	Dim inlist As String	Dim I As Integer	Set theset = thedb.OpenRecordset(thesql, _		dbOpenSnapshot)	While Not theset.EOF		For I = 1 To theset.Fields.Count - 1			If I = 1 Then				If IsNull(theset.Fields(I)) Then					inlist = "Null"				Else					inlist = theset.Fields(I)				End If			Else				If IsNull(theset.Fields(I)) Then					inlist = inlist & Chr(9) & "Null"				Else					inlist = inlist & Chr(9) & _						theset.Fields(I)				End If			End If		Next I		THELIST.AddItem inlist		THELIST.ItemData(THELIST.NewIndex) = _			theset.Fields(0)		theset.MoveNext	Wend	theset.CloseEnd Sub
See also  Is Machine Learning Automating Creativity in Graphic Design?
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist