No puedo crear Indice Secundario

[[newtron]]

Empezado por jhonalone

...esto sirve para una tabla ya creada.

Negativo, con el database desktop puedes crear o modificar tablas ya creadas, de todas formas lo ideal es hacer tú mismo la gestión de tus tablas desde la aplicación.

Te he preparado un ejemplo de como se crea una tabla con un índice primario y otro secundario, espero que te sirva.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
with TTable.create(self) do
begin
  DatabaseName := 'C:\TEMP';
  TableName := 'Clientes';
  TableType := ttParadox;
  with FieldDefs do begin
    Add('CODIGO', ftInteger, 0, True);
    Add('FECHA1', ftDate, 0, False);
    Add('FECHA2', ftDate, 0, False);
  end;
  IndexDefs.Add('Primario','ID', [ixPrimary, ixUnique]);
  IndexDefs.Add('Secundario','FECHA1;FECHA2', []);
  CreateTable;
end;

Recuerda que tienes que añadir al "uses" del formulario las unidades "dbtables" y "db".

Saludos