FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problemas con UTF8 en base de datos
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Problemas con UTF8 en base de datos
Posted: Wed Jun 10, 2020 12:48 PM
Buenos días para todos,

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 (fw): Select all Collapse
*******************************
*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
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Problemas con UTF8 en base de datos
Posted: Wed Jun 10, 2020 05:43 PM

Cuando el CSV lo abres con el notepad, y le dices "Guardar como", qué te indica en la "codificación", UTF8?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 187
Joined: Mon Oct 20, 2008 06:33 PM
Re: Problemas con UTF8 en base de datos
Posted: Sun Aug 16, 2020 05:41 PM

hb_utf8tostr() não funciona?

Oscar Ribeiro

OASyS Informática

Fwh18.02 + xHarbour 1.2.3 + Bcc72
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problemas con UTF8 en base de datos
Posted: Mon Aug 17, 2020 11:53 AM
Aqui, funcionou bem.

Tente / Intente:

Code (fw): Select all Collapse
   HB_SETCODEPAGE( "UTF8" )

   mxBairro := HB_OemToAnsi( HB_UTF8ToStr( mxBairro ))
   mxEndere := AllTrim( HB_OemToAnsi( HB_UTF8ToStr( mxEndere )) )
   mCidade  := HB_OemToAnsi( HB_UTF8ToStr( mCidade ))


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion