Busqueda con acentos

[ninhovid]

Hola.. como le hago en VBasic para realizar una busqueda con acentos y eñes?
es que si busco a Jose no me encuentra a José y pues asi esta bien chafa....

ahorita asi tengo la busqueda:
texto = InputBox("Dame el nombre del niño a inscribir: ", "Verificando...")
Set bd = OpenDatabase("C:\EMIA\EMIA.mdb")
Set tabla = bd.OpenRecordset("SELECT Nombre FROM Alumnos")
tabla.FindFirst "Nombre='" & texto & "'"
If tabla.NoMatch Then
....
else
....
end if


y otra cosa, como le hago para ya no usar en una busqueda el findfirst? ya puse esto:
Set tabla = bd.OpenRecordset("SELECT * FROM Niño WHERE Nombre='" & texto & "'")

pero luego no se como hacer el if de si lo encuentra o no, como le hago?
gracias!!!

[sdnsdlm]

A mí no se me ocurre otra forma que construyendo la cadena sql con un like, ya que al fin y al cabo o y ó tienen distinto ascii. Así que puedes hacer lo siguiente:

- Reemplazar en la variable texto la vocal acentuada que tengas por la cadena [vocal_no_acentuada, vocal_acentuada], es decir, si por ejemplo mete José, tendrías:
texto="José" (originalmente)
texto="Jos[e,é]" (después de reemplazar)

Y luego el like y funcionaría bien. Ahora bien, me preguntarás: ¿Y si mete Jose como puedo hacer para que me busque José? Eso conllevaría tener un corrector ortográfico que supiera donde va el acento en una palabra que no se ha acentuado, por ejemplo: si el tío pone "camion" tendrías que tener un mecanismo de saber que es camión y no cámion o camíon, ¿me comprendes? Una solución drástica pero chapuzera sería hacer eso con todas vocales, es decir, si mete camion, crear la cadena de consulta:
"c[a,á]m[i,í][o,ó]n", la verdad creo que en un 99.9999999999% de los casos esto a pesar de ser muy rústico funcionaría bien. Dudo que hay alguna palabra que sea completamente diferente dependiendo de donde se acentúe, y así recogerías todos los casos posibles.

No sé, he esperado unos días a que alguien dijera algo más brillante que esto pero como nadie reponde podrías probar con esto.

Saludos.

[sdnsdlm]

Ah, respecto a lo segundo puedes usar la función del recordset RecordCount, o bien un simple

if not tu_recordset.eof then
sentencias cuando ha encontrado algo
else
sentencias cuando no ha encontrado nada
end if

Saludos.

[ninhovid]

pues a intentar tu sugerencia, gracias de todas formas...
saludos...

[sdnsdlm]

No lo digas con resignación, que posiblemente es que no haya otra manera de hacerlo, desde luego no tienes en VB una función que sea TransformaAcentos, y si la hay es porque alguien que no es de la cuadrilla de babosos del bill gates la ha programado a pelo. Pero lo que te he dicho, funciona bien seguro, y no veo tan mala la solución que te he dado como para decir "gracias de todas formas".

[ninhovid]

jejeje.. no quise decir eso, es que tenia flojera hace rato, pero ya la empece a hacer hace 10 minutos....

gracias!!! :)