Campo nuevo en tiempo de ejecución

[Adrianmex]

De nuevo gracias, Coso, por tu ayuda.

Estaré revisando ese vínculo que me has dado. Espero poderlo hacer así como me indicas.

Nos leemos en otro tema y que estés bien.

Saludos.

[NeoNew]

Bueno yo utilizo Absolute DataBase y es muy facil, si te sirve aquí esta.

[Adrianmex]

Hola, NeoNew, he instalado y probado el componente que me indicas, pero al correr la aplicación me dice: "Undeclared identifier: 'aftString'" cuando quiero agregar un campo de tipo String, y realmente no sé qué está mal.

Si me pudieras auxiliar con eso, te lo agradecería mucho.

[[AzidRain]]

Adrian, no has comentado que tipo de tablas estas usando, el post corresponde a tablas Planas por lo que de ser así va a estar canijo que lo puedas hacer. Los motores de BD "grandes" si incorporan el soport para alter table completito como te dijeron, pero bueno...no te hemos preguntado para que quieres agregar un campo cada vez que presiones el botón, teóricamente podrías hacerlo muchas veces agregando un campo cada vez, cosa que no se me hace muy lógica.

Por que no nos platicas de que se trata lo que estás haciendo y te podemos ayudar además con la lógica del problema, recuerda que a veces uno piensa que la solución que escogimos es la mejor y sin embargo alguién mas puede pensar de otra forma mas sencilla.

[NeoNew]

Adrianmex: Debes incluir Uses ABSTypes; que son los tipos de datos de Absolute.
Mira mas aquí.
AzidRain: Yo los utilizo cuando pido en tiempo de ejecución un rango y quiero llenar una tabla con ese rango.

[Adrianmex]

Hola NeoNew, aquí molestando una vez más.

He agregado ABSTypes al uses y me funcionó de maravilla, el único detalle es que al crear el campo nuevo se elimina toda la información que ya contenía anteriormente la tabla y me deja únicamente con el campo recién creado. Como se ve, no estoy experimentado con eso y no sé si algo esté haciendo mal, pero lo he hecho tal y como indica el ejemplo de la página.

[NeoNew]

Holaa AdrianMex...
Agregar 40 campos string a una tabla:

Código Delphi [-]
  ABSTable1.Close;
  intHasta := 40;
  for i := 1 to intHasta do
  begin
    strCampo := IntToStr(i);
    ABSTable1.RestructureFieldDefs.Add(strCampo,aftString,10,False);
  end;
  ABSTable1.RestructureTable(absLog);
  ABSTable1.Open;

Me cuentas...