En Harbour con consigo que los campos con acentos funciones correctamente.
Ejemplo:
En Harbour el recordset de la consulta "Select Nombre From Cliente" devuelve "FERNANDO H‚ERN"
En xHarbour devuelve "FERNANDO HéERN"
Si lo que intento es grabar genera un error
En xHarbour el recordset de la consulta "Update clien Set Nombre='FERNANDO HéERN' WHERE Id=570168" funciona correctamente
En Harbour genera este error:
Descripci=n : Error 7200: AQE Error: State = HY000; NativeError = 5211; [iAnywhere Solutions][Advantage SQL][ASA] Error 5211: There is an error converting Unicode string to or from code page string. Some Unicode characters cannot be converted to code page characters
La conexión con xharbour la realizo de la siguiente forma:
Y el recordSet
Hay que cambiar algo en Harbour?
Ejemplo:
En Harbour el recordset de la consulta "Select Nombre From Cliente" devuelve "FERNANDO H‚ERN"
En xHarbour devuelve "FERNANDO HéERN"
Si lo que intento es grabar genera un error
En xHarbour el recordset de la consulta "Update clien Set Nombre='FERNANDO HéERN' WHERE Id=570168" funciona correctamente
En Harbour genera este error:
Descripci=n : Error 7200: AQE Error: State = HY000; NativeError = 5211; [iAnywhere Solutions][Advantage SQL][ASA] Error 5211: There is an error converting Unicode string to or from code page string. Some Unicode characters cannot be converted to code page characters
La conexión con xharbour la realizo de la siguiente forma:
Try
xConnStr := "Provider= Advantage.OLEDB.1;"+;
"User ID= "+cUsr+";"+;
"PassWord= "+cPass+";"+;
"Data Source="+cAdd+";"+;
"ServerType ="+cType+";"+
"CharTye=ADS_ANSI;"+;
"Persist Security Info=False"
oAdoConexion := Createobject("adodb.connection")
oAdoConexion:Mode := adModeRead // Conectamos en Solo Lectura
oAdoConexion:Open(xConnStr)
Catch
if lErr
Error('En estos momentos no se puede conectar a la base de datos'+CRLF+'Por favor, intentelo dentro de unos instantes')
endif
Return .F.
EndY el recordSet
oRcs := CreateObject("ADODB.recordset")
oRcs:CursorLocation := xCursorLocation
oRcs:CacheSize := nPageSize
oRcs:PageSize := nPageSize
oRcs:CursorType := xCursorType
oRcs:LockType := xLockType
oRcs:Open(cConsulta, oAdoConexion)Hay que cambiar algo en Harbour?
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
