Listar las llaves primarias de una tabla FireBird

[ASAPLTDA]

IGUAL ADIONANDO LA ULTIMA LINEA

Código SQL [-]
select s.rdb$field_name, I.* from rdb$indices i
INNER JOIN rdb$index_segments s ON(i.rdb$unique_flag=1 and
i.rdb$relation_name=:tabla and s.rdb$index_name=i.rdb$index_name)
WHERE I.RDB$INDEX_ID = 1

GRACIAS JHONNY, KIPOW