Error ADSADT/5005 Error 5005

[Vikthor.Thomas]

Buen día a tod@s

Estoy realizando una consulta usando Advantage Database versión 10, Harbour 3.2 dev 64 Bits , FWH64.1311

Y obtengo el siguiente mensaje de error :

Error ADSADT/5005 Error 5005: The supplied buffer was insufficient for the information returned. The data may have been truncated.
Le ha sucedido a alguien más ?

La misma consulta usando el ARC finaliza sin presentar problema.

Saludos

[RenOmaS]

Hola

Esperimentastes configurar, la data

:CacheSize := 100

[Vikthor.Thomas]

En que Objeto está esa data ?

[RenOmaS]

Buenas.
en el recordset, antes del open

vea como utiliza fivewin wn adofuncs.prg

Code: Select all  Expand view  RUN

  WITH OBJECT oRs
      if ! Empty( oCn )
         :ActiveConnection    := oCn
      endif
      :Source              := cSql
      :LockType            := nLockType
      :CursorLocation      := 3            // adUseClient
      :CacheSize           := 100
      :CursorType          := nCursorType  // adOpenDynamic
      if nMaxRecords != nil
         :MaxRecords       := nMaxRecords
      endif
      //
      TRY
#ifdef __XHARBOUR__
         if nOpt == nil
            :Open()
         else
            :Open( OleDefaultArg(), OleDefaultArg(), OleDefaultArg(), OleDefaultArg(), nOpt )
         endif
#else
         if nOpt == nil .or. Empty( oCn )
            :Open()
         else
            :Open( :Source, :ActiveConnection, :CursorType, :LockType, nOpt )
         endif
#endif
      CATCH
         if ! Empty( oCn )
            FW_ShowAdoError( oCn )
         endif
         oRs   := nil
      END
   END

[Vikthor.Thomas]

Gracias por la respuesta

Alguna otra sugerencia, yo no estoy usando ADO

Code: Select all  Expand view  RUN

cQuery:=alltrim(cQuery)
AdsConnect( cPath )
hAds := AdsConnection()
If hAds == 0
   MsgInfo( "La Sesion SQL no pudo ser iniciada, desconectando...")
   return nil
Endif

ADSCreateSQLStatement( cTable , 2 , hAds )
lSucces := ADSExecuteSQLDirect( cQuery )

 

[RSalazarU]

Vikthor:

Yo uso ADS en forma extensa, y hasta ahora no e tenido ese mensaje de error (espero no tenerlo nunca).

Por lo que entiendo del mensaje, la cadena/string cQuery es muy grande.

Por que no pruebas dividiéndola.

Otra alternativa seria crear procedimientos almacenados, para que realicen la mayor parte de la tarea.

Aca te dejo una funciones que a mi me ayudan en el trabajo:

Code: Select all  Expand view  RUN

STATIC lError
STATIC nError
STATIC cError

//--------------------------//
Function SQL_Error()
   return lError
//--------------------------//
Function SQL_nError()
   return nError
//--------------------------//
Function SQL_cError()
   return cError
//--------------------------//
Function SQL_nErrorSubCode()
   return if(nError=0,0,Val(SubStr(cError,At("NativeError",cError)+14,4)))

//--------------------------//
//Ejecuta una comando SQL: INSERT, UPDATE, etc..., al final cierra el area
Function SQL_Command(cSql, nConnect)
local nAreaAnterior := Select()
local lOk := .F.

   lError := .F.
   nError := 0
   cError := ""
   DBSelectArea( 0 )
   if ADSCreateSQLStatement('SQL_Command', AdsSetFileType(), nConnect)// 1=ADS_NTX, 2=ADS_CDX, 3=ADS_ADT
      if ADSExecuteSQLDirect( cSql )
         lOk := .T.
      else
         lError  := .T.
         nError := AdsGetLastError(@cError)
         LogFile( ".\sqlerror.log", { "SQL_Command()", "ADSExecuteSQLDirect: "+cError, cSql} )
         if SQL_nErrorSubCode()=2102//Data truncated
            lOk := .T.
         endif
      endif
      DbCloseArea()
      //AdsCloseSQLStatement()
   else
      lError  := .T.
      nError := AdsGetLastError(@cError)
      LogFile( ".\sqlerror.log", { "SQL_Command()", "AdsCreateSqlStatement: "+cError} )
   endif
   DBSelectArea( nAreaAnterior )

   Return lOk

