Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2008-11

error en creación de índice secundario

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Antonio Caballero Martínez

Hola, muy buenas a todos.

Estoy tratando de crear una tabla DBase mediante c�digo, en la aplicaci�n que estoy desarrollando.
El tema, es que se crea la tabla, pero existe un error en el �ndice secundario; y no consigo crearlo bien para poder a comenzar con la tabla. Creo que lo realizo bien, y no cometo errores ... Al comentar la l�nea de creaci�n del segundo �ndice (DRepresentadas.AddIndex( 'IdxNombre' ,'NombreRep', [ixCaseInsensitive] );), al abrir la tabla no me da error en tiempo de ejecuci�n

En el evento OnCreate del formulario en cuesti�n, tengo (los puntos es c�digo innecesario que he quitado por no venir al caso):

...................
WITH ( DMModuloDatosCrearTablas ) DO BEGIN
             ...................
             DRepresentadas:= TDbf.Create( nil );
             DRepresentadas.FilePath:= 'datos\';
             DRepresentadas.TableLevel:= 7;
             DRepresentadas.Exclusive:= TRUE;
             DRepresentadas.TableName:= 'Representadas.dbf';
             WITH ( DRepresentadas.FieldDefs ) DO BEGIN
                  Add( 'Id', ftAutoInc, 0, True);
                  Add( 'NombreRep', ftString, 25, True);
                 ................... // resto de campos
             END;
             DRepresentadas.CreateTable;
             DRepresentadas.Open;
             // A�adimos un �ndice primario y �nico ...
             DRepresentadas.AddIndex( 'IdRepresentada', 'Id',
[ixPrimary, ixUnique] );
             // a�adimos un �ndice secundario
             DRepresentadas.AddIndex( 'IdxNombre' ,'NombreRep',
[ixCaseInsensitive] );
             DRepresentadas.Free;
             ...................
END;
...................

�Hay algo que estoy haciendo mal?

Gracias de antemano a todos ...

Reply by email