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:
- Code: Select all Expand view RUN
- 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.
End
Y el recordSet
- Code: Select all Expand view RUN
- 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?
