22/07/2003, 05:34
|
| | | Fecha de Ingreso: junio-2002 Ubicación: Murcia
Mensajes: 173
Antigüedad: 22 años, 6 meses Puntos: 0 | |
Yo utilizo esta función: 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) & "%'"
Más sencillo imposible no? |