1,451
社区成员
发帖
与我相关
我的任务
分享我的RDS.DataSpace不能返回记录集,怎么办啊?
例如远程类class1.
Function GetRecordset() As ADODB.Recordset
...
End Function
客户端
Dim rd As New rds.DataSpace
Dim obj As Object
Dim rs As New ADODB.Recordset
Set obj = rd.CreateObject("project1.class1", "http://hyt")
Set rs = obj.GetRecordset() '这里就出错了。
本人在winnt与win2000都不成功。
恳请各位大侠帮帮忙.
Function GetRecordset() As ADODB.Recordset
...
End Function
客户端
Dim rd As New rds.DataSpace
Dim obj As Object
Dim rs As New ADODB.Recordset
Set obj = rd.CreateObject("project1.class1", "http://hyt")
Set rs = obj.GetRecordset() '这里就出错了。
本人在winnt与win2000都不成功。
恳请各位大侠帮帮忙.
...全文
请发表友善的回复…
发表回复
online 2003-10-08
- 打赏
- 举报
用ado也可以阿
试试rdoerror
dim rerr as rdoerror
for each rerr in rdoerror
msg=rerr.description
next
msgbox msg
看看错误
估计权限问题
试试rdoerror
dim rerr as rdoerror
for each rerr in rdoerror
msg=rerr.description
next
msgbox msg
看看错误
估计权限问题
banni2003 2003-09-30
- 打赏
- 举报
把这两句
Dim obj Object
...
Set rs = obj.GetRecordset()
改为
dim obj As new class1.GetRecordset
rs=obj
Dim obj Object
...
Set rs = obj.GetRecordset()
改为
dim obj As new class1.GetRecordset
rs=obj
heyongtong1 2003-09-30
- 打赏
- 举报
木木，您可不知RDS.dataspace 的作用。这是用RDS做三层结构的程序。
