Extraer claves foraneas de BD

[marcoszorrilla]

Bueno gracias a todos y especialmente ECFISA, el SQL de su último mensaje ha funcioado.

Antecedentes:Cambiar el ancho del campo CODIGO Varchar(10) PK a 12.
Desde el IbExpert no deja cambiar el ancho, ni eliminar el campo porque es Clave primaria, tampoco deja desactivar la clave primaria.

Desde el ISQL ejecutando el SQL se soluciona todo.

Código SQL [-]
Código SQL [-]ALTER TABLE TABLA DROP CONSTRAINT TABLA_PK


Para aplicarla nuevamente despues de cambiar el ancho:
Código SQL [-]ALTER TABLE TABLA ADD CONSTRAINT TABLA_PK PRIMARY KEY(ID)

Un Saludo.

[marcoszorrilla]

Finalmente he probado a ejecutar el código SQL desde el SQL EDITOR del IBExpert y ha funcionado.

1. Ejecutar codigo para quitar la Clave Primaria.
2. Editar el campo y luego su dominio para cambiar el ancho.
3. Ejecutar el código para restaurar la Clave Primaria.

No olvidar pulsar sobre el botón Commit.

Un Saludo.

[marcoszorrilla]

Aquí dejo el guión (script) con el que he resuelto el problema.

Código SQL [-]
ALTER TABLE PVP DROP CONSTRAINT PK_PVP_CODIGO;

ALTER TABLE PVP
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE PVP ADD CONSTRAINT PK_PVP_CODIGO PRIMARY KEY(CODIGO);


ALTER TABLE abonos
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE controlpesos
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE depositos
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE hdepositos
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE lineascompras
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE lineaspedidos
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;


ALTER TABLE lineasventas
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;


ALTER TABLE movalmacenes
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;


ALTER TABLE pvpsp
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE regulariza
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE tarifas
ALTER CODIGO TYPE VARCHAR(12) CHARACTER SET ISO8859_1;

ALTER TABLE tmplineasventas
ALTER CODPRODUC TYPE VARCHAR(12) CHARACTER SET ISO8859_1;



DROP TABLE FAMILIAS;


SET SQL DIALECT 3;



/******************************************************************************/
/*                                   Tables                                   */
/******************************************************************************/



CREATE TABLE FAMILIAS (
    CODIGO   VARCHAR(2) NOT NULL,
    FAMILIA  VARCHAR(35) NOT NULL
);




/******************************************************************************/
/*                                Primary Keys                                */
/******************************************************************************/

ALTER TABLE FAMILIAS ADD CONSTRAINT PK_FAMILIA_CODIGO PRIMARY KEY (CODIGO);


/******************************************************************************/
/*                                  Indices                                   */
/******************************************************************************/

CREATE UNIQUE INDEX ID_FAMILIA ON FAMILIAS (FAMILIA);


/******************************************************************************/
/*                                 Privileges                                 */
/******************************************************************************/

INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('01', 'QUIMICOS');
INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('02', 'CELULOSAS');
INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('03', 'UTILES DE LIMPIEZA Y CARROS');
INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('04', 'PLASTICOS Y BOLSAS');
INSERT INTO FAMILIAS (CODIGO, FAMILIA)
              VALUES ('05', 'DISPENSADORES');


COMMIT WORK;

Un Saludo.