AYUDA!!! busquedas aproximadas

JJ
05 de Octubre del 2005
Necesito hacer un algoritmo de busquedas aproximadas de texto en cualquier base de datos SQL que ademas me devuelva el porcentaje de aproximacion del resultado.
Alguien me puede ayudar con esto??!!
ME URGE!!! GRACIAS DE ANTEMANO A QUIEN RESPONDA

responder
05 de Octubre del 2005
Bueno te envio unos ejemplos,
dim ad as recorset
dim aq as integer
dim aq as integer
dim aq2 as float
a=ant & "*"
set ad=opendatabase(app.path_& "\empresa.mdb").openrecorset(SELECT * FROM empleado WHERE nombre=\' " & a " \'" )
if ad.abssoluteposition<>-1 then
ad.movelast
aq=ad.recordcout
end if
este codigo encuentra todos los empleados cuyo nombre empiece ant(antonio, antolin, etc)
luego comprueba si la consulta tiene regisstros y los cuenta.(nota: si por ejplo a="*" & nio buscara todos los nombres que acaben por nio ).
ad.close
set ad=opendatabase(app.path_& "\empresa.mdb").openrecorset(SELECT * FROM empleado" )
if ad.abssoluteposition<>-1 then
ad.movelast
aq1=ad.recordcout
end if
aq2=(aq/aq1)*100
y aq2 es % de los resultados
Espero que te sirva