存储过程中的一个难题

鱼之乐

我建了这样一个存储过程如下: 其中d1/d2是查询起止时间,idd是查询序号 ALTER proc db_query1 @d1 datetime ,@d2 datetime =@d1 ,@idd tinyint
as if @idd =1 /*PTV销售*/
begin
select........................ return
end
if @idd =2 /*dl光电销售*/
begin
select........................ return
end
if @idd =3 --批发退机
begin
delete wangj.dbo.db_tuiji
insert into wangj.dbo.db_tuiji select .......................
update wangj.dbo.db_tuiji set 类别='RGB' FROM .....................
update wangj.dbo.db_tuiji set 类别='DG' FROM .......................
select * from wangj.dbo.db_tuiji
return
end
以下是我在vba中使用这个存储过程的部份代码: With rst
.ActiveConnection = conn
.CursorLocation = adUseServer
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
.Open "db_query1 '" & Ds & "','" & De & "'," & QueryIdd
If .EOF Then
MsgBox Ds & " ~ " & De & " 期间的“" & txtIDD & "”无数据...", vbOKOnly, "信息"
End
End If
End With
当queryidd=1或者2时,,程序能正常执行 ,但queryidd=3时,不正常执行 .Open "db_query1 '" & Ds & "','" & De & "'," & QueryIdd 总是没有打开记录集,导致 下一句 If .EOF Then 出错,提示"对象已关闭,不能操作" 而我在sql查询分析器中执行 db_query1 '2003-1-1','2003-1-2',3 则能得到所要的记录集,即"select * from wangj.dbo.db_tuiji" 分析以上结果,当idd=3时的操作查询语句共有四句,而1/2只有一个比较复杂的选择查询 现在的问题:如何修改以上存储过程中的if @idd =3 段的sql语句,(我要对tuiji表先删除原记录,再添加,再二次update修改,最后想得到tuiji表的结果记录) 谢谢

鱼之乐

To:loadhigh 但我是要将将最后一个的选择查询结果集赋于一个rst然后有其它用的的
if @idd =3 --批发退机
begin
delete wangj.dbo.db_tuiji
insert into wangj.dbo.db_tuiji select .......................
update wangj.dbo.db_tuiji set 类别='RGB' FROM .....................
update wangj.dbo.db_tuiji set 类别='DG' FROM .......................
select * from wangj.dbo.db_tuiji
return
end 我应如何调整这几句sql呢?(操作顺序不能变)

鱼之乐

insert into 与insert 是等价的,应该不是这个问题 否则我在查询分析器中也不可能正确执行的. 请参考刚才csdn上一个朋友的解答,我还没时间 验证是否可行.先贴出来: 在以下两句之间加上 " set rst=rst.NextRecordset" .Open "db_query1 '" & Ds & "','" & De & "'"
If .EOF Then 改成这样 .Open "db_query1 '" & Ds & "','" & De & "'"
Set rst=rst.NextRecordset
If .EOF Then

鱼之乐

不是权限的问题,也不关LockType的事

鱼之乐

谢谢啦~~~~

鱼之乐

呵呵,异曲同工啊,我们俩都想到同样办法绕过了这个问题--是绕过而不是解决 : ) 我也分了二步走,第一步是修改原sp如下
if @idd =3 --批发退机
begin
delete wangj.dbo.db_tuiji
insert into wangj.dbo.db_tuiji select .......................
update wangj.dbo.db_tuiji set 类别='RGB' FROM .....................
update wangj.dbo.db_tuiji set 类别='DG' FROM .......................
/*select * from wangj.dbo.db_tuiji */ ----注销此行
return
end 以下是我在vba中使用这个存储过程的部份代码: With rst
If QueryIdd = 3 Then
conn.Execute "db_query1 '" & Ds & "','" & De & "'," & QueryIdd
.Open "select * from wangj.dbo.db_tuiji" '将原sp中注销掉的sql语句放在这里
Else
.Open "db_query1 '" & Ds & "','" & De & "'," & QueryIdd
End If

If .EOF Then
MsgBox Ds & " ~ " & De & " 期间的“" & txtIDD & "”无数据...", vbOKOnly, "信息"
End
End If
End With 跟本解决问题的办法可能象csdn上的一个朋友说的办法如下: .Open "db_query1 '" & Ds & "','" & De & "'," & QueryIdd Set rst=rst.NextRecordset ''新增此句
If .EOF Then
但时间关系我没再试了,因为我看到这个时,已按前述方法绕过去了 谢谢loadhigh的帮助

loadhigh

我始终觉得sp类似一个过程(sub)，而不是类似于函数（function),不需要返回结果集。需要返回结果集，那就使用cursor.我设计和实现系统中都是这样做的。

loadhigh

我建立了一个和你类似的带参数的sp。好像是insert以后在select ，用rst.open时是报错误的. 不过，我改用另一种cnn和rst结合的方式，就可以返回正确的数据.建议你也改改。 cnn.execute "db_query1 '"+cstr(Ds) +"' , '"+cstr(De)+"' ,"+cstr(QueryIdd ) if QueryIdd = 1 then rst.open "...." '这里可能打开的不是wangj.dbo.db_tuiji，所以请自己加入代码 if QueryIdd = 2 then rst.open "...." '这里可能打开的不是wangj.dbo.db_tuiji，所以请自己加入代码 if QueryIdd = 3 then rst.open "wangj.dbo.db_tuiji", cnn , adOpenForwardOnly, adLockReadOnly with rst
If .EOF Then
MsgBox Ds & " ~ " & De & " 期间的“" & txtIDD & "”无数据...", vbOKOnly, "信息"

End If
End With

loadhigh

那我就建立一个类似你的情况的sql server环境,来看到底是什么地方出了问题?不过我白天是十分的忙,争取明天晚上给你答复.

loadhigh

另外,你在Isql(查询分析器)里面是使用的是sa权限吗?你打开这个cnn的用户也是sa吗? 或者在isql里面的用户权限(对表wangj.dbo.db_tuiji )是否和打开cnn的用户的权限(对表wangj.dbo.db_tuiji )一致?