FiveTech Software tech support forums

Feliz cumpleaños antonio, que lo pases con familia y amigos.

Verifica el tipo de esa columna en la tabla adt.
Esto hice para aplicar fix en caso de tipo de dato fecha que es un poco diferente en adt (el ltamaño era de 4bits en lugar de 8 como en los dbf), has lo mismo, muestra el
Tipo y tamaño, y corrige...


...
aTab := DBStruct()

Fwdbg aTab

FOR x:=1 TO ...

Eso esta en la libreria hbmysql de contrib de harbour.
Raro que en maria1.prg se llame a esa clase.

Podrias indicar el error, un pantallazo ayudaria tambien...

Encontre el codigo..

STATIC nServer

/*-------------------------------------------------------------------------------------------------*/

FUNCTION Conectar()
LOCAL lConectado := FALSE
LOCAL hArchivoIni := NIL
LOCAL cError := ""
LOCAL cServidor := ""
LOCAL nServidor := 0
LOCAL bConectar ...

Bienvenida, de regreso Aida.

in my test, harbour with mingw, bcc, msvc 32 bits

in mingw32 14.2 ->4gb
in msvc32 -> 2gb
in bcc770 32 bits -> 2gb

1. Si ambos servidores de datos pueden convivir en un equipo, solo debera tener cuidado ya que ambos usan el puerto 3306 para acceder, por lo que deberas cambiar el puerto a uno de ellos, por ejemplo el 3307.

2. Ambos usan el mismo lenguaje SQL (creo que hay un stadard que ambos respetan), sin ...

Realmente antonio, no la uso, simpre tratando de aprender cada vez mas del api tanto de windows como harbour, tengo algunas cosas (funciones) que planeo ir dejando en el foro para que no se pierdan y si son de utilidad a alguen, mejor, y si las mejoran aun mejor.

...
IF FW_ISWOW64()
?"The process is running under WOW64."
ELSE
?"The process is not running under WOW64."
ENDIF
...


...
#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>
#include <tchar.h>

typedef BOOL (WINAPI *LPFN_ISWOW64PROCESS) (HANDLE, PBOOL);

LPFN_ISWOW64PROCESS ...

LOCAL aRec := CUSTOMER->( RecsToArray() )
...
CUSTOMER->(ArrayToRecs(aRec))
...



FUNCTION RecsToArray()
LOCAL nField := FCount()
LOCAL nCount := RecCount()
LOCAL aArray := Array( nCount, nField )
LOCAL i, x

FOR i := 1 TO nCount
FOR x := 1 TO nField
aArray[ i, x ] := FieldGet( x )
NEXT ...

If windows is 64 bits, you app 32 bits load a windows 32 subsystem internally.

If you app is 64 bit, not load sub system.
Salu2

Si,hay un picture que hace el mismo trabajo que strzero
@L

Interesante, la respuesta y claude...