long li_orno,li_sum
string ls_info
string ls_return
 DECLARE pro_test PROCEDURE FOR 'ProceTest';
// messagebox("info",ls_info)

   
//此处开始执行存储过程
  execute  pro_test;
  messagebox("SQLCA.sqlcode",SQLCA.sqlcode)
//    messagebox("ls_return",ls_return)
// //判断执行结果
CHOOSE CASE SQLCA.sqlcode
CASE 0
       //如果返回0则表示执行成功，至少存在一个SELECT结果集
       //借助LOOP循环开始捕获这个SELECT结果集

       DO
            FETCH pro_test INTO :ls_info,:li_sum ;
            CHOOSE CASE SQLCA.sqlcode
            CASE 0
     messagebox("info",ls_info)
     messagebox("return",li_sum)
              CASE 100
                 MessageBox ("End of Result Set",  " rows fetched")
              CASE -1
                 MessageBox ("Fetch Failed",string (SQLCA.sqldbcode)+ " = " +SQLCA.sqlerrtext)
               END CHOOSE
       LOOP WHILE SQLCA.sqlcode = 0
end choose

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

-- =============================================
-- Author:  Sidney
-- ALTER  date: 2010-10-16
-- Description: 读取用户信息
-- =============================================
ALTER  PROCEDURE [dbo].[ProceTest]
AS
BEGIN
SET NOCOUNT off
declare @as_info char(500)
declare @as_sum int
declare @ls_xm char(20)
declare @ls_zh char(20)

DECLARE t_user_Cursor CURSOR FOR
SELECT f_xm,f_zh
FROM t_user
OPEN t_user_Cursor
FETCH NEXT FROM t_user_Cursor
into @ls_xm,@ls_zh
WHILE @@FETCH_STATUS = 0
BEGIN
    print @ls_xm
    print @ls_zh
    FETCH NEXT  FROM t_user_Cursor into @ls_xm,@ls_zh
END

CLOSE t_user_Cursor
DEALLOCATE t_user_Cursor

select @as_info=f_xm,@as_sum=1  from t_user;
select 'test ok!' as f_xm,1 as sum
--select @as_sum=count(*) from t_user
--union

 
END

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO