存储过程 调用问题

[xuminghua]

存储过程：
CREATE PROCEDURE LIST(@TableName VARCHAR(100))
AS
BEGIN
DECLARE @DD AS VARCHAR(100)
SET @DD = 'SELECT * FROM ' + @TableName
EXEC (@DD)
END
GO
程序调用：
SQLConnection1.Connected :=True;
SQLStoredProc1.SQLConnection :=SQLConnection1;
SQLStoredProc1.Params.Clear ;
SQLStoredProc1.StoredProcName :='List';
SQLStoredProc1.Params.CreateParam(ftString ,'A',ptInput );
SQLStoredProc1.Params.ParamByName('A').Value:='PSYS_Function';
SQLStoredProc1.Open


提示错误
list index out of bounds(0);

[cjianwen]

把open改成 execpro试试~~

可能我写错了~~

[xuminghua]

一样不行

[wdswcy]

---估计是你存恢过程有问题，请改用下面的方法试试

CREATE PROCEDURE LIST(@TableName VARCHAR(100))
AS
BEGIN
DECLARE @DD AS VARCHAR(100)
---将下面这句改改，去了右过的空格
---SET @DD = 'SELECT * FROM ' + @TableName
SET @DD = 'SELECT * FROM ' + rtrim(@TableName)
EXEC (@DD)
END
GO

[wdswcy]

//如果上面的方法还不行，请在调用存储过程的语句中加上SQLStoredProc1.Parameters.Refresh;
//如下：

SQLConnection1.Connected :=True;
SQLStoredProc1.SQLConnection :=SQLConnection1;
SQLStoredProc1.Params.Clear ;
SQLStoredProc1.Parameters.Refresh;
SQLStoredProc1.StoredProcName :='List';
SQLStoredProc1.Params.CreateParam(ftString ,'A',ptInput );
SQLStoredProc1.Params.ParamByName('A').Value:='PSYS_Function';
SQLStoredProc1.Open

[mfwzhou]

SQLConnection1.Connected :=True;
SQLStoredProc1.SQLConnection :=SQLConnection1;
SQLStoredProc1.StoredProcName :='List';
SQLStoredProc1.Params.Clear ;
SQLStoredProc1.Params.CreateParam(ftString ,'A',ptInput );
SQLStoredProc1.Params.ParamByName('A').Value:='PSYS_Function';
SQLStoredProc1.Execpro