Obtener Primary key de una tabla dbf con foxpro

Buenas estoy haciendo una migración de foxpro a postgres
El sistema tiene alrededor de 800 tablas, así que quiero crear un programa que me cree el esquema automáticamente
El problema es que puedo crear la estructura de la tabla con
COPY STRUCTURE EXTENDED TO FileName
pero no se como obtener la estructura de los primarykey, ¿existe alguna función que me pueda dar esa estructura?
Gracias.
Respuesta
1
Si claro esta es una forma:
Function GetPrimatyKey(lcAlias)
    Local i, lcPrimaryKey
    lcPrimaryKey = ""       
    For i = 1 To Fcount(lcAlias)
       If Primary(i)
          lcPrimaryKey = Field(i)
          Exit
       Endif
    Endfor
    Return lcPrimaryKey
Endfunc
Esa es una posible solución a tu problema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas