Oracle, PadR y los caracteres raros... tengo problemas

[goosfancito]

Hola.

Estoy trabajando con Oracle + ADO.
Tengo un campo definido como

nombre char(100) not null

Antes de grabar hago

Code: Select all  Expand view  RUN

vGet = PADR(vget, 100, " ")   // siendo vGet la variable que utilizo en el REDEFINE GET oGet var vGet...

Me funciona todo bien hasta que en vGet ingreso algun caracter como ser: vocal acentuada, Ç @ # $ (no es puteada, son caracteres)
porque al parecer en vez de completar con 100 espacios en blanco lo hace con 101 y al querer grabar en el campo [nombre] sobrepasa
la capacidad del campo definido en la base de oracle y KAPUT! error...


Como lo resuelvo a este problema?
gracias.

[nageswaragunupudi]

Have you tried using nchar(100) instead of char(100) and setting appropriate chatacterset?

[Willi Quintana]

hola,,, yo uso esta funcion antes de actualizar las tablas.
.. GET cNombres ....
"UPDATE ralacion SET nombres = '" + LImpiaChar(cNombres) + "'" + ..............

Code: Select all  Expand view  RUN

//----------------------------------------------------------------------------------------------------
Function LimpiaChar(cDat, cCadS)
local nLen, nCont, aCadena, cCad
DEFAULT cCadS := "_"

cDat := ALLTRIM(cDat)
IF EMPTY(cDat)
  Return("")
EndIf

aCadena := " 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
nLen := LEN(cDat)
FOR nCont := 1 TO nLen
   cCad := SUBSTR(cDat,nCont,1)
   If AT(cCad, aCadena) = 0
     cDat := STRTRAN(cDat, cCad,"_")
   EndIf
NEXT nCont

If EMPTY(cCadS)
  cDat := STRTRAN(cDat, "_", "")
EndIf

Return(cDat)
 

[goosfancito]

i change char for nchar, delete PADR in my source and now work it!

SET SPANISH jejeje

cambie char por nchar, borre PADR en my codigo y ahora funciona.