Busqueda con LOCATE

[MaríaMR]

Hola:

Necesito Ayuda URGENTE con una Búsqueda LOCATE.

Estoy haciendo una búsqueda con un LOCATE en una Tabla, Busco por dos campos distintos pero a la hora de ejecutarla me tarda mucho en localizarla, la búsqueda que hago es la siguiente:

IF ModuloDatos.TFacturas.Locate('Serie; Nfactura', VarArrayof([PSerie.Text, PnFactura.Text]), Opciones) THEN

Serie y Nfactura son las claves de Tfacturas ¿que es lo que hago mal?

[marcoszorrilla]

Si el problema es que tarda mucho únicamente, entonces lo que te falta es declarar los índices apropiados en la tabla, ya que sino Locate hace un búsqueda sencuencial.

Un Saludo.

[MaríaMR]

Empezado por marcoszorrilla

Si el problema es que tarda mucho únicamente, entonces lo que te falta es declarar los índices apropiados en la tabla, ya que sino Locate hace un búsqueda sencuencial.

Un Saludo.

Y como tengo que declararlos, al definir la tabla los campo:

NSerie , y Nfactura los puse como primary Key, ¿hay que hacer algo mas?

gracias

[marcoszorrilla]

Creo que te tendrás que explicar un poco mejor, qué es exactamente lo que quieres encontrar en la tabla?

Los 2 no pueden ser PrimaryKey ya que como su nombre índica solamente puede haber una, y también conviene que indicas que tablas estas utilizando.

Un Saludo.

[MaríaMR]

La Tabla que utilizo es DBASE y lo que quiero es un índice que integre los dos campos la Serie y el Nº Factura porque integrando los dos campos este índice es único.

Puedo haber dos mas números de facturas iguales pero si añado la serie hago el índice único.

gracias

[[eduarcol]]

Si estas trabajando con el ttable porq no utilizas el FindKey en lugar de locate eso te asegura una busqueda mas rapida

[MaríaMR]

He probado con el FindKey y sigue tardando muchísimo, yo creo que el problema es que no he creado los índices bien, lo que necesito es que me digaís como crear estos índices:

Quiero crear un índice con estos dos campor: Serie, Nfactura de una tabla DBBAse, yo las tablas las he definido con el Databasedestock.

Espero que una vez alguien me de una solución completa.

gracias

[[eduarcol]]

Una de dos o no tienes los indices o se estan corrompiendo, la forma de crear los indices es colocar esos dos campos al principio de la lista de campos, luego en la columna Key presionar la barra espaciadora para que salga el * que identifica el campo clave, presionas el boton save y listo.

antes de ejecutar el findkey debes asegurarte que el indexname de la tabla sea "" porq ese es el q identifica el principal.

espero haberte servido de ayuda

[MaríaMR]

Dame un ejemplo del IndexName, para ver como se hace lo que me comentas de que tiene que ser = "". ¿Estas Seguro de que me solucionara el Problema?.

gracias

[[eduarcol]]

Te solucionara el problema si y solo si:

- La clave principal esta bien definida
-No esta corrupta

-Ej. Table1.IndexName := '';
Table1.FindKey([txSerie.Text, txFactura.Text]);

[MaríaMR]

No me soluciona el Problema el FindKey hace lo mismo que el Locate, ¿Alguien Sabe La Solución?

gracias

[[Lepe]]

¿cuantos registros tiene la tabla ? millones?

[MaríaMR]

sobre 300, ya ves no son muchos

[marcoszorrilla]

Ian Marteens: "La Cara Oculta de Delphi".

Por ejemplo, tomemos una tabla que tenga los campos Nombre y Apellidos, y cuyo índice activo sea un índice basado en la expresión Nombre + Apelldos. Hay dos campos involucrados en el índice, y un programador inocente puede verse tentado a programar algo asi:

Table1.FindKey([‘Howard’,’Lovecraft’]) //No funciona

¿Cuál es el valor que debe tomarse como nombre y cuál debe tomarse como apellido?. Delphi no lo sabe. Y tanto FindKey como FindNearest están programados para lanzar un excepción si el índice activo es un índice de expresiones. La técnica correcta para realizar una búsqueda sobre este tipo de índices es la siguiente

Código Delphi [-]
  Table1.SetKey;
  Table1[‘Nombre’ ]:=’Howard’;
  Table1[‘Apellidos’]:=’Lovecraft’;
  Table1.GotoKey;

Un Saludo.

[[eduarcol]]

Empezado por Ian Marteens: "La Cara Oculta de Delphi"

y un programador inocente puede verse tentdo a programar algo asi:

Table1.FindKey([‘Howard’,’Lovecraft’]) //No funciona

Upss, me habeis descubierto ,

Pero en todas mis aplicaciones esta asi y me funciona de lo mejor por eso no me habia visto en la necesidad de documentarme al respecto

[MaríaMR]

en Table Properties que opcion coges, porque igual está ahí el problema

gracias