use lbox recordset property w/ ado memory recordset?

[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

 

[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

 

[scott w t]

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

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

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