FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Campos dinámicos vs persistentes
Hola a todos:
Los componentes que representan a los campos (derivados de TField), pueden crearse dinámicamente (de forma "automática" durante la ejecución) o estáticamente (abriendo el editor de columnas del componente TTable durante la fase de desarrollo). Respectivamente, a cada tipo de campo se le conoce como dinámicos o persistentes. Si se utilizan campos persistentes se limita el número de columnas (campos) disponibles al abrir la tabla, de forma similar a como lo hace una consulta SQL. El problema se me presenta cuando necesito modificar la estructura de una tabla durante la ejecución de la aplicación (mediante SQL). Si ya he creado campos persistentes entonces los nuevos campos creados (dinámicos) no son reconocidos por el correspondiente componente TTable. Evidentemente, la opción más sencilla sería no crear campos persistentes. Muy fácil, ¿pero que ocurre cuando tengo que añadir un campo calculado a esa misma tabla durante la fase de diseño?. Que entonces el componente TTable piensa que todos los campos se añaden estáticamente, y no hay manera de que reconozca los nuevos campos. Estoy trabajando con tablas dBase. ¿Como puedo solucionarlo?. Gracias y saludos. Última edición por Jose_Pérez fecha: 13-04-2004 a las 14:43:55. |
#2
|
|||
|
|||
Hola José:
Segun te entendí, lo que quieres es agregar o eliminar campos persistentes en un qry., yo trabajo con ADO y esto me funciona bastante bien: trabajaremos con un query de nombre Query y un campo de nombre NomCampo de tipo Integer QueryNomCampo.Free; //si deseas eliminarlo With TIntegerField.Create(Self) do begin //si desaes agregarlo FieldName := 'NomCampo'; Name := 'QueryNomCampo'; Index := Query.FieldCount; DataSet := Query; end; Query.FieldDefs.UpDate; //actualiza la definicion de campos espero que sea lo que nadas buscando y te sirva LBP
__________________
Salud...os Luis Briceño P. |
#3
|
|||
|
|||
Estimado Luis:
En lugar de ADO, yo trabajo con el TTable a través del BDE. Pero la idea me ha servido. Creo que es interesante que cuelgue el código tal y como lo tengo en el desarrollo de mi aplicación, para quien pueda interesar. Código:
procedure TDataModulo.tbCabalbBeforeOpen(DataSet: TDataSet); begin { NOTA: Los campos persistentes se crean aquí para adaptar el programa a las nueva estructura de la tablas, creadas desde código. Una vez que las tablas han sido reestructuras en el equipo del usuario, "lo normal" es crear los campos persistentes desde el editor de columnnas del componente TTable co- rrespondiente. } If tbCabalb.FieldDefs.IndexOf('RES_CALB')<>-1 Then Begin tbCabalbRES_CALB:=TStringField.Create(Self); tbCabalbRES_CALB.FieldName:='RES_CALB'; tbCabalbRES_CALB.DataSet:=tbCabalb; tbCabalbRES_CALB.FieldKind:=fkData; end; If tbCabalb.FieldDefs.IndexOf('FRES_CALB')<>-1 Then Begin tbCabalbFRES_CALB:=TDateField.Create(Self); tbCabalbFRES_CALB.FieldName:='FRES_CALB'; tbCabalbFRES_CALB.DataSet:=tbCabalb; tbCabalbFRES_CALB.FieldKind:=fkData; end; end; procedure TDataModulo.tbCabalbAfterClose(DataSet: TDataSet); begin If tbCabalbRES_CALB<>Nil Then tbCabalbRES_CALB.Free; If tbCabalbFRES_CALB<>Nil Then tbCabalbFRES_CALB.Free; end; |
|
|
|