求大神转换成oracle存储过程

Question

USE [HAnewData0824]GO/****** Object: StoredProcedure [dbo].[ProcCustomPage] Script Date: 04/20/2017 15:28:18 ******/SET ANSI_NULLS OFFGOSET QUOTED_IDENTIFIER OFFGOALTER PROCEDURE [dbo].ProcCustomPage, --要分页显示的表名@KeyFields nvarchar(1000), --用于定位记录的主键(惟一键)字段,可以是逗号分隔的多个字段@PageIndex int=1, --要显示的页码@PageSize int=20, --每页的大小(记录数)@ShowFields nvarchar(1000)='', --以逗号分隔的要显示的字段列表,如果不指定,则显示所有字段@OrderFields nvarchar(1000)='', --以逗号分隔的排序字段列表,可以指定在字段后面指定DESC/ASC@WhereString nvarchar(max)='', --查询条件,不要加WHERE@RecordCount int OUTPUT --总页数)ASSET NOCOUNT ON--分页字段检查IF ISNULL(@KeyFields,N'')=''BEGIN RAISERROR(N'分页处理需要主键（或者惟一键）',1,16) RETURNEND--其他参数检查及规范IF ISNULL(@PageIndex,0)0 SELECT @Field=LEFT(@s,CHARINDEX(N',',@s)-1), @s=STUFF(@s,1,CHARINDEX(N',',@s),N''), @Where1=@Where1+N' AND a.'+@Field+N'=b.'+@Field, @Where2=@Where2+N' AND b.'+@Field+N' IS NULL', @WhereString=REPLACE(@WhereString,@Field,N'a.'+@Field), @OrderFields=REPLACE(@OrderFields,@Field,N'a.'+@Field), @ShowFields=REPLACE(@ShowFields,@Field,N'a.'+@Field) SELECT @WhereString=REPLACE(@WhereString,@s,N'a.'+@s), @OrderFields=REPLACE(@OrderFields,@s,N'a.'+@s), @ShowFields=REPLACE(@ShowFields,@s,N'a.'+@s), @Where1=STUFF(@Where1+N' AND a.'+@s+N'=b.'+@s,1,5,N''), @Where2=CASE WHEN @WhereString='' THEN N'WHERE (' ELSE @WhereString+N' AND (' END+N'b.'+@s+N' IS NULL'+@Where2+N')' --执行查询 EXEC(N'SELECT TOP '+@TopN +N' '+@ShowFields +N' FROM '+@TableName +N' a LEFT JOIN(SELECT TOP '+@TopN1 +N' '+@KeyFields +N' FROM '+@TableName +N' a '+@WhereString +N' '+@OrderFields +N')b ON '+@Where1 +N' '+@Where2 +N' '+@OrderFields)END