这样的存储过程如何调用？

SQL code

CREATE    PROCEDURE   qqqqq  @tablename   varchar(200),        --表名       @sl int  output  as   begin        declare   @sql   varchar(1000)          set @sql='select '+@sl+'=count(1)  from '+@tablename       exec(@sql)      return          endGO

这样的存储过程如何调用？或者如何更改

[解决办法]
AdoQuery 的，不知道还有没有更好的方法，xsdb 是表名，你可以替换成变量，其他不用动

procedure TForm1.Button2Click(Sender: TObject);
var
sSQL: string;
begin
sSQL := 'declare @mysl int ';
sSQL := sSQL + 'exec qqq ''xsdb'', @mysl output ';
sSQL := sSQL + 'select @mysl as sl';
AdoQuery1.Close;
AdoQuery1.SQL.Text := sSQL;
AdoQuery1.Open;
Edit2.Text := AdoQuery1.FieldByName('sl').AsString;
end;