Añadir campo nuevo

[jaimeh]

Hola de nuevo

Lo de la ayuda de delphi 7 entiendo que no se puede llamar directamente a add. No se hasta que punto lo llamaba directamente.

Aqui os pongo el código que me habéis pedido

Código Delphi [-]

procedure CrearTabla(NomTabla: String);

begin



   if NOT FTablas2.IBTable1.Transaction.Active then
      FTablas2.IBTable1.Transaction.StartTransaction;

//   if FTablas2.IBTable1.Active then
//     FTablas2.IBTable1.Close;


    FTablas2.IBTable1.TableName := NomTabla;  // nomTabla;

   try
     if FTablas2.IBTable1.Exists then
     begin

      FTablas2.IBTable1.DeleteTable;
      FTablas2.IBTable1.Transaction.Commit;
     end;
   Except
     on E: Exception  do
      Application.MessageBox( PChar( E.ClassName + ': ' + E.Message ),
                             'Error', MB_ICONSTOP );
   end;

   FTablas2.IBTable1.FieldDefs.Clear;

   FTablas2.IBTable1.FieldDefs.Add('Numero', ftInteger);
   FTablas2.IBTable1.FieldDefs.Add('Nombre', ftString, 32);
   FTablas2.IBTable1.FieldDefs.Add('Codigo', ftInteger);
   FTablas2.IBTable1.FieldDefs.Add('Cantidad', ftInteger);
   FTablas2.IBTable1.FieldDefs.Add('Cantidadx100', ftString, 5);





   if NOT FTablas2.IBTable1.Transaction.Active then
      FTablas2.IBTable1.Transaction.StartTransaction;

   try
     FTablas2.IBTable1.CreateTable;
     FTablas2.IBTable1.Transaction.Commit;
   Except
     on E: Exception  do
      Application.MessageBox( PChar( E.ClassName + ': ' + E.Message ),
                             'Error', MB_ICONSTOP );
   end;



end;

Esto me crea una tabla física persistente, con 5 campos, en una base de datos firebird.

Espero que haya servido para algo.



Saludos a todos