Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира




Как заполнить List Box значениями из таблицы базы данных

Следующий код, показывает, как заполнить list box значениями из таблицы базы данных. Первое поле в запросе содержит в себе ItemData для списка:

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

 

 

 


Основные разделы сайта


 

Реклама