2

Me encuentro trabajando con la versión XE7 de Delphi, FireDAC y los manejadores de bases de datos SQL Server y Oracle. Utilizando el componente de FireDAC TFDTable note que, al realizar un Last o un First, obtenía diferentes resultados para ambos manejadores.

Investigando y publicando en foros encontré que se daba debido a los nulos, porque Oracle los maneja de distinta manera que SQL Server; pude notar que cuando en SQL Server se utiliza un DESC en Oracle se debe de colocar DESC NULLS LAST y cuando en SQL Server se coloca ASC en Oracle debe de ser NULLS FIRST; esto para obtener los registros en el mismo orden.

Encontré la propiedad Options (TFDIndex.Options), que cuenta con los valores de soNullFirst y soDescNullLast, entre otros. Al utilizar soDescNullLast ya pude obtener el mismo resultado en ambos manejadores de BD, pero cuando utilizo soNullFirst sigo obteniendo resultados distintos, mi código es el siguiente:

    var i: Integer;
begin
    i:= 1;
    try
        FDTable.Active:=False;
        case i of
        1: begin
            FDTable.TableName:='Personas';
            FDTable.IndexName:='Personas4';
            FDTable.Active:=True;
            
            FDTable.Indexes[0].Options:=[soNullFirst];
            
            FDTable.First;
            FDTable.Next;
            FDTable.Next;
            FDTable.Next;
            FDTable.Next;
            
            ShowMessage(FDTable.FieldByName('ID').Value);
           end;
        2: begin
            FDTable.TableName:='Personas';
            FDTable.IndexName:='Personas4';
            FDTable.Active:=True;
            
            FDTable.Indexes[0].Options:=[soDescNullLast];
            
            FDTable.Last;
            FDTable.Prior;
            FDTable.Prior;
            FDTable.Prior;
            FDTable.Prior;
            
            ShowMessage(FDTable.FieldByName('ID').Value);
           end;

Espero puedan ayudarme a saber que es lo que estoy haciendo mal o porque no funciona al utilizar soNullFirst, gracias.

4
  • Para responder de manera correcta, me gustaría ver ver el código con el que creas el índice Personas4.
    – jachguate
    Commented el 29 jul. 2020 a las 17:49
  • El índice lo tengo creado en la base de datos, en Delphi solo lo traigo por su nombre, solo tiene un campo y este campo tiene valores nulos, ya intente también asignar la propiedad antes de abrir la tabla pero esto me arroja un erro de "argumento fuera del rango" Commented el 29 jul. 2020 a las 18:07
  • La propiedad IndexName e Indexes sirven para trabajar con indices del lado del cliente, es decir, son índices creados en el espacio de memoria de tu programa por FireDac, por un lado, para mantener un orden consistente de los registros y por otro para hacer más eficiente el acceso a tus datos, pero nada tienen que ver con los índices que puedan existir a nivel de base de datos. Escribiré una respuesta para explicarme.
    – jachguate
    Commented el 29 jul. 2020 a las 18:23
  • Espero tu respuesta Commented el 29 jul. 2020 a las 18:45

1 respuesta 1

2

Por lo que aclaraste en comentarios de la pregunta, estás intentando utilizar un índice creado a nivel de base de datos.

Sin embargo, los índices a nivel de base de datos existen para uso del motor de base de datos como tal, que los utiliza para optimizar el acceso a la información: joins, filtrado, ordenamiento y aplicación de condiciones, a manera de producir de manera óptima los resultados de las consultas y otras operaciones realizadas.

Por otro lado, FireDac, al igual que otras capas de conexión:

  • Se comunica con la base de datos a través del lenguaje SQL en el que, generalmente, no se tiene acceso a los índices subyacentes en la base de datos y, si lo hay, es solo a nivel de hints dados a la base de datos para forzarla a utilizar un índice que, según quien escribe la consulta, es más optimo que los seleccionados por el propio motor para ejecutar una consulta.
  • La capa de conexión provee de mecanismos para ordenar y optimizar el acceso a los datos del lado del cliente, es decir tu propia aplicación.

En el caso de FireDac, la propiedad IndexName e Indexes sirven para trabajar con indices del lado del cliente, es decir, son estructuras creadas en el espacio de memoria de tu programa por FireDac, por un lado, para mantener un orden consistente de navegación por los registros y, por otro, para hacer más eficiente el acceso a los datos cuando se utilizan métodos de localización de registros.

Estas estructuras de creación y uso local nada tienen que ver con los índices que puedan existir a nivel de base de datos.

