FiveDBU con soporte de ADO

[cnavarro]

Buenas tardes
Me da un error al intentar abrir bases de datos con nombre menor a 8 caracteres.
Un saludo

[Antonio Linares]

Cristobal,

Usando ADO ó una DBF ? Las DBFs las abre bien (acabo de probar con samples/data.dbf)

[cnavarro]

Antonio, una DBF con ADO
Saludos

[Antonio Linares]

Que error te aparece ?

[cnavarro]

Antonio




Uploaded with ImageShack.us

La primera base de datos la abre sin problemas
En el resto me da el error que aparece
Comentarte que estoy empezando con este tema, por lo que es la conclusion que he sacado.
Saludos

[Antonio Linares]

Cristobal,

Este cambio en la línea 393 de FiveDbu debe solucionarlo:

Code: Select all  Expand view

  if ' ' $ cTable
      cTable   = '[' + AllTrim( cTable ) + ']'
   endif

Te agradezco si lo pruebas y me comentas, gracias

[cnavarro]

Antonio
He añadido en la linea 815 la variable oError, para evitar el WARNING
He puesto sólo RTRIM en lugar de ALLTRIM y funciona perfectamente, por si se pueden llegar a usar nombres largos con espacios en medio (no se si eso se puede en algun entorno).
Al linkar con tu buildh da error de que no encuentra _HB_FUN_EXECUTE, he creado una funcion Execute(); Return nil
pero me gustaría saber si esa funcion existe en alguna libreria o es codigo tuyo.
Gracias por todo y saludos

[Antonio Linares]

Execute() es una función de FWH pero solo para Harbour, ya que xHarbour no la soporta.

[cnavarro]

Yo uso Harbour, que libreria he de añadir, o a partir de que version está soportada en FWH?
Saludos

[Antonio Linares]

hbcplr.lib

[cnavarro]

La tengo incluida, uso tu buildh.bat de FWH, pero me sigue dando el mismo error de linkado

[Antonio Linares]

La función Execute() se incluyo en FWH a partir de la versión 12.07

Code: Select all  Expand view

function Execute( cCode, ... )

   local oHrb, cResult, bOldError, uRet
   local cFWheaders := If( lIsDir( ".\include" ), ".\include", "c:\FWH\include" )
   local cHBheaders := If( lIsDir( ".\include" ), ".\include", "c:\harbour\include" )

   FReOpen_Stderr ( "comp.log", "w" )
   oHrb = HB_CompileFromBuf( cCode, "-n", "-I" + cFWheaders, "-I" + cHBheaders )
   if ! Empty( oHrb )
      BEGIN SEQUENCE
      bOldError = ErrorBlock( { | o | DoBreak( o ) } )
      uRet = hb_HrbDo( hb_HrbLoad( oHrb ), ... )
      END SEQUENCE
      ErrorBlock( bOldError )
   endif

return uRet

//----------------------------------------------------------------//

#pragma BEGINDUMP

#include <stdio.h>
#include <hbapi.h>

HB_FUNC( FREOPEN_STDERR )
{
   hb_retnl( ( HB_ULONG ) freopen( hb_parc( 1 ), hb_parc( 2 ), stderr ) );
}
 

[cnavarro]

Ha quedado OK, añadiendo la funcion DoBreak() que he encontrado en el foro

Code: Select all  Expand view

static function DoBreak()
BREAK
return nil
 

Gracias

[Antonio Linares]

Hemos publicado una versión revisada de FiveDBU que corrige un error en la edición de campos memo. Ahora esta bien

https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130803.zip