necesito que "á" sea igual a "a"

[suntus]

hola

estoy metiendo unas palabras en la base de datos y estas pueden llevar o no acentos

luego hago una busqueda a la base de datos y si no pongo los acentos en la busqueda no salen, como puede hacer para que no importe si una palabra se busca con acento o sin el?

[Muzztein]

pregunta de sql


busca en todos los foros por la palabra COLLATE

[AlZuwaga]

bueno, suntus, además depende de qué BD se trate...

[suntus]

Es una DB access

voy a probar una solucion tuya que encontre
http://www.forosdelweb.com/showpost....42&postcount=3

si sabeis alguna otra, la probare tambien

un saludo

[RossanaIsabel]

Utiliza el comando LIKE de sql para buscar palabras parecidas a la que introducistes no importando mayúsculas ni minúsculas ni acentos, aunque no he probado con este último, de todos manera trata. Espero que te sirva.

Saludos

[suntus]

gracias RossanaIsabel

Ya utilizo LIKE, y es como dices, excepto en lo de los acentos no es igual a que à para el comando LIKE.

Un saludo.

[suntus]

nada Alzuwaga

tu funcion me da error

Function AccIns(Str)
Dim CurLtr
For x = 1 To Len(Str)
CurLtr = Mid(Str, x, 1)
Select Case CurLtr

Case "a", "à", "á"
AccIns = AccIns & "[aàá]"

Case "e", "é", "è"
AccIns = AccIns & "[eéè]"

Case "i", "ì", "í"
AccIns = AccIns & "[iìí]"

Case "o", "ò", "ó"
AccIns = AccIns & "[oòó]"

Case "u", "ù", "ú"
AccIns = AccIns & "[uùú]"

Case "n", "ñ", "Ñ"
AccIns = AccIns & "[nñÑ]"

'etc etc

Case Else
AccIns = AccIns & CurLtr
End Select
Next
End Function


Exactamente en el primer case



Error de compilación de Microsoft VBScript error '800a0401'

Se esperaba un final de instrucción

/resultados.asp, línea 128

AccIns = AccIns & "[aàá]"
--------------------^

[lexus]

esta es la funcion de dazuaga, a mi me ha funcionado ya varias veces

Function sinAcentos(Str)
Dim CurLtr
For x = 1 To Len(Str)
CurLtr = Mid(Str, x, 1)
Select Case CurLtr
Case "a", "à", "á"
sinAcentos = sinAcentos & "[aàá]"
Case "e", "é", "è"
sinAcentos = sinAcentos & "[eéè]"
Case "i", "ì", "í"
sinAcentos = sinAcentos & "[iìí]"
Case "o", "ò", "ó"
sinAcentos = sinAcentos & "[oòó]"
Case "u", "ù", "ú"
sinAcentos = sinAcentos & "[uùú]"
Case "n", "ñ", "Ñ"
sinAcentos = sinAcentos & "[nñÑ]"
Case Else
sinAcentos = sinAcentos & CurLtr
End Select
Next
End Function


y luego al generar la sentencia SQL la llamo donde sea necesario:

sql = "SELECT * FROM Tabla WHERE sNombre LIKE '%" & sinAcentos(palabra) & "%'"

[AlZuwaga]

dos cosas:
1. esa función no es mía ;)
2. no sé por qué te da error... a mi me funciona bien


ehh... ahora que lo veo bien, tres cosas:

3. Me parece que cuando copiaste y pegaste, te reemplazó & por &

Fijate que la función dice:

AccIns = AccIns & "[aàá]"

Y la línea del error es:
AccIns = AccIns & "[aàá]"

Revisá tu código

[suntus]

Gracias Al Zuwaga

No me habia fijado en el punto 3

que fallo mas tonto, todo por no leer.. bueno ahora no me da error voy a creear la sentencia SQL a ver si funciona

gracias a todos..

Todo perfecto.. doy fe que funciona..