Re: Listar columnas de la llave primaria

[Oswaldo Hernández <listas(at)soft-com(dot)es>]

Juan Pablo Yañez escribió:
> Hola a todos, necesito saber de que columnas consta la llave primaria de 
> una determinada tabla, lo mas aproximado que encontre para solucionar mi 
> problema fue la funcion pg_get_constraintdef, pero me gustaria saber si 
> alguien tiene una consulta para obtenerlas directamente en forma de 
> cursor o si me pueden idicar por donde debo buscar.
>
> Saludos y muchas gracias de antemano.

Hola,

Abajo te muestro la funcion que hice para obtener una lista de los 
campos que componen la llave primaria de una tabla. Si le encuentras 
algun fallo hazmelo saber.

Espero que te sirva, saludos,

--
*****************************************
Oswaldo Hernández
oswaldo(at)soft-com(dot)es
*****************************************



CREATE OR REPLACE FUNCTION describe_pk("varchar", "varchar")
  RETURNS SETOF record AS
$BODY$
/********************************************************************
funcion para obtencion de los campos que componen el indice primario
de una tabla.

Devuelve un registro por cada campo con el nombre y tipo.
Si la tabla no tiene indice primario no devuelve ningun registro.

Uso:

select
	campo,
	tipo
from
	describe_pk('nombre de esquema', 'nombre de tabla')
	as (campo varchar, tipo varchar)
;

Abril 2005 Oswaldo

Posible problema si el indice estuviera formado por una espresion, pero
estas no estan permitidas en las PK

*********************************************************************/
declare
	escenario	alias for $1;
	tabla		alias for $2;
	regret		record;
	pk		record;
begin

-- obtecion de los datos del indice primario de la tabla y oid de tabla 
y schema
select into pk
 	schemas.oid 		as oid_schema,
 	tablas.oid 		as oid_tabla,
 	indices.indexrelid 	as oid_pk,
 	indices.indkey		as campos,
 	indices.indnatts	as nvectores,
 	indices.indexprs	as expresiones
from
 	pg_class 		as tablas
 	left join pg_namespace 	as schemas
		on tablas.relnamespace = schemas.oid
 	left join pg_index 	as indices
		on tablas.oid = indices.indrelid	
where
	schemas.nspname = escenario
	and tablas.relname = tabla
	and indices.indisprimary = true
;

-- comprueba si existe el indice primario en la tabla
if pk.nvectores > 0 then

	-- bucle de obtencion de datos individuales de los campos desde
	-- las tablas pg_attribute y pg_type
	for i in 0..(pk.nvectores-1) loop
		select into regret
			campo.attname::varchar as campo,
			tipos.typname::varchar	as tipo
		from
			pg_attribute as campo
			join pg_type as tipos
				on campo.atttypid = tipos.oid
		where
			campo.attrelid = pk.oid_tabla and
			campo.attnum = pk.campos[i]
		;
		return next regret;
	end loop;
end if;

return;

end$BODY$
  LANGUAGE 'plpgsql' STABLE SECURITY DEFINER;
ALTER FUNCTION describe_pk("varchar", "varchar") OWNER TO postgres;