Añadir campo nuevo

[jaimeh]

Hola a todos

Se puede añadir un campo fisicamente en una tabla?. Con SQL no tengo
ningun problema, usando Alter Table pero con delphi sin usar sql no acierto
a como hacerlo.

Seréis tan amables de decirme si se puede hacer.

Un saludo para todos

[jaimeh]

Se me olvido decirlo, estoy usando firebird

Un saludo

[Neftali [Germán.Estévez]]

¿Qué componentes de conexión estás utilizando?
¿te da algun error?

[jaimeh]

Muchas gracias Neftali por contestarme,

Si mira estoy usando los que trae el delphi los IBX.

Código Delphi [-]
var
  campo: TField; 
begin
 campo := TField.Create(tblDest);
 campo := tblSource.Fields[3];   //por ejemplo
 tblDest.Fields.Add(campo);
                                           
end;

Entonces me da errores de punteros cuando intento cerrar y abrir las
tablas o no me añade ningún campo, no consigo la persistencia



Muchas gracias a todos

[rgstuamigo]

No acabo de entenderte.
Quieres agregar un campo a tu tabla de la base de dato?
ó solo quieres adicionar un campo virtual(calculado,solo para vista)en tu DataSet(Query,Table)?.
Saludos...

[Neftali [Germán.Estévez]]

No he usado mucho las IBX, pero la asignación que estás haciendo no parece muy correcta y puede ser la causante de los errores.
Creas el objeto y luego haces la asignación de un campo ya existente. No se si eso es correcto. De todas formas no te fies 100% porque nunca lo he usado de esta forma.

[jaimeh]

Muchas gracias por responderme

Quiero crear un nuevo campo en una tabla física o sea con persistencia
mas o menos lo que se hace con sql así

Código SQL [-]

ALTER TABLE NOMTABLA ADD NuevoCAMPO Integer;

A lo mejor no es posible

Muchas gracias

[jaimeh]

Si, una cosa, es que quiero que el campo añdido tenga la misma estructura
que un campo de otra tabla

[Axel_Tech]

Y no valdría ejecutar esa misma instrucción SQL con un IBQuery o un IBSQL?

[rgstuamigo]

Pues eso...mismo...
Tranquilamente puedes ejecutar una sentencia SQL en un IBQuery(Tal como te indica Axel_Tech) y adicionar la columna que quieras en tu tabla de tu base de datos..
Saludos...

[jaimeh]

Ya si eso ya lo hice y funciona, pero quería hacerlo sin utilizar SQL como ya puse al principio del post. Porque se complica cuando extraemos el DataType en delphi de la estructura delcampo que quiero copiar y ponerlo en el sql. Un ejemplo seríapara un DataType ftInteger en el sql habria que poner Integer y de estaforma me tengo que mirar todos los tipos y hacer una sentencia sql paracada tipo. Por eso quería hacerlo sin utilizar sql por si habria alguna
forma de crear un campo que la estructura fuera la copia de otro y añadirlo a una tabla existente.

He estado buscando y no veo que se pueda hacer.

De todas formas muchas gracias a todos.

[rgstuamigo]

Empezado por jaimeh

Ya si eso ya lo hice y funciona, pero quería hacerlo sin utilizar SQL como ya puse al principio del post. Porque se complica cuando extraemos el DataType en delphi de la estructura delcampo que quiero copiar y ponerlo en el sql. Un ejemplo seríapara un DataType ftInteger en el sql habria que poner Integer y de estaforma me tengo que mirar todos los tipos y hacer una sentencia sql paracada tipo. Por eso quería hacerlo sin utilizar sql por si habria alguna
forma de crear un campo que la estructura fuera la copia de otro y añadirlo a una tabla existente.

He estado buscando y no veo que se pueda hacer.

De todas formas muchas gracias a todos.

Amigo jaimeh, creo que estas confundiendo algunas cosas. me explico.
Un componente DataSet que puede un TQuery,TTable,TIBQuery,TIBTable,TZQuery,etc,etc,etc, no significa que es tu Tabla de tu base de Datos. Es decir el hecho de que se adicione un Field(campo) a mi DataSet en mi aplicacion, no significa que se este adicionando un Campo en mi tabla en la Base de Datos.(Pareciera que tu lo estas tomando asi).
Estos Dataset son solo componentes que Delphi te provee para la gestion de datos hacia o desde tu Servidor de Base de Datos.Una cosa son tus tablas en tu Base de dato y otra cosa son tus Query,Tables en tu aplicacion.
Entonces debes entender la forma de trabajo de estos DataSet.
Eso significa que la unica forma de Cambiar la estructura de una tabla en tu Base de datos(Modificar columnas,crear tablas,crear base de datos,etc), pues es atraves de sentencias SQL; a menos que tu te crees componentes que te hagan eso, es mas, internamente los Dataset utilizan SQL, y si tu te creas un componente,logicamente tienes que usar sentencias SQL para poder comunicarte con el servidor de Base de datos; aunque quisas el usuario de tu componente no sabe que es asi.
Los DataSet solo reflejan lo que esta en tus tablas de base de datos.
Asi fue como Borland diseño tales componentes y esa es la lógica.
Saludos...

[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

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