dcsimg
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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


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