En estos días, tuve la necesidad de importar información desde un archivo plano csv separados por punto y coma, pero tengo problemas con el temas de las ñ y las tildes, cuando abro el archivo en block de notas, se ve perfectamente:
En la aplicación, específicamente en un xbrowse, también se ve de manera correcta:
Pero en la base de datos, no se visualiza correctamente:
El problema radica en que al momento de hacer una búsqueda que incluya estos caracteres retorna falso.
El código de la busqueda:
- Code: Select all Expand view
*******************************
*HACEMOS EL FILTRO DEL RECORSET
*******************************
METHOD hacefiltro(cBrw,vGbus,oGbus) CLASS cBusc
IF Empty(vGbus)
::oRsBar:Filter := ""
ELSE
::oRsBar:Filter := ::hCampos["codigo"]+" LIKE '%" + alltrim(vGbus) + "%' OR "+::hCampos["nombre"]+" LIKE '%"+alltrim(vGbus)+"%'"
IF ::oRsBar:EOF .and. ::oRsBar:BOF
MsgStop( oLamcla:mBusc,oLamcla:mDato)
::oRsBar:Filter := ""
oGbus:setfocus()
ENDIF
ENDIF
::oRsBar:REQUERY()
cBrw:Refresh()
RETURN NIL
