
19/03/2002, 11:37
|
| | Fecha de Ingreso: enero-2002
Mensajes: 120
Antigüedad: 23 años, 4 meses Puntos: 0 | |
Re: acentos en buscador Esta es una muy buena función proporcionada en este foro:
MiPalabra = AccIns(MiPalabra)
Luego en el Select no tienes que tener ningún problema:
sSQL = "Select * from tabla where palabra=" & Mipalbra
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ñÑ]"
Case Else
AccIns = AccIns & CurLtr
End Select
Next
End Function |