首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

Nextrecordset 是什么类型,类模块

2012-06-16 
Nextrecordset 是什么类型,类模块紧急求助这样的:我自己写了个类,Private adors As ADODB.RecordSetPrivat

Nextrecordset 是什么类型,类模块紧急求助
这样的:
我自己写了个类,

Private adors As ADODB.RecordSet
Private mvarrs As ADODB.RecordSet '

Public adocn As Connection 'cn

Public Sub opensql(sqlstring As String)
On Error GoTo err1:
   
  Set adors = New ADODB.RecordSet
  adors.CursorLocation = adUseClient '使用客户端游标
  adors.Open sqlstring, adocn, adOpenKeyset, adLockBatchOptimistic
  Set mvarrs = adors

  Exit Sub
err1:

  MsgBox err.Description
End Sub
若干属性省略。。。。

目的是用这个类代替recordset。
但是现在遇到一个问题,就是要用到recordset的 Nextrecordset
语句如下:

Public Property Get Nextrecordset() As '这里不知道写什么类型了 
   
  Set Nextrecordset = adors.Nextrecordset
End Property

如果不用这个类型,只要
dim rs as recordset
set rs= new recordset
rs.open。省略。。。。
set rs=rs.nextrecordset

就达到效果了

求高手指点。。。


[解决办法]
个人认为楼主完全没有必要这样做,专业,稳定,可靠的不用。为什么?

热点排行