FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
BB.DD. FB: Establecer valor por defecto
Después de la ayuda recibida de Casimiro y ecfisa en Propiedades de una columna, me está apareciendo otro error del que no soy capaz de encontrar el origen.
Para fijar el valor por defecto de una columna uso el código del hilo que comentaba más arriba. Sin embargo al tratar de actualizar una de las tablas con este código:
teniendo la tabla esta definición:
Se genera este error: Cita:
|
#2
|
||||
|
||||
Hola.
El siguiente enlace: Partner index segment no 1 has incompatible data type, explica que ese error generalmente se produce por incongruencias de tipo en una clave externa. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
Gracias por la respuesta. He hecho una prueba, basándome en el código que monta EMS: Los dos primeros querys que hay en el código que puse (los dos UPDATE RDB$FIELDS que hay en Propiedades de una columna) los he sacado de ahí y los he llevado al CREATE TABLE asi:
Código:
Query->Close(); Query->SQL->Text = "CREATE TABLE ..."; Query->ExecSQL(); if (Query->SQL->Text.Pos("PRIMARY KEY (CodPrv") != 0) { cAux = Query->SQL->Text.SubString(14, Query->SQL->Text.Length()); cAux = UpperCase(cAux.SubString(1, cAux.Pos(" ")).Trim()); Query->Close(); Query->SQL->Text = "UPDATE RDB$FIELDS SET RDB$CHARACTER_SET_ID = NULL WHERE RDB$FIELD_NAME = (SELECT RDB$FIELD_SOURCE FROM RDB$RELATION_FIELDS WHERE " "RDB$FIELD_NAME = 'CODPRV' AND RDB$RELATION_NAME = :Tabla)"; Query->ParamByName("Tabla")->AsString = cAux; Query->ExecSQL(); Query->Close(); Query->SQL->Text = "UPDATE RDB$RELATION_FIELDS SET RDB$COLLATION_ID = NULL WHERE RDB$FIELD_NAME = 'CODPRV' AND RDB$RELATION_NAME = :Tabla"; Query->ParamByName("Tabla")->AsString = cAux; Query->ExecSQL(); } Query->Transaction->CommitRetaining(); |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Establecer directorio por defecto Delphi al Abrir | ingabraham | Varios | 4 | 17-06-2008 21:19:19 |
Valor Por Defecto DBlookupComboBox | hcalero | Conexión con bases de datos | 0 | 22-01-2008 10:54:17 |
Establecer un valor por defecto en un campo ya creado | David | Firebird e Interbase | 2 | 13-06-2007 00:58:39 |
Valor por defecto en DBLookUpComboBox | Durbed | OOP | 1 | 08-07-2005 19:05:54 |
Valor por defecto en un dbgrid | NuncaMas | Conexión con bases de datos | 3 | 28-01-2004 20:31:19 |
|