Eliminar key Primary base Firebierd

[ecfisa]

Hola.

Desde Delphi con un TIBSQL:

Código Delphi [-]
procedure TForm1.btQuitarClick(Sender: TObject);
begin
  IBSQL1.SQL.Text:= 'ALTER TABLE TU_TABLA DROP CONSTRAINT TUTABLA_PK';
  try
    IBSQL1.ExecQuery;
  except
    raise Exception.Create('Error: No se puede eliminar CONSTRAINT');
  end;
end;

procedure TForm1.btPonerClick(Sender: TObject);
begin
  IBSQL1.SQL.Text:= 'ALTER TABLE TU_TABLA ADD CONSTRAINT TUTABLA_PK PRIMARY KEY(TUTABLA_ID)';
  try
    IBSQL1.ExecQuery;
  except
    raise Exception.Create('Error: No se puede agregar CONSTRAINT');
  end;
end;

Saludos.