Agregar un campo a una tabla paradox (runtime)

[marcoszorrilla]

Porque no pruebas con este código:

Es mucho más simple creo.

procedure TForm1.Button1Click(Sender: TObject);
var
nCont:Integer;
sLista:TStringList;

begin
sLista:=TStringList.Create();
table1.FieldDefs.Update;

  for nCont:=0 to Table1.FieldDefs.Count -1 do
  begin
  sLista.Add(Table1.FieldDefs[nCont].Name);
  end;

  sLista.Sort;

  If sLista.Find('Sueldo',nCont) then
  ShowMessage('El campo ya existe.')
  else
  begin
  Table1.Close;
  Query1.Close;
  Query1.Sql.Clear;
  Query1.Sql.Add('Alter Table ''Albaranes.db'' Add Sueldo Integer');

  Query1.ExecSQL;
  end;


end;

Se necesita un Ttable y un Tquery.

Un Saludo.