Añadir campo nuevo

[rgstuamigo]

Empezado por jaimeh

amigo rgstuamigo

Se que los dataset no son las tablas. Pero como hay sentancias Fields.add y
fieldefs.add pensaba si se podía conseguir algo. De hecho con fielddefs.add
y createtable se puede crear una tabla sin utilizar el sql aunque el componente lo utilice internamente.

saludos

Sacado de la ayuda de Delphi 7 >

Inserts a new field to the end of the Fields array.

Delphi syntax:

procedure Add(Field: TField);

C++ syntax:

void __fastcall Add(TField* Field);

Description

Applications do not normally call the Add method directly. When field objects are created, Add is called automatically by the dataset.

Por otra parte seria interesante que pusieras el codigo de como has logrado crear tablas usando fielddefs.add,talves es algo nuevo para mi.
Saludos...

[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

[rgstuamigo]

Tal parece que si se puede amigo jaimeh..., aunque no he trabajado con Interbase o Firebird ,creo que los componentes de la paleta Interbase tienes muchas cosas interesante,...vaya desconocia que tuvieran esas caracteristicas,y tambien se puede crear tablas con el TTable de la paleta BDE Aunque como hemos dicho internamente usan SQL...Vaya...Buen aporte jaimeh.
Saludos...