把sqlserver的存储过程改为oracle的。。。最后的一点分了~！！

[ice9ying]

下面是一个sqlserver的分页存储过程，但是要用到oracle上要怎么改？怎么改为符合oracle语法的存储过程，拜托~！！！

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go


create Procedure [dbo].[Page]
@TableName varchar(50), --表名
@Fields varchar(1000) = '*', --字段名(全部字段为*)
@OrderField varchar(1000), --排序字段(必须!支持多字段)
@sqlWhere varchar(1000) = Null,--条件语句(不用加where)
@pageSize int, --每页多少条记录
@pageIndex int = 1 , --指定当前为第几页
@TotalPage int output --返回总页数
as
begin

Begin Tran --开始事务

Declare @sql nvarchar(4000);
Declare @totalRecord int;
Declare @total nvarchar(400);

--计算总记录数
set @sql = 'select @totalRecord = count(*) from ' + @TableName
if (@SqlWhere='' or @sqlWhere=NULL)
set @sql = 'select @totalRecord = count(*) from ' + @TableName
else
set @sql = 'select @totalRecord = count(*) from ' + @TableName + ' where ' + @sqlWhere

EXEC sp_executesql @sql,N'@totalRecord int OUTPUT',@totalRecord OUTPUT--计算总记录数

--计算总数量
select @TotalPage=@totalRecord--CEILING((@totalRecord+0.0)/@PageSize)+1
set @total = @totalRecord;
set @Fields = @Fields+','+@total+' as totalcount'

set @sql = 'Select * FROM (select ROW_NUMBER() Over(order by ' + @OrderField + ') as rowId,' + @Fields + ' from ' + @TableName

if (@SqlWhere='' or @sqlWhere=NULL)
set @sql = 'Select * FROM (select ROW_NUMBER() Over(order by ' + @OrderField + ') as rowId,' + @Fields + ' from ' + @TableName
else
set @sql = 'Select * FROM (select ROW_NUMBER() Over(order by ' + @OrderField + ') as rowId,' + @Fields + ' from ' + @TableName + ' where ' + @SqlWhere


--处理页数超出范围情况
if @PageIndex<=0
Set @pageIndex = 1

if @pageIndex>@TotalPage
Set @pageIndex = @TotalPage

--处理开始点和结束点
Declare @StartRecord int
Declare @EndRecord int

set @StartRecord = (@pageIndex-1)*@PageSize + 1
set @EndRecord = @StartRecord + @pageSize - 1

--继续合成sql语句
set @Sql = @Sql + ') as ' + @TableName + ' where rowId between ' + Convert(varchar(50),@StartRecord) + ' and ' + Convert(varchar(50),@EndRecord)
--print @Sql
Exec(@Sql)

print @TotalPage
If @@Error <> 0
Begin
RollBack Tran
Return -1
End
Else
Begin
Commit Tran
--print @totalRecord
Return @totalRecord ---返回记录总数


End

end

[noteasytoregister]

--刚从SQL转向Oracle,好不容易改了，楼主测试下
CREATE   OR   REPLACE   PACKAGE   pkg_Page
AS
      TYPE   myrctype   IS   REF CURSOR;

      PROCEDURE   Page  (v_TableName varchar2, --表名
                         v_Fields varchar2 := '*', --字段名(全部字段为*)
                         v_OrderField varchar2, --排序字段(必须!支持多字段)
                         v_sqlWhere varchar2,--条件语句(不用加where)
                         v_pageSize number, --每页多少条记录
                         v_pageIndex number := 1 , --指定当前为第几页
                         v_TotalPage out number,   
                         p_rc   OUT   myrctype);
END   pkg_Page; 
/


CREATE   OR   REPLACE   PACKAGE   BODY   pkg_Page
AS  
Procedure Page(
 v_TableName varchar2, --表名
 v_Fields varchar2 := '*', --字段名(全部字段为*)
 v_OrderField varchar2, --排序字段(必须!支持多字段)
 v_sqlWhere varchar2,--条件语句(不用加where)
 v_pageSize number, --每页多少条记录
 v_pageIndex number := 1 , --指定当前为第几页
 v_TotalPage out number,
 p_rc   OUT   myrctype) --返回总页数
as
   v_sql varchar2(4000);
   v_totalRecord number;  
   v_total varchar2(4000);
   v_StartRecord number;
   v_EndRecord number;
   v_Fields2 varchar2(4000);
   v_pageIndex2 number;
begin

  if (v_SqlWhere='') or (v_sqlWhere is NULL) then
    v_sql := 'begin select count(*) into :v_totalRecord from ' || v_TableName || '; end; ';
  else
    v_sql := 'begin select count(*) into :v_totalRecord from ' || v_TableName  ||  ' where ' || v_sqlWhere || '; end; ';
  end if;

  execute immediate v_sql using out v_totalRecord;
   
  --计算总数量
  v_TotalPage := v_totalRecord;--CEILING((v_totalRecord || 0.0)/v_PageSize) || 1
  v_total := v_totalRecord;
  v_Fields2 := v_Fields || ',' || v_total || ' as totalcount';
  

  if (v_SqlWhere='') or (v_sqlWhere is NULL) then
    v_sql := 'Select * FROM (select ROW_NUMBER() Over(order by '  ||  v_OrderField  ||  ') as rn,'  ||  v_Fields  ||  ' from '  ||  v_TableName ;
  else
   v_sql := 'Select * FROM (select ROW_NUMBER() Over(order by '  ||  v_OrderField  ||  ') as rn,'  ||  v_Fields  ||  ' from '  ||  v_TableName  ||  ' where '  ||  v_SqlWhere  ;
  end if;
   
   
  --处理页数超出范围情况
  if v_PageIndex<=0 then 
   v_pageIndex2 := 1;
  end if;
   
  if v_pageIndex>v_TotalPage then
    v_pageIndex2 := v_TotalPage;
  end if;    

  --处理开始点和结束点
   
   v_StartRecord := (v_pageIndex2-1)*v_PageSize  +  1;
   v_EndRecord := v_StartRecord  +  v_pageSize - 1;

  --继续合成sql语句
   v_Sql := v_Sql  ||  ')  '  ||  v_TableName  ||  ' where rn between '  ||  to_char(v_StartRecord)  ||  ' and '  ||  to_char(v_EndRecord);

  open p_rc for v_sql;
  commit; 
end Page;

END   pkg_Page; 
/

[first_23today]

PLS-00103: 出现符号 "CREATE"，我测试时为什么会出现这个错误呢？

[noteasytoregister]

我是在SQL*Plus运行没错误。

[ice9ying]

[Quote=引用 3 楼 noteasytoregister 的回复:]

我是在SQL*Plus运行没错误。
[/Quote]
恩，没错，谢谢~

[first_23today]

Toad for Oracle 9.7下面出现的错误，有办法解决吗