VFP 愛用者社區

[jmforu]

在ADO中,Record的源如何正确高成recordset对象?

下面是我的代码测试代码.

mycon=Createobject("adodb.connection")

myrecordset=Createobject("adodb.recordset")

mystrea=Createobject("adodb.stream")

mycon.connectionstring="provider=VFPOLEDB.1;Data Source=f:\ztdata\"
lcsql=" select * from test.dbf "
mycon.Open

myrecordset.Open(lcsql,mycon)

K=1
Do While !Eof()
K=K+1
myrecordset.movenext
? myrecordset.Fields(2).Value
IF K>10
EXIT
ENDIF
Enddo

&&上面都正常显示.问题是下面
myrecordset.move(3)

myrec=createobject("adodb.record")
myrec.open( myrecordset ) &&...............这里出错,不知为何....
*----------下面是VB 示例--------
*set rs = Server.CreateObject("ADODB.recordset")
*set rec = Server.CreateObject("ADODB.record")
*rs.Open "test.doc", "URL=http://www.w3schools.com/ado/",,,adCmdTableDirect
*rs.MoveLast()
*rec.Open(rs)
*===========可以看到record对象open时直接用recordset做参数就可以了,我的错在哪里,请高手指教.谢谢.