Valor por defecto campo firebird

[jaimeh]

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

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

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'

[jafera]

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

Josep

[Casimiro Notevi]

Prueba accediendo a las tablas del sistema:

select RDB$DEFAULT_SOURCE 
from RDB$RELATION_FIELDS
where RDB$FIELD_NAME='CIUDAD'     // <--- el campo
and RDB$RELATION_NAME='TBCALLES'  // <--  la tabla

Esto te devuelve el valor por defecto que tenga.

[jaimeh]

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

[jaimeh]

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

[*Caro*]

Empezado por jaimeh

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

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

[*Caro*]

Empezado por jaimeh

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

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

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

Empezado por jaimeh

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

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

[Casimiro Notevi]

Empezado por Neftali

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

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

[Casimiro Notevi]

Empezado por Caro

Hola jaimeh, para recuperar puedes asignarle un alias.
qryDestino.SQL.Text := 'select RDB$DEFAULT_SOURCE ' +
.................................
qryDestino.Open;
Showmessage(qryDestino.FieldByName('Campo').AsString);

Saluditos

También puede hacerse sin alias:

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

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

Empezado por Casimiro Notevi

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

Cómo me suena eso...

[jaimeh]

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.

[*Caro*]

Empezado por Casimiro Notevi

También puede hacerse sin alias:

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

Empezado por jaimeh

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

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'

Empezado por jaimeh

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

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

[*Caro*]

Empezado por Neftali

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

Empezado por Casimiro Notevi

Es que hoy es viernes y ya estamos con la mente nublada,......................

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

Por cierto, felidades a todos los compadres .

Saluditos

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

Empezado por Caro

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

¿Cómo lo sabes Caro?

Ayer hubo partidito y cervecita y cervecita y cervercita.

[*Caro*]

Empezado por Neftali

¿Cómo lo sabes Caro?

Ayer hubo partidito y cervecita y cervecita y cervercita.

Es que soy clarividente amiguito .


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 .

Saluditos

[Casimiro Notevi]

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

[jaimeh]

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

Ha quedado perfectamente entendido.

Saludos