用預存程序自動建表（表名不限）

一個網友想做一個每建立一個使用者就為該使用者建一張表的例子。我就為他寫下了下面的過程及如何調用儲存過

程的方法以供參考
   
CREATE PROCEDURE autoCreateTable
       
   @tableName char(10)
    
 AS

exec('
  create table '+@tableName+'
  (
       ID int identity(1,1) primary key,
       name char(16)
  )')
GO

如何調用預存程序

    with datamodule1.ADOStoredProc_Pub do
    begin
      if active then close;
      procedureName:='autoCreateTable';
      parameters.Clear;
      parameters.Add;
     
      parameters[0].Value:=UserName;
     
      try
        execproc;
      except
       
        exit;
      end;
      messagebox(0,pchar('建表成功'),pchar('成功'),mb_ok+mb_iconinformation);
    end;// end with