先好好想想,为什么要这么做?你想做消息框无非是向用户做点提示比较好的方法是返回数据纪录,ADO里的Recordset里的NextRecordset使得你能处理这样的效果select 'before returning recordset' as msg
select * from sometable
select 'after returning recordset' as msg这样,当你处理返回纪录时set rs = conn.execute ("someSP")
do until rs is nothing
do while not rs.eof
for n=0 to rs.fields.count -1
if rs.fields(n).Name = "msg" then
msgbox rs.fields(n).value
else
'do something else
end if
next
rs.movenext
loop
set rs = rs.nextRecordSet
loop
select * from sometable
select 'after returning recordset' as msg这样,当你处理返回纪录时set rs = conn.execute ("someSP")
do until rs is nothing
do while not rs.eof
for n=0 to rs.fields.count -1
if rs.fields(n).Name = "msg" then
msgbox rs.fields(n).value
else
'do something else
end if
next
rs.movenext
loop
set rs = rs.nextRecordSet
loop
瞎侃的:)若只是為了調試你的SP,那可用Print或Query Analyzer的Debug功能(SQL 2K)
所以在考虑这些问题的时候最好先动动脑筋.