请教高手啊/我快被折磨死拉,谁来帮个忙啊?给分的真的

gx775 2003-04-08 04:17:20
我要在2个TEXT文本里不断的换各种日期来查询各段时间的业务状况,但是 第2次更改了日期再查询就报错啊
我在操作时只要更换了日期后再点查询就报实时错误‘3705’对象打开时操作不被允许,然后高亮的黄条就在RS。OPEN上了一下是代码,你帮忙看看吧,谢谢
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
————————————————————————————————
Private Sub Command1_Click()
rs.Open "select hf_rtb1t1.ensure_rq rr,hf_medium.name yhmc,hf_agency.name ywyxm,hf_rta1.station_a yhdm,hf_rta1.bm_app bdh,hf_rta1.account_in zzzh,hf_rta1.premium bf,rtb1t1_type.jf_kind zzbz, hf_rta1.rq_start rq from hf_rta1,hf_rta3,hf_rtb1t1,rtb1t1_type,hf_medium,hf_agency " _
& " where hf_rta1.bnch_adm='02' and hf_agency.agency_code=hf_rta1.agency_code" _
& " and hf_rta1.station='1701'" _
& " and hf_rta1.station_a=hf_medium.medi_code" _
& " and hf_rta1.bm_contract=hf_rta3.bm_contract" _
& " and hf_rta3.bm_contract=hf_rtb1t1.bm_app" _
& " and hf_rtb1t1.bm_jf=rtb1t1_type.bm_jf and rtb1t1_type.jf_kind='4'" _
& " and hf_rtb1t1.ensure_rq between '" + Text1.Text + "' and '" + Text2.Text + "' " _
& " order by 1,2", db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

End Sub
——————————————————————————————
Private Sub Form_Load()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
'db.Open "Provider=SQLOLEDB.1;Data Source=hftkgbs;User ID=hefei;Password=hefei;Initial Catalog=tkgbs"
db.Open "PROVIDER=MSDASQL;dsn=10.9.41.3;uid=hefei;pwd=hefei;database=tkgbs"
Set rs = New ADODB.Recordset
'Me.DTPicker1 = Now() - 1
'Me.DTPicker2 = Now()
End Sub
...全文
6 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
gx775 2003-04-08
谢谢上面几位了,我会给你们分的,能留下你们的信箱吗?我想以后继续请教你们
回复
rexyudl 2003-04-08
记录集用完了当然要关了啊 !不然你下次再打开同一个记录集时一定会报这个错误的啊!
回复
Cooly 2003-04-08
On Error Resume Next
RS.Close
RS.Open .........................
回复
饮水需思源 2003-04-08
rs.Open ...这句前加上:if rs.state=adstateopen then rs.close

'对象打开之前先判断,如果是打开状态则关闭
回复
rexyudl 2003-04-08
在RS.OPEN前做个判断
if rs.state=adstateopen then rs.close
rs.open ……
回复
gx775 2003-04-08
查一次可以出来结果,在最后加上RS。CLOSE后DATAGRID里就再也不出来任何数据了,我不能查一次关一次再查吧,怎么办啊,能写出来吗?各位专家啊,帮帮忙啊
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-04-08 04:17
社区公告
暂无公告