Si no creas índices en tus DataSets (TFDTable hereda de TDataSet), los datos estarán disponibles en el orden en el que se recibieron del motor. En el caso de TFDTable, el orden es, básicamente, aleatorio (aunque los motores suelen devolver los registros en algún orden lógico para ellos).

Por eso mismo, generalmente se recomienda utilizar componentes donde TU escribes la consulta, de manera que puedas forzar el orden en el que el motor devuelve los datos, que suele ser suficiente para muchos usos de los mismos, y dejar la creación de índices locales solo para los casos donde el volumen/uso de datos lo amerita.

De esa forma, si utilizas un TFDQuery y colocas en su propiedad SQL una consulta que devuelva los datos en el mismo orden para cada motor, podrías resolver el problema que tienes, que es simplemente ver los datos en el mismo orden del lado del cliente, para ambos motores.

Podrías entonces, para SQL Server, escribir en la propiedad SQL:

select * from MiTabla order by Campo1 desc, Campo2 desc

Mientras para Oracle escribirías

select * from MiTabla order by Campo1 desc nulls last, Campo2 desc nulls last

O bien, puedes escribir exactamente la misma consulta para ambos, pues las sentencias son soportadas por los motores:

Cuando quieres un orden descendente:

select * from MiTabla order by Campo1 desc nulls last, Campo2 desc nulls last

Cuando quieres ordenar de manera ascendente:

select * from MiTabla order by Campo1 asc nulls first, Campo2 asc nulls first

O incluso la combinación de ambos:

select * from MiTabla order by Campo1 asc nulls first, Campo2 desc nulls last

De esta manera, no creas ningún índice local, simplemente abres, recorres y listo:

FDQuery.SQL.Text := 'select * from MiTabla order by Campo1 asc nulls first, Campo2 desc nulls last';
FDQuery.Open;
while not FDQuery.EOF do
begin
  ShowMessage(FDQuery.FieldByName('Nombres').AsString);
  FDQuery.Next;
end;

Otra posible solución, es crear de manera simple un único índice local valiéndote de la propiedad IndexFieldNames, por ejemplo:

FDTable.TableName:='Personas';
FDTable.Open;
FDTable.IndexFieldNames := 'Nombres;Apellidos';

O bien, para orden descendente:

FDTable.TableName:='Personas';
FDTable.Open;
FDTable.IndexFieldNames := 'Nombres:D;Apellidos:D';

En este caso, FireDac ordenará los datos de manera local, independientemente de cómo hayan llegado desde el motor (OJO, que esto puede ser difícil de optimizar si el dataset tiene un volumen grande de datos, aunque en tu código actual no haría mayor diferencia, pues asumo que siempre traes todos los datos desde el servidor al hacer Open).

Si quieres tener un mayor control o varios índices creados a la vez, puedes utilizar el método AddIndex

FDTable.DeleteIndexes;
FDTable.TableName:='Personas';
FDTable.Open;
FDTable.AddIndex('MiIndice', 'Nombres;Apellidos', '', [soNoCase, soNullFirst]);
FDTable.IndexesActive := True;
FDTable.IndexName := 'MiIndice';
9
  • Ok, entiendo tus puntos pero entonces porque cuando utilizo descNullLast ahí si me los ordena de la misma manera en ambos gestores? y SQL Server no soporta desc nulls last ni nulls first, el comportamiento de ASC y DESC es como si lo tuviera pero no se pueden utilizar esas palabras reservadas Commented el 29 jul. 2020 a las 19:24
  • No sabría responder por qué lo hace, puedo suponer que quizás se crea un índice local al vuelo, o tiene algún efecto secundario, que quizás pueda ser un bug en la capa de conexión. Considero que mi respuesta brinda información suficiente para que hagas tus propias pruebas y enlaza la documentación, donde está explicado a detalle como funcionan los componentes.
    – jachguate
    Commented el 30 jul. 2020 a las 3:02
  • He probado creando el índice con AddIndex pero sigo obteniendo resultados distintos en ambos gestores :( Commented el 31 jul. 2020 a las 15:07
  • ¿Estas segura que se está utilizando el índice local? Pregunto porque una vez se utiliza, el orden en que se recibieron los registros del motor ya no es relevante.
    – jachguate
    Commented el 31 jul. 2020 a las 15:37
  • Lo tengo de esta manera: FDTable.DeleteIndexes; FDTable.TableName:='Personas'; FDTable.Open; FDTable.AddIndex('Personas7', 'Apellido', '', [soNoCase, soNullFirst]); FDTable.IndexesActive := True; FDTable.IndexName := 'Personas7'; FDTable.Active:=True; FDTable.First; ShowMessage(FDTable.FieldByName('ID').Value); Commented el 31 jul. 2020 a las 15:55

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.