use lbox recordset property w/ ado memory recordset?

S

scott w t

i created an ado memory recordset (no disk-based persistent underlying table)
as follows

Dim r As New ADODB.Recordset
With r
.Fields.Append "Field1", adVarChar, 64
.Open
.Sort = "[Field1] ASC"
End With

then i added 2 records to r and verified that they were actually "there"
record 1: Field1="AAA"
record 2: Field1="BBB"

then i set the recordset property for a 1-column listbox whose parent form
is open, as follows

Set lbox.Recordset = r

now --
lbox.ListCount = 2, as it should
but
lbox has 2 blank lines,
lbox.ItemData(0) and lbox.ItemData(1) both return NULL
lbox.Column(0,0) and lbox.Column(0,1) both return NULL

is there any way to make this really work? thanks
 
M

Michel Walsh

Could work in VB6, but under an Access Forms, (else than ADP) are using DAO
recordsets, not ADO recordset. There is maybe a way to use your ADO
recordset, but I never used that way of doing it, using, instead, a callback
function to fill the list box.(http://www.mvps.org/access/forms/frm0049.htm
as example).


Vanderghast, Access MVP
 
S

scott w t

Thanks. Now I can stop my fruitless search for an easy answer.

Michel Walsh said:
Could work in VB6, but under an Access Forms, (else than ADP) are using DAO
recordsets, not ADO recordset. There is maybe a way to use your ADO
recordset, but I never used that way of doing it, using, instead, a callback
function to fill the list box.(http://www.mvps.org/access/forms/frm0049.htm
as example).


Vanderghast, Access MVP


scott w t said:
i created an ado memory recordset (no disk-based persistent underlying
table)
as follows

Dim r As New ADODB.Recordset
With r
.Fields.Append "Field1", adVarChar, 64
.Open
.Sort = "[Field1] ASC"
End With

then i added 2 records to r and verified that they were actually "there"
record 1: Field1="AAA"
record 2: Field1="BBB"

then i set the recordset property for a 1-column listbox whose parent form
is open, as follows

Set lbox.Recordset = r

now --
lbox.ListCount = 2, as it should
but
lbox has 2 blank lines,
lbox.ItemData(0) and lbox.ItemData(1) both return NULL
lbox.Column(0,0) and lbox.Column(0,1) both return NULL

is there any way to make this really work? thanks
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top