//--------------------------//
//Devuelve una consulta/cursor/tabla SQL: Select * from... , no cierra el area al final
Function SQL_Cursor(cSql, cAlias, nConnect)
local lOk := .F.

   DEFAULT cAlias := cSAUROGetNewAlias( "SQL" )

   if Valtype(cAlias)="N" //el parametro pasado es una area NO un alias
      if cAlias > 0
         DBSELECTAREA( cAlias ) //Seleccionamos el area especificada
         if Used()
            cAlias:=Alias(cAlias)
            DbCloseArea()         //antes de volverla a abrir la cerramos; porque si la dejamos abierta se produce un error
         else
            cAlias:=cSAUROGetNewAlias( "SQL" )
         endif
      else
         DBSELECTAREA( 0 )
         cAlias:=cSAUROGetNewAlias( "SQL" )
      endif
   else
      DBSELECTAREA( Select(cAlias) ) //Si "cAlias" ya esta abierta en un area, la volveremos a abrir en la misma area.
                                     //Si el alias no esta abierta, Select(cAlias) devuelve 0 y seleccionamos el area 0
      if Used()
         DbCloseArea()         //antes de volverla a abrir la cerramos; porque si la dejamos abierta se produce un error
      endif
   endif

   lError := .F.
   nError := 0
   cError := ""
   if ADSCreateSQLStatement(cAlias, AdsSetFileType(), nConnect)// 1=ADS_NTX, 2=ADS_CDX, 3=ADS_ADT
      if ADSExecuteSQLDirect( cSql )
         lOk := .T.
      else
         lError  := .T.
         nError := AdsGetLastError(@cError)
         LogFile( ".\sqlerror.log", { "SQL_Cursor()", "ADSExecuteSQLDirect: "+cError, cSql} )
         DbCloseArea()
         //AdsCloseSQLStatement()
      endif
   else
      lError  := .T.
      nError := AdsGetLastError(@cError)
      LogFile( ".\sqlerror.log", { "SQL_Cursor()", "AdsCreateSqlStatement: "+cError} )
   endif

   Return lOk

 

Atentamente,

Rolando
Cochabamba, Bolivia

[Vikthor.Thomas]

Gracias por responder

La consulta que hago es compleja y ADS la resuelve, el error se produce cuando quiero leer el cursor.
La estructura de datos que genera el cursor tiene un campo tipo "Q" longitud 32, decimals 0.
Usando la clase xBrowse, la información que contiene ese campo no se muestra, en cambio usando las clases xBrowse y/o sBrowse obtengo el error descrito.

Alguna sugerencia ?

[karinha]

http://devzone.advantagedatabase.com/dz/webhelp/advantage9.1/mergedProjects/adserror/err5xxx/advantage_5xxx_error_codes.htm

http://nntp-archive.sybase.com/nntp-archive/action/article/%3C40344de9@solutions.advantagedatabase.com%3E

http://comments.gmane.org/gmane.comp.lang.harbour.devel/13772

https://searchcode.com/codesearch/view/4490852/

https://sourcecodebrowser.com/harbour/0.44/ace_8h_source.html

http://devzone.advantagedatabase.com/dz/webhelp/advantage7.1/mergedProjects/ace/api2/adsgetfield.htm

http://devzone.advantagedatabase.com/dz/webhelp/advantage7.1/mergedProjects/ace/api2/adsgetstring.htm

http://harbour.sourcearchive.com/documentation/0.44/ace_8h-source.html

[karinha]

5005 AE_INSUFFICIENT_BUFFER

O buffer fornecido é insuficiente para a informação retornada. Os dados podem ter sido truncado.

El tampón suministrado es insuficiente para la información devuelta. Los datos pueden haber sido truncado.

[Vikthor.Thomas]

Gracias a todos por su ayuda.
El error lo he resuelto de la siguiente forma :

Code: Select all  Expand view  RUN

Select cast('2016-01-17' as SQL_DATE) as Fecha, Cast('Inicial' as SQL_CHAR) as Movimiento

Haciendo la declaración de la columna como tipo Caracter, de lo contrario el curso crea un tipo de dato VARCHARFOX

Listo el pollo !!!!
Saludos

[Vikthor.Thomas]

Gracias a todos por su ayuda.
El error lo he resuelto de la siguiente forma :

Code: Select all  Expand view  RUN

Select cast('2016-01-17' as SQL_DATE) as Fecha, Cast('Inicial' as SQL_CHAR) as Movimiento

Haciendo la declaración de la columna como tipo Caracter, de lo contrario el curso crea un tipo de dato VARCHARFOX

Listo el pollo !!!!
Saludos