数据集的问题请帮忙解决,谢了

zengguoxun 2003-10-10 10:46:52

请先看我的程序
Dim RsYujing As New ADODB.Recordset
Dim Ycn As New ADODB.Connection
With Ycn
.CursorLocation = adUseClient
.ConnectionString = cnString
End With
RsYujing.Open "SELECT ID,NAME,STOPDATE,boxid,status from queryboxuser where stopdate>=to_char(sysdate-15 ,'YYYY-MM-DD') and stopdate<=to_char(sysdate,'YYYY-MM-DD') and status<>'报停'", Ycn, adOpenDynamic, adLockReadOnly
我的数据库是oracle8.17
老是提示
在一个已关闭的或无效连接的对象参照上操作不被允许
解决后给分感谢

...全文

29 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

zjcxc 2003-10-10

打赏
举报

少写了一个open

Dim RsYujing As New ADODB.Recordset
Dim Ycn As New ADODB.Connection
With Ycn
.CursorLocation = adUseClient
.ConnectionString = cnString
.Open '要先打开才能使用
End With

strongfisher 2003-10-10

打赏
举报

cuizm(射天狼) ( )
你也太快了

txlicenhe 2003-10-10

打赏
举报

ycn.open

射天狼 2003-10-10

打赏
举报

Dim RsYujing As New ADODB.Recordset
Dim Ycn As New ADODB.Connection
With Ycn
.CursorLocation = adUseClient
.ConnectionString = cnString
.Open '要先打开才能使用
End With

RsYujing.Open "SELECT ID,NAME,STOPDATE,boxid,status from queryboxuser where stopdate>=to_char(sysdate-15 ,'YYYY-MM-DD') and stopdate<=to_char(sysdate,'YYYY-MM-DD') and status<>'报停'", Ycn, adOpenDynamic, adLockReadOnly

连接要先打开,不过链接一个应用打开一次就够了,定义成全局的,不用每次都打开!!