How to add a field programatically to a TAdoTable in Delphi

Question

In my Delphi 2009 application I need to check if a field exists and if it doesn\'t add it during application execution.

I have figured out the test for the field,

Answer 1

If the table is part of a SQL Databse, once you detect that the field is missing you can add the field via SQL, then re-open the table.

cmd := tAdoCommand.create;
try
  cmd.Connection := AdoConnection1;
  cmd.CommandText := 'ALTER TABLE table ADD TEST nvarchar(30)';
  cmd.Execute;
finally
  cmd.Free;
end;