Valor por defecto campo firebird

[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 Noteví]

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

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

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

[Casimiro Noteví]

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);

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