把sqlserver的存储过程改为oracle的

Question

下面是一个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

Answer 1

太长了，给你转了一部分：
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.拼串的时候，不用"+"，要用"||"
。。

Answer 2

--刚从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; 
/

Answer 3

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;