Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Sep 17, 1998

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 Sub
Sub 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.Close
End Sub
Tim Miller
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date