¿ Se pueden agregar campos a una tabla tipo paradox7 de forma dinámica en delphi 6 ?

[cesar_gta86]

Hola que tal amigos, tengo una duda. Lo que pasa es que estamos desarrollando un sistema de B.D. pero necesitamos saber si se pueden agregar nuevos campos o columnas de forma dinámica (con código) a tablas tipo paradox7, estamos utilizando delphi 6. Y si se pudiera realizar esto, a ver si me podrian dar un ejemplo.

MIL grácias de antemano.
Saludos.

[marcoszorrilla]

Código Delphi [-]
if FileExists(cNomTemp) then
  DeleteFile(cNomTemp);

  if Not FileExists(cNomTemp) then
  begin
    Try
    DmPan.QrTemporales.Close;
    DmPan.QrTemporales.Sql.Clear;
    DmPan.QrTemporales.Sql.Add('Create Table '+QuotedStr(cNomTemp));
    DmPan.QrTemporales.Sql.Add('(');
    DmPan.QrTemporales.Sql.Add('Codigo        Char(07),');
    DmPan.QrTemporales.Sql.Add('Producto      Char(15),');
    DmPan.QrTemporales.Sql.Add('Cantidad  Numeric(10,2),');
    DmPan.QrTemporales.Sql.Add('Total     Numeric(10,2),');
    DmPan.QrTemporales.Sql.Add('Fecha              Date');
    DmPan.QrTemporales.Sql.Add(')');
    DmPan.QrTemporales.ExecSQL;
    Except
    ShowMessage('Error al crear la tabla temporal de facturas.');
    end;
   end;

Asi se crea una tabla nueva, para agregar campos no tienes más que utilizar: ALTER TABLE.

Un Saludo.

[[eduarcol]]

Código Delphi [-]
with TTable.Create(Application) do
begin
   //Añade los campos
   FieldDefs.Clear;
            FieldDefs.Add(NombreCampo,TipoDato,Longuitud,Requerido);
   //Añade los indices
   IndexDefs.Clear;
               with IndexDefs.AddIndexDef do
               begin
                  Name := NombreIndice;
                  Fields := NombreCampo;
                  Options := Opcion;
               end;
            end;

  CreateTable;
end;

Se me adelanto Marcos

La diferencia es que el lo hace por SQL yo lo hago por los metodos propios del TTable

[cesar_gta86]

Oye eduarcol, buenos días, mira tengo un pequeño detalle; lo que pasa es que yo, ya tengo la tabla creada de forma estática, pero me veo en la necesidad de agregarle nuevos campos a la misma, no la de crear una nueva tabla y agregarle campos.

Con la ayuda que me diste intenté agregarle nuevos campos a la tabla que ya tengo creada, pero no lo hace; mira te muestro el código:

Table1.FieldDefs.Add('Ciudad_alumno',ftString,50,false);

Intenté guardar los cambios en la tabla con table1.refresh, pero creo que el refresh es sólo para guardar los cambios de los datos insertados. También intenté poner la tabla en modo de edición, pero sucede lo mismo, no guarda los nuevos campos.

Grácias Marcos, por tu ayuda con sql, ya que posteriormente me servirá.

[[eduarcol]]

de ser asi, la respuesta te la ha dado Marcos, debes utilizar el Alter Table

[cesar_gta86]

Oye eduarcol, entonces esto no es posible de hacer con las tablas paradox7

[[eduarcol]]

Empezado por cesar_gta86

Oye eduarcol, entonces esto no es posible de hacer con las tablas paradox7

Código Delphi [-]
sqModificador.Active := False;
sqModificador.Sql.Clear;
sqModificador.SQL.Add('Alter Table "c:\mibase\NombreTabla" add MiCampo MiTipoDato);
sqModificador.ExecSQL;