[[Lepe]]

Sobre la clave primaria:

Código Delphi [-]
Str:= '  PRIMARY KEY (';
                tabla.IndexDefs.Update;
                for j:= 0 to Tabla.IndexDefs.Count - 1 do
                begin
                  if [ixPrimary] in Tabla.IndexDefs[j].Options then
                  begin
                    if [ixDescending] in Tabla.IndexDefs[j].Options then
                      // pues eso, hazlo descendente
                    
                      Str:= ReplaceStr(Tabla.IndexDefs[j].Fields,  ';', ',');
                  end
                  else // puede ser un índice secundario, mantenido o no...
                end;

Saludos