Crear campo en tiempo de ejecucion

[ecfisa]

Hola Tarco35.

Me acordé de una función que simplifica mucho el código y trabaja correctamente:

Código Delphi [-]
procedure TForm1.CrearCampo(aFieldName, aType: string);
begin
  if Table1.FindField(aFieldName) = nil then
  begin
    Table1.Close;
    with Query1 do
    begin
      SQL.Text:= 'ALTER TABLE ITEMS ADD ' + aFieldName  + ' ' + aType;
      ExecSQL;
      Close;
    end;
    Table1.Open;
  end;
end;

Saludos.