把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

[yixilan]

太长了，给你转了一部分：
create OR REPLACE Procedure Page (
TableName VARCHAR2, --表名
Fields VARCHAR2 := '*', --字段名(全部字段为*)
OrderField VARCHAR2, --排序字段(必须!支持多字段)
sqlWhere VARCHAR2 := Null,--条件语句(不用加where)
pageSize NUMBER, --每页多少条记录
pageIndex NUMBER := 1 , --指定当前为第几页
TotalPage NUMBER output --返回总页数
)
as
sql VARCHAR2(4000);
totalRecord NUMBER;
total NVARCHAR2;
begin

--计算总记录数
sql := 'select @totalRecord = count(*) from ' || TableName;
if (SqlWhere = '' or sqlWhere IS NULL) THEN
sql := 'select @totalRecord = count(*) from ' || TableName;
else
sql := 'select @totalRecord = count(*) from ' || TableName
|| ' where ' || sqlWhere;
END IF;

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

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

sql := 'Select * FROM (select ROW_NUMBER() Over(order by ' + @OrderField + ') as rowId,' + @Fields + ' from ' + @TableName
...
--注意，转换规则：
1.把变量定义前的@去掉
2.赋值的时候，直接用： 变量 := 值
3.每行命令后面加;号
4.begin Tran和Commit Tran，变成begin 和 commit就行，不用加Tran
5.拼串的时候，不用"+"，要用"||"
。。

[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; 
/

[noteasytoregister]

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;

--可以改为：

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

  execute immediate v_sql into v_totalRecord;