Mejorar búsqueda

[dtomeysoto]

Empezado por rgstuamigo

Lo que pasa es que la funcion Locate solo te busca coincidencias desde el principio y no en el medio,o al final; Lo que veo mejor que hagas es Filtrar tu DataSet(QDATOS) por medio de Like para que tambien te busque coincidencias entre medios o al final; tu codigo seria mas o menos asi:
Código Delphi [-]procedure TForm1.eBuscarTextoChange(Sender: TObject); begin QDATOS.Filtered:=False;//Deshabilito el filtro QDATOS.Filter:='NOMBRE LIKE ''*'+eBuscarTexto.Text+'*'''; QDATOS.Filtered:=True; //Habilito el filtro nuevamente end;

Saludos...

Hola amigo, resulta que el LIKE no se puede usar, obtengo el siguiente mensaje: Operation not applicable.

Deja ver si instalando las JEDI puedo usar el componente JvDBFindEdit y logro lo que quiero.

Reconozco que Paradox y BDE son tecnologías obsoletas pero esta aplicación que estoy haciendo es para ejecutarse en un PC aislado de la red y es un "cacharrito", por eso tomé la decisión del BDE y Paradox. No obstante si alguien tiene experiencia en el desarrollo de aplicaciones para PC con poca RAM (256 MB), un micro Celeron a 1.X GHZ, etc que me lo diga para tenerlo en cuenta porque siempre es bueno aprender.

Ya tengo descargado el Firebird y 2 documentos que hablan sobre la creación de aplicaciones o sistemas cliente-servidor y de n capas los cuales descargué de este maravilloso Club.

Gracias por sus aportes.

[rgstuamigo]

Empezado por dtomeysoto

Hola amigo, resulta que el LIKE no se puede usar, obtengo el siguiente mensaje: Operation not applicable.

Bueno se me olvido decirte que incluyas la opcion foNoPartialCompare en la propiedad FilterOptions de tu DataSet (QDATOS) Lo puedes hacer en tiempo de Diseño para no hacerlo desde codigo. Hahh y por si las dudas, cuando se esta filtrando con Like en un DataSet no se usa el caracter '%' de porcentage sino el '*' Asterisco. Por favor no confundir con las consultas SQL que se hace aun servidor de Base de Dato.
Tu codigo quedaria asi:

Código Delphi [-]
procedure TForm1.eBuscarTextoChange(Sender: TObject);
begin
  QDATOS.Filtered:=False;//Deshabilito el filtro
  QDATOS.FilterOptions:=[foNoPartialCompare];{<--incluyo la opcion 
   foNoPartialCompare, OJO si ya se hizo ésto en tiempo de diseño ésta linea no es necesaria}  
  QDATOS.Filter:='NOMBRE LIKE ''*'+eBuscarTexto.Text+'*''';
  QDATOS.Filtered:=True; //Habilito el filtro nuevamente
end;

.
Pruebalo...

[dtomeysoto]

Empezado por rgstuamigo

Bueno se me olvido decirte que incluyas la opcion foNoPartialCompare en la propiedad FilterOptions de tu DataSet (QDATOS) Lo puedes hacer en tiempo de Diseño para no hacerlo desde codigo. Hahh y por si las dudas, cuando se esta filtrando con Like en un DataSet no se usa el caracter '%' de porcentage sino el '*' Asterisco. Por favor no confundir con las consultas SQL que se hace aun servidor de Base de Dato.
Tu codigo quedaria asi:

Código Delphi [-]procedure TForm1.eBuscarTextoChange(Sender: TObject); begin QDATOS.Filtered:=False;//Deshabilito el filtro QDATOS.FilterOptions:=[foPartialCompare];{<--incluyo la opcion foPartialCompare, OJO si ya se hizo ésto en tiempo de diseño ésta linea no es necesaria} QDATOS.Filter:='NOMBRE LIKE ''*'+eBuscarTexto.Text+'*'''; QDATOS.Filtered:=True; //Habilito el filtro nuevamente end;

.
Pruebalo...

Yo mismo no me había quedado conforme y me puse a leer un poquito más y logré lo que quería con el siguiente código:

Código Delphi [-]
  QDATOS.Close;

  if Length(eBuscarTexto.Text) > 0 then
    QDATOS.SQL[2] := 'WHERE NOMBRE LIKE ''%' + eBuscarTexto.Text + '%'''
  else
    QDATOS.SQL[2] := 'WHERE NOMBRE LIKE ''%%''';

  QDATOS.Open;

Ahora déjame analizar el que escribiste a ver si resulta. Gracias por tu preocupación y dedicación.

[rgstuamigo]

Solo agregar que seria mejor si tambien incluyeras la opcion foCaseInsensitive tambien. Si tienes dudas revisa la ayuda de Delphi.
Otra cosa->>Cuando estes escribiendo(Postenado) trata en lo posible no visualizar (Boton de Vista Previa) ya que esto conlleva (cuando envias tu respuesta) a tener un codigo muy feo en el foro. Si se da el caso de que quieres visualizar lo que escribiste no le des Enviar Respuesta desde ahi tan solo presiona el boton de atras en tu navegador y desde alli guardas o envias tu respuesta.
Ésto se debe a que el interprete que muestra los post , tiene un error(bug) internamente que hace que el formateo de codigo no se vea muy estético.
Saludos...

[dtomeysoto]

Empezado por rgstuamigo

Solo agregar que seria mejor si tambien incluyeras la opcion foCaseInsensitive tambien. Si tienes dudas revisa la ayuda de Delphi.
Otra cosa->>Cuando estes escribiendo(Postenado) trata en lo posible no visualizar (Boton de Vista Previa) ya que esto conlleva (cuando envias tu respuesta) a tener un codigo muy feo en el foro. Si se da el caso de que quieres visualizar lo que escribiste no le des Enviar Respuesta desde ahi tan solo presiona el boton de atras en tu navegador y desde alli guardas o envias tu respuesta.
Ésto se debe a que el interprete que muestra los post , tiene un error(bug) internamente que hace que el formateo de codigo no se vea muy estético.
Saludos...

Amigo, al probar tu código me salta el error Operation not applicable no se si sea porque estoy usando Paradox, o porque QDatos es una consulta (TQuery). El error se produce al asignar el valor a la propiedad Filter. Ya he probado cerrando la consulta y con la consulta abierta.

Entonces como dije anteriormente le agregué a la consulta en tiempo de diseño la línea:

Código SQL [-]
WHERE  NOMBRE LIKE '%%'

y modifiqué el código que había escrito inicialmente por:

Código Delphi [-]
  QDATOS.Close;

  if Length(eBuscarTexto.Text) > 0 then
    QDATOS.SQL[2] := 'WHERE NOMBRE LIKE ''%' + eBuscarTexto.Text + '%'''
  else
    QDATOS.SQL[2] := 'WHERE NOMBRE LIKE ''%%''';

  QDATOS.Open;

y así resolví el problema. Ya me había dado cuenta que al visualizar el post para ver como me había quedado y luego al enviarlo todo se desarreglaba.

A quién le toca arreglar ese bug????
Graciasssss

[dtomeysoto]

Empezado por rgstuamigo

Bueno se me olvido decirte que incluyas la opcion foNoPartialCompare en la propiedad FilterOptions de tu DataSet (QDATOS) Lo puedes hacer en tiempo de Diseño para no hacerlo desde codigo. Hahh y por si las dudas, cuando se esta filtrando con Like en un DataSet no se usa el caracter '%' de porcentage sino el '*' Asterisco. Por favor no confundir con las consultas SQL que se hace aun servidor de Base de Dato.
Tu codigo quedaria asi:

Código Delphi [-]procedure TForm1.eBuscarTextoChange(Sender: TObject); begin QDATOS.Filtered:=False;//Deshabilito el filtro QDATOS.FilterOptions:=[foNoPartialCompare];{<--incluyo la opcion foNoPartialCompare, OJO si ya se hizo ésto en tiempo de diseño ésta linea no es necesaria} QDATOS.Filter:='NOMBRE LIKE ''*'+eBuscarTexto.Text+'*'''; QDATOS.Filtered:=True; //Habilito el filtro nuevamente end;

.
Pruebalo...

Ya lo probé y me sigue saltando el mismo error, resolví con el código que puse y añadiéndole a la consulta la siguiente línea:

Código SQL [-]
WHERE  NOMBRE LIKE '%%'

[rgstuamigo]

Empezado por dtomeysoto

Ya lo probé y me sigue saltando el mismo error, resolví con el código que puse y añadiéndole a la consulta la siguiente línea:

Código SQL [-]WHERE NOMBRE LIKE '%%'

Estas confundiendo las cosas...una cosa son los filtros de los dataSet y muy distinta son las consulta SQL hacia el servidor..
Los filtros no deben tener la Clausula "WHERE".
Saludos...