Búsqueda incremental en Firebird

72 views
Skip to first unread message

Altavoz2000

unread,
Dec 27, 2025, 11:22:14 PM12/27/25
to Comunidad de Visual Foxpro en Español
Saludos compañeros;

Estoy actualizando un sistema que usaba tablas nativas de Visual FoxPro

Pero éste programa realiza una búsqueda incremental para localizar un determinado producto, de tal manera que en un campo de texto, el usuario va escribiendo la letra inicial del producto y en una grilla le va a apareciendo las coincidencias de la búsqueda hasta que después de escribir varias letras le aparecen pocas coincidencias dentro de la grilla y puede seleccionar su producto para pasarlo a una grilla final.

Pero no consigo realizar lo mismo usando Firebird.

Tengo esto, pero no consigo traer nada.

lcTexto = '%' + ALLTRIM(UPPER(THIS.Value)) + '%'

d_busca = "SELECT M_DESCRIP, M_PRE_PUB FROM  M_CIAS  Where m_descrip Like lcTexto Order by m_descrip"

SQLEXEC(lnHandle,d_busca,'miCursor')

Como nota adicional, les quiero comentar que se trata de un sistema mono-usuario y la cantidad de productos no excede de 1000 registros.

Pensaba pasar los datos a una tabla temporal, pero creo que es posible hacerlo en Firebird emebebido.

Gracias por sus comentarios, Saludos

Esteban Herrero

unread,
Dec 28, 2025, 9:21:13 AM (14 days ago) 12/28/25
to publice...@googlegroups.com

Hola...

En el Sql de búsqueda donde dice lcTexto, esto debe estar entre apóstrofes.

y si se puede hacer lo q queres, no importa q sea embeeded.

Saludos

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/df3d77d6-175a-4171-b2fb-bfb0c4c1cba3n%40googlegroups.com.

Mik

unread,
Dec 28, 2025, 8:44:33 PM (13 days ago) 12/28/25
to Comunidad de Visual Foxpro en Español
Prueba esto:

lcTexto = '%' + ALLTRIM(UPPER(THIS.Value)) + '%'
text to d_busca noshow textmerge

SELECT M_DESCRIP, M_PRE_PUB FROM  M_CIAS Where m_descrip Like '<<lcTexto>>' Order by m_descrip
endtext
SQLEXEC(lnHandle,d_busca,'miCursor')

Saludos!

Job Silva

unread,
Dec 29, 2025, 5:21:05 AM (13 days ago) 12/29/25
to publice...@googlegroups.com
Muchas gracias, voy a probar.

Saludos!!!

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/OzvrRjo8A3U/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/48b02b40-aea2-4c0c-8822-1bfcd19ccc0cn%40googlegroups.com.


--
Job Silva Ramírez
Reply all
Reply to author
Forward
0 new messages