delphi执行存储过程出

Question

下面有一个数据查询分页的存储过程：我在sql 里用：
 EXEC usp_PagingLarge 'commodity left outer join store_total2 on commodity.code=store_total2.code right outer join depart on depart.dept_id=store_total2.dh2', 
'commodity.code', 2, "commodity.code like 'as%' ", '', 'commodity.code  '执行正常显示。但在DELPHI里用adoquery控件：adoquery2.Close;
adoquery2.Parameters.ParamByName('@tablenames').Value:='commodity left outer join store_total2 on commodity.code=store_total2.code right outer join depart on depart.dept_id=store_total2.dh2';
adoquery2.Parameters.ParamByName('@PrimaryKey').Value:='commodity.code';      //
adoquery2.Parameters.ParamByName('@Fields').Value:='';
adoquery2.Parameters.ParamByName('@PageSize').Value:=20;
adoquery2.Parameters.ParamByName('@CurrentPage').Value:=2;
adoquery2.Parameters.ParamByName('@Filter').Value:='commodity.code like'+''''+'as'+'%'+'''' ;
adoquery2.Parameters.ParamByName('@Group').Value:='commodity.code' ;  把这改的值改成''  就不会出错。是什么原因呀？
adoquery2.Parameters.ParamByName('@Order').Value:='commodity.code' ;  adoquery2.open;显示出错。
数据查询分页的存储过程。CREATE PROCEDURE usp_PagingLarge
@TableNames VARCHAR(200),    --表名，可以是多个表，但不能用别名
@PrimaryKey VARCHAR(100),    --主键，可以为空，但@Order为空时该值不能为空
@Fields    VARCHAR(200),        --要取出的字段，可以是多个表的字段，可以为空，为空表示select *
@PageSize INT,            --每页记录数
@CurrentPage INT,        --当前页，0表示第1页
@Filter VARCHAR(200) = '',    --条件，可以为空，不用填 where
@Group VARCHAR(200) = '',    --分组依据，可以为空，不用填 group by
@Order VARCHAR(200) = ''    --排序，可以为空，为空默认按主键升序排列，不用填 order by
AS
BEGIN
    DECLARE @SortColumn VARCHAR(200)
    DECLARE @Operator CHAR(2)
    DECLARE @SortTable VARCHAR(200)
    DECLARE @SortName VARCHAR(200)
    IF @Fields = ''
        SET @Fields = '*'
    IF @Filter = ''
        SET @Filter = 'WHERE 1=1'
    ELSE
        SET @Filter = 'WHERE ' +  @Filter
    IF @Group <>''
        SET @Group = 'GROUP BY ' + @Group    IF @Order <> ''
    BEGIN
        DECLARE @pos1 INT, @pos2 INT
        SET @Order = REPLACE(REPLACE(@Order, ' asc', ' ASC'), ' desc', ' DESC')
        IF CHARINDEX(' DESC', @Order) > 0
            IF CHARINDEX(' ASC', @Order) > 0
            BEGIN
                IF CHARINDEX(' DESC', @Order) < CHARINDEX(' ASC', @Order)
                    SET @Operator = '<='
                ELSE
                    SET @Operator = '>='
            END
            ELSE
                SET @Operator = '<='
        ELSE
            SET @Operator = '>='
        SET @SortColumn = REPLACE(REPLACE(REPLACE(@Order, ' ASC', ''), ' DESC', ''), ' ', '')
        SET @pos1 = CHARINDEX(',', @SortColumn)
        IF @pos1 > 0
            SET @SortColumn = SUBSTRING(@SortColumn, 1, @pos1-1)
        SET @pos2 = CHARINDEX('.', @SortColumn)
        IF @pos2 > 0
        BEGIN
            SET @SortTable = SUBSTRING(@SortColumn, 1, @pos2-1)
            IF @pos1 > 0 
                SET @SortName = SUBSTRING(@SortColumn, @pos2+1, @pos1-@pos2-1)
            ELSE
                SET @SortName = SUBSTRING(@SortColumn, @pos2+1, LEN(@SortColumn)-@pos2)
        END
        ELSE
        BEGIN
            SET @SortTable = @TableNames
            SET @SortName = @SortColumn
        END
    END
    ELSE
    BEGIN
        SET @SortColumn = @PrimaryKey
        SET @SortTable = @TableNames
        SET @SortName = @SortColumn
        SET @Order = @SortColumn
        SET @Operator = '>='
    END    DECLARE @type varchar(50)
    DECLARE @prec int
    SELECT @type=t.name, @prec=c.prec
    FROM sysobjects o 
    JOIN syscolumns c on o.id=c.id
    JOIN systypes t on c.xusertype=t.xusertype
    WHERE o.name = @SortTable AND c.name = @SortName
    IF CHARINDEX('char', @type) > 0
    SET @type = @type + '(' + CAST(@prec AS varchar) + ')'    DECLARE @TopRows INT
    SET @TopRows = @PageSize * @CurrentPage + 1
    print @TopRows
    print @Operator
    EXEC('
        DECLARE @SortColumnBegin ' + @type + '
        SET ROWCOUNT ' + @TopRows + '
        SELECT @SortColumnBegin=' + @SortColumn + ' FROM  ' + @TableNames + ' ' + @Filter + ' ' + @Group + ' ORDER BY ' + @Order + '
        SET ROWCOUNT ' + @PageSize + '
        SELECT ' + @Fields + ' FROM  ' + @TableNames + ' ' + @Filter  + ' AND ' + @SortColumn + '' + @Operator + '@SortColumnBegin ' + @Group + ' ORDER BY ' + @Order + '    
    ')    
ENDGO

Answer 1

把这行的值改为：adoquery2.Parameters.ParamByName('@Group').Value:='' ;  就正常，为何在sql 里面可以，在这里不可以

Answer 2

看不出来，你最好进入断点把这个SQL取出来进行比较，这样最直观。

Answer 3

很明显，在sql中只提供了6个参数，而存储过程需要8个参数。当然，后边的参数默认为“空”，也就是说没有用到@Group参数值，命令没有问题。
而在应用程序中，使用了所有8个参数。
问题来了：        SELECT @SortColumnBegin=' + @SortColumn + ' FROM  ' + @TableNames + ' ' + @Filter + ' ' + @Group + ' ORDER BY ' + @Order + ' 
        SET ROWCOUNT ' + @PageSize + ' 
        SELECT ' + @Fields + ' FROM  ' + @TableNames + ' ' + @Filter  + ' AND ' + @SortColumn + '' + @Operator + '@SortColumnBegin ' + @Group + ' ORDER BY ' + @Order + '     
看看存储过程中两个需要@Group参数的地方，语法错误！