qq_24002703 2017-04-20 23:56
浏览 458
已结题

求大神转换成oracle存储过程

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

  • 写回答

0条回答

    报告相同问题?

    悬赏问题

    • ¥20 求一个html代码,有偿
    • ¥100 关于使用MATLAB中copularnd函数的问题
    • ¥20 在虚拟机的pycharm上
    • ¥15 jupyterthemes 设置完毕后没有效果
    • ¥15 matlab图像高斯低通滤波
    • ¥15 针对曲面部件的制孔路径规划,大家有什么思路吗
    • ¥15 钢筋实图交点识别,机器视觉代码
    • ¥15 如何在Linux系统中,但是在window系统上idea里面可以正常运行?(相关搜索:jar包)
    • ¥50 400g qsfp 光模块iphy方案
    • ¥15 两块ADC0804用proteus仿真时,出现异常