I'm not able to find this answer anywhere. I've done a lot of code that takes an ADO recordset and converts it to a VFP cursor, but now I've got to find an easy way to go the other direction. Given a VFP cursor convert it directly to a recordset.

This code goes from RS to Cursor:

public oRS as ADODB.RecordSet, oCommand as ADODB.command

#DEFINE ADINTEGER   3
#DEFINE ADCHAR    129

oRS = CreateObject( "ADODB.RecordSet" )
oRS.CursorLocation = 3
ors.LockType = 3
oRS.Fields.Append( "c1", ADCHAR, 100 )
oRS.Fields.Append( "i1", ADINTEGER, 4 )
oRS.Open()

oRS.AddNew()
oRS.Fields("c1").Value = "test1"
oRS.Fields("i1").Value = 1

oRS.AddNew()
oRS.Fields("c1").Value = "test2"
oRS.Fields("i1").Value = 2

oRS.MoveFirst()
do while ! oRS.EOF()
   ? alltrim( oRS.Fields("c1").Value ), oRS.Fields("i1").Value
   oRS.MoveNext()
enddo

public oCursorAdapter as CursorAdapter

if ( used( "testthis" ) )
   use in testthis
endif

oCursorAdapter = createobject( "cursoradapter" )
oCursorAdapter.DataSourceType ="ADO"
oCursorAdapter.Alias = "testthis"

oCursorAdapter.DataSource = oRS

? oCursorAdapter.CursorFill( .f., .f., 0, oRS )

select testthis
scan
   ? alltrim( c1 ), i1
endscan

this doesn't generate a RS:

create cursor testthis ( i1 i, c1 c(10), t1 t, m1 m )
insert into testthis values ( 1, "test 1", datetime(), "this is my pretty memo" )
insert into testthis values ( 2, "test 2", datetime(), "this is my prettier memo" )

oRS = CreateObject( "ADODB.RecordSet" )
oRS.CursorLocation = 3
oRS.LockType = 3

oCursorAdapter = createobject( "cursoradapter" )
oCursorAdapter.DataSourceType ="ADO"
oCursorAdapter.DataSource = oRS
? oCursorAdapter.CursorAttach( "testthis", .t. )

oRS.MoveFirst()
do while ! oRS.EOF()
   ? alltrim( oRS.Fields("c1").Value ), oRS.Fields("i1").Value
   oRS.MoveNext()
enddo

Ideally I need the RS to construct its field collection structure directly from the cursor structure and then push the data into the RS. The CursorAttach() method returns .t. but oRS is pretty much an empty shell. What am I doing wrong/missing? I don't really want the run a select, it doesn't have to be updateable, it's just a RS that we are passing from a VFP COM object over to an ASP page.