Valor por defecto campo firebird
 

Hola a todos


Como podría saber el valor por defecto de un campo de una tabla
firebird. No me refiero al tipo de campo.

No se si con delphi hay alguna funcion o propiedad de un TField
que me lo diga. No he encontrado ninguna.

O habría que hacerlo con SQL.

Muchas gracias a todos

En SQL normalmente hay forma de definirlo para la tabla (si la creas con una herramienta visual también se debe poder).

Código SQL [-]
  ...
  add columna1 CHAR (11) DEFAULT 'Valor'

Yo lo que hago es asignar este valor predeterminado en el onnewrecord de la tabla

Josep

Prueba accediendo a las tablas del sistema:

Esto te devuelve el valor por defecto que tenga.

Muchas gracias por responderme Casimiro

He escrito este código en delphi

Código Delphi [-]

                    qryDestino.SQL.Text :=
                      'select RDB$DEFAULT_SOURCE ' +
                      'from RDB$RELATION_FIELDS ' +
                      'where RDB$FIELD_NAME= ' + fldSource.FieldName +
                      //el campo
                      ' and RDB$RELATION_NAME= '+ listSource[j];
                      // <--  la tabla


                    qryDestino.Open;

Como tengo que hacerlo para recoger el valor que me daría

Muchas gracias

Me da error Sql

Código Delphi [-]
                   qryOrigen.SQL.Text :=
                      'select RDB$DEFAULT_SOURCE ' +
                      'from RDB$RELATION_FIELDS ' +
                      'where RDB$FIELD_NAME= ' + fldSource.FieldName +
                      //el campo
                      ' and RDB$RELATION_NAME= '+ listSource[j];
                      // <--  la tabla


                    qryOrigen.Open;

Me dice campo desconocido y si existe en la tabla origen
Las tablas estan en diferentes bases de datos

Muchas gracias

Hola jaimeh, para recuperar puedes asignarle un alias.

Código Delphi [-]
   qryDestino.SQL.Text := 'select RDB$DEFAULT_SOURCE As Campo' +
   .................................
   qryDestino.Open;


 
   Showmessage(qryDestino.FieldByName('Campo').AsString);

Saluditos

Hola de nuevo, te falta ponerle las comillas.

Código Delphi [-]
   qryOrigen.SQL.Text := 'select RDB$DEFAULT_SOURCE As Campo' +
                      'from RDB$RELATION_FIELDS ' +
                      'where RDB$FIELD_NAME= ' + QuotedStr(fldSource.FieldName) +
                      ' and RDB$RELATION_NAME= '+ QuotedStr(listSource[j]);
   qryOrigen.Open;

Saluditos

Perdón.
Está claro que no leí bien la pregunta... :o

Es que hoy es viernes y ya estamos con la mente nublada, qué bien, fin de semana: hacer limpieza de la casa, hacer las compras, lavar la ropa acumulada, reparar la lámpara que se estropeó, llevar el coche al taller, llevar el perro al veterinario, con las últimas lluvias los cristales de las ventanas están opacos de suciedad... vaya, ya llegó el lunes :D

También puede hacerse sin alias:

Showmessage(qryDestino.Fields[0].AsString);

Cómo me suena eso...

:):):o:o:(:(

Gracias a todos por responderme

Con el último apunte de Caro funciona perfectamente.

Me imagino que de la misma manera mas o menos
se podría averiguar la description de un campo.

Y también se podrían grabar el valor por defecto y el valor
de description.

Podrías indicarme algo respecto a esto último

De todas formas mucha gracias.

;)

Hola de nuevo, de esa misma forma puedes obtener la descripción,

Código SQL [-]
select RDB$DESCRIPTION
from RDB$RELATION_FIELDS
...............................

Has este select para que puedas ver los campos que tienes en RDB$RELATION_FIELDS, así ves lo que te interesa.

Código SQL [-]
select *
from RDB$RELATION_FIELDS
where  RDB$RELATION_NAME='RDB$FIELDS'

Puedes hacer un Update para cambiar dichos valores:

Código SQL [-]
update RDB$RELATION_FIELDS Set RDB$DESCRIPTION='descripcion para el campo'
where RDB$FIELD_NAME='CAMPO'
and RDB$RELATION_NAME='TABLA'

Saluditos

Yo creo que Neftali ayer festejo compadres y aún sigue con la cabecita dolida ;).

Por cierto, felidades a todos los compadres ;) :D.

Saluditos

:eek::eek::eek::eek::eek:

¿Cómo lo sabes Caro?

Ayer hubo partidito y cervecita y cervecita y cervercita. ;);):D:D:D

Es que soy clarividente amiguito :D:D:D.


La verdad, ayer en mi país se festejo compadres y cuando salí a cenar vi a muchas muchas personas (de hecho la mayoría hombres) festejando compadres y solo bromeando se ocurrio que tu también habías festejado :D.

Saluditos

Por ahí tenéis unos festejos que no se hacen aquí: la de los 15 años, de los 18 años... y ahora descubro la de los compadres :eek:

Muchas gracias a Caro y a todos los demás,

Ha quedado perfectamente entendido.

Saludos