Crear campo en tiempo de ejecucion

[tarco35]

Saludos... trabajo con delphi 6 y tablas pdx. Quisiera ver si en una tabla existe un campo y si no existe pues crearlo (seria de tipo boolean) y realizar esto cuando ejecuto el programa (la tabla ya existe y tiene datos).
Gracias

[Casimiro Notevi]

¿pdx?, ¿eso es paradox?

[ecfisa]

Hola.

Proba de este modo:

Código Delphi [-]
var
  Field: TField;
  i: Integer;
begin
  Table1.Close;
  for i:=0 to Table1.FieldDefs.Count-1 do
    Field:= Table1.FieldDefs[i].CreateField(Table1);

  Field:= TBooleanField.Create(Table1); 
  with Field do
  begin
    FieldName:= 'NUEVO_CAMPO';
    Calculated:= True;
    DataSet:= Table1;
  end;
  Table1.Open;
end;

Saludos.

[ecfisa]

Hola.

Me quedé pensando que tal vez no deseabas crear un campo calculado sino uno permantente.

Podes hacerlo mediante un TQuery, por ejemplo:

Código Delphi [-]
procedure TForm1.CrearCampo(aFieldName, aType: string);
var
  i: Integer;
  Exists: Boolean;
begin
  Table1.Open;
  Exists:= False;
  for i:=0 to Table1.FieldDefs.Count-1 do
    Exists:= Table1.Fields[i].FieldName = aFieldName;
  if not Exists then
  begin
    Table1.Close;
    with Query1 do
    begin
      SQL.Text:= 'ALTER TABLE TU_TABLA ADD '+aFieldName+' '+aType;
      ExecSQL;
      Close;
    end;
  end;
  if not Table1.Active then
    Table1.Open;
end;

Llamada:

Código Delphi [-]
   CrearCampo('NUEVO', 'BOOLEAN');

Saludos.

[tarco35]

EL codigo funciona correctamente cuando lo ejecuto por primera vez y crea el campo. Pero la segunda vez que lo ejecuto me da error:
List index out of bounds en el "for i:=0 ...

Código Delphi [-]
  If NOT TablaPuntos.Active Then TablaPuntos.Open;
  Exists:= False;
  for i:=0 to TablaPuntos.FieldDefs.Count-1 do
    Exists:= TablaPuntos.Fields[i].FieldName = 'Desglose';
  If Not Exists then begin
    TablaPuntos.Close;
    with SQLReestructuraTabla do begin
      SQL.Text:= 'ALTER TABLE PuntosMedicion ADD Desglose BOOLEAN';
      ExecSQL;
      Close;
    end;
  end;
  If Not TablaPuntos.Active Then TablaPuntos.Open;

[ecfisa]

Hola.

No sé como estés implementando el código.

Por si te pudiera ayudar, te adjunto un ejemplo que usa la tabla items.db (que viene con Delphi) en el cuál se agregan siete campos calculados en el evento OnClick de un TButton, sin provocar ningún error.

Saludos.

[tarco35]

Pues el codigo funciona bien, hasta que le das por segunda vez al boton, para que funcione correcto hay que cambiar el bucle FOR por un While quedando así:

Código Delphi [-]
  While (i<=Table1.FieldDefs.Count-1) AND Not Exists Do Begin
    Exists:= Table1.Fields[i].FieldName = aFieldName;
    Inc(i);
  end;

Gracias por la ayuda....

[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.

[Casimiro Notevi]

Lo peligroso de estas cosas es que si hay alguien más conectado... le va a dar una risa

[tarco35]

No hay peligro para otros, ya que el sistema no trabaja en red.
Gracias