Saber si un campo existe mediante sql falla

[[AgustinOrtu]]

Saludos tarco35

Código Delphi [-]
  TablaTextos.Close;
  with SQLReestructuraTabla do begin
    Close;
    SQL.Text:= 'SELECT * FROM \BIA_TEST\DataBase\Textos';
    Open;
    Existe := FindField('Texto') <> NIL;
  end;

Prueba de este modo a ver

[tarco35]

Muchas gracias.. probado y funcionando correctamente.

[tarco35]

Ahora me da un error cuando, por ejemplo, intento hacer:

Código Delphi [-]

TablaTextos.FieldByName('Texto').AsString := 'Hola';

me dice que ese campo no existe... (aunque realmente si que existe, ya que se crea bien)

[[AgustinOrtu]]

Saludos nuevamente tarco35

Debes refrescar tu componente TablaTextos cuando agregas el nuevo campo. Si es un query deberia bastarle con Requery; sino tambien podes usar Close y luego Open

Otra cosa, al modificar el contenido de un campo acordate de poner el DataSet en Edicion, es decir

Código Delphi [-]
 TablaTextos.Edit
 TablaTextos.FieldByName.AsString := 'Hola Mundo';
 TablaTextos.Post;

Prueba y nos dices

[ecfisa]

Hola tarco35.

Un detalle; cotejar la existencia de la columna comparando el resultado de la función FindField con nil, te puede dar problemas ante un involuntario doble intento de creación.

Creo que es mas seguro hacerlo de este modo:

Código Delphi [-]
function ExistsField(aDataSet: TDataSet; const aFieldName: string): Boolean;
var
  TS: TStrings;
begin
  Result := False;
  TS := TStringList.Create;
  try
    aDataSet.GetFieldNames(TS);
    Result := TS.IndexOf(aFieldName) <> -1;
  finally
    TS.Free;
  end;
end;

El código para agregar una columna quedaría mas o menos así:

Código Delphi [-]
...
begin
 if not ExistsField(TablaTextos, 'TEXTO') then
  begin
    TablaTextos.Close;
    SQLReestructuraTabla.Close;
    SQLReestructuraTabla.SQL.Text := 'ALTER TABLE TU_TABLA ADD TEXTO VARCHAR(10)';
    SQLReestructuraTabla.ExecSQL;
    TablaTextos.Open;
  end;
end;

Y para eliminarla:

Código Delphi [-]
...
begin
  if ExistsField(TablaTextos, 'TEXTO') then
  begin
    TablaTextos.Close;
    SQLReestructuraTabla.Close;
    SQLReestructuraTabla.SQL.Text := 'ALTER TABLE TU_TABLA DROP TEXTO';
    SQLReestructuraTabla.ExecSQL;
    TablaTextos.Open;
  end;
end;

Saludos