高手请进，调用组件的问题，ADODB.Recordset不能互相赋值吗？

[研究汽车的米舞指]

Set obj = Server.CreateObject("EhrAccess.Access")
Set rs=Server.CreateObject("ADODB.Recordset")
path = Server.MapPath(".")& "\kaoqin"
'response.write path
set rs = obj.GetData(path)

最后一句出错：类型不匹配: 'GetData'

其中：GetData的说明如下：
Public Function GetData(FileName As String, Optional FromDate As String = “”, Optional ToDate As String = "") As Adodb.Recordset


该组件用vb调用没有问题，vb代码如下：
Set mrsData = mEhrAccess.GetData(lbFile.Caption, strStart, strEnd)
Set TDBGrid1.DataSource = mrsData
lbRes.Caption = "重取数据成功，获得" & mrsData.RecordCount & "条记录！"
'更新时间戳
mEhrAccess.ConfirmlastUpdate

[研究汽车的米舞指]

楼上的好象不对啊，set GetData=rs 更不行啊。
错误的参数个数或无效的参数属性值: 'rs.GetData'
GetData是组建里的一个方法。

另外，三个变量，后两个是可选择的。

[cq_tan]

GetData的定义中有中文的引号吧

[研究汽车的米舞指]

GetData的定义中有中文的引号吧
=================
这个不是问题。是说明文档没写好。

[白夜花寒]

我写的不可能不对,错的是你对我写那句话的理解

和对对象赋值的认识

用组件传对象不是一次两次的事情了,居然能 'rs.GetData'写出这种东西来........

好好想想我说的内容,然后考虑一下,再回复吧

[研究汽车的米舞指]

楼上的，我按照你说的改成：

Set obj = Server.CreateObject("EhrAccess.Access")
Set rs=Server.CreateObject("ADODB.Recordset")
path = Server.MapPath(".")& "\kaoqin"

set obj.GetData(path) = rs

错误描述：错误的参数个数或无效的参数属性值: 'rs.GetData'
也许我理解有误，麻烦你给详细点的代码。因为我确实没这么用过。谢谢。

[白夜花寒]

可以用的,返回的时候应该是

set GetData=rs 这么返回,否则就类型不匹配了,还有你变量给少了,三个变量,你就给了一个

[研究汽车的米舞指]

还是没有解决啊！老大们！ help!

[wangwm]

首先path即Server.MapPath(".")& "\kaoqin"是什么？Access数据库名称？？

如果obj.GetData(path)返回的是数据集的话就可以使用
set rs = obj.GetData(path)