Ado banco de datos access y nombre de campos con acentos

[RenOmaS]

Buenas Foro
Alguien ha tenido problemas al querer extraer datos de Access, el cual tiene nombre de los campos con caracteres especiales (acentos)

Este codigo me funciona bien en Harbour:

Code: Select all  Expand view

#define adOpenKeyset           1

#define adLockReadOnly         1

STATIC PROCEDURE Exm_ADODB()

   LOCAL oRs, n

   IF ( oRs := win_oleCreateObject( "ADODB.Recordset" ) ) != NIL
      oRs:Open( "SELECT * FROM [Tabela da Grupagem]" , ;
         "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Tabla.mdb;", ;
         adOpenKeyset, ;
         adLockReadOnly )

       For n := 1 To oRs:Fields:Count
           ? oRs:Fields( n - 1 ):Name
       EndFor

      oRs:Close()
   ENDIF

   RETURN
 

El resultado es por ejemplo:

Code: Select all  Expand view

Destinatário
CâmbioEuro

pero, cuando enlazo-traslado esto para una aplicacion fwh,
El resultado no refleja los carateres especiais, retorna:

Code: Select all  Expand view

Destinat rio
C&ambioEuro

[nnicanor]

Debes activar el codepage correspondiente al lenguaje, yo lo uso con Oracle y va de maravillas ....

Code: Select all  Expand view

REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESWIN

Function Main()

....
....
   SET( _SET_CODEPAGE, "ESWIN" )

....

Return



 

Slds,

[RenOmaS]

Buenas.
Gracias por responder..
Tengo activado el codepage, que en mi caso es para el portugues.

Code: Select all  Expand view

REQUEST HB_LANG_PT, HB_CODEPAGE_PT850

.........

   HB_LANGSELECT( 'PT' )
   HB_CDPSELECT( 'PT850' )

 

[RenOmaS]

Pero sigo tendo ese problem



alguma alma caridosa.