delphi MSSQL表类型传参

VAImpTable.Open;
VAImpTable.First;
VAImpTable.FetchAll; // Make sure we have ALL the data for the migrate
VAImpTable.First; // Just to make sure that we are back at the first record
spBatchInsert.ParamByName('@input_table').DataType := ftDataSet;
spBatchInsert.ParamByName('@input_table').Direction := pdInput;
spBatchInsert.ParamByName('@input_table').Value := VAImpTable;
try
  spBatchInsert.ExecProc;
except on e: Exception do
  ShowMessage(e.Message);
end;
VAImpTable.Close;