topic-17178

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Ultima version de TADOBASE
Posted: Wed Oct 28, 2009 01:32 PM

Descargar de aqui.

http://200.72.140.34/privado/adobase/ADOBASE.rar

Bienvenidos a cooperar, comentar, criticar, mejorar..
Mantendre una version publica con los ultimos cambios a su disposicion.

El servidor no es el mejor.. asi que no esperen mucha velocidad...

Saludos...
Desde Chile
Adolfo

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Maurizio

Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

Re: Ultima version de TADOBASE
Posted: Wed Oct 28, 2009 03:12 PM

Hello Adolfo

I have this error

Error: Unresolved external '_HB_FUN_SQLSKIP' referenced from C:\FWMY\ADOMENU.OBJ
Error: Unresolved external '_HB_FUN_SQLZOOM' referenced from C:\FWMY\ADOMENU.OBJ
Error: Unresolved external '_HB_FUN_SQLEXISTE' referenced from C:\FWMY\ADOMENU.OBJ

Maurizio

Maurizio
www.nipeservice.com

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Ultima version de TADOBASE
Posted: Wed Oct 28, 2009 03:21 PM

Maurizio wrote:Hello Adolfo

I have this error

Error: Unresolved external '_HB_FUN_SQLSKIP' referenced from C:\FWMY\ADOMENU.OBJ
Error: Unresolved external '_HB_FUN_SQLZOOM' referenced from C:\FWMY\ADOMENU.OBJ
Error: Unresolved external '_HB_FUN_SQLEXISTE' referenced from C:\FWMY\ADOMENU.OBJ

Maurizio

UPs

They are part of my personal lib, I forgot to put them in a separate prg..
Give some time to take them, out of it and create a new prg.

Thanks
From Chile
Adolfo

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: Ultima version de TADOBASE
Posted: Fri Nov 06, 2009 12:16 PM

Adolfo wrote:Descargar de aqui.

http://200.72.140.34/privado/adobase/ADOBASE.rar

Bienvenidos a cooperar, comentar, criticar, mejorar..
Mantendre una version publica con los ultimos cambios a su disposicion.

Adolfo

Hola Adolfo,
hace tiempo que ya estuvimos en contacto, y viendo el post, volvi a probar tu clase. Muy buen trabajo, yo tengo un prototipo parecido, pero menos documentado y desarrollado que el tuyo.

Mi pequeño aporte a la clase.
La Funcion StringWhere contiene un error, y devuelve una sentencia Where que contiene solo el ultimo campo de la tabla.

Code (fw): Select all Collapse

Static Function StringWhere(oDb)
Local cRetorno:=""
Local x:=0

      For X = 1 To oDb:nFields
          If X > 1
             cRetorno:= cRetorno + " and " // Quitar . and .
          Endif
          cRetorno+= oDb:FieldName( X -1 )  + " = " + FormatValue(x,oDb) //Concatenar +=, antes se asignaba solo el ultimo campo
      Next

      cRetorno:=cRetorno + " limit 1"

Return cRetorno

Como sugerenncia a esta función , creo que seria mas obtimo montar el where usando solo los campos clave, y no todos los campos como hace ahora. Una tabla con muchos campos y de mucha longitud, generará un where bastante bestia.

Code (fw): Select all Collapse

IF oDb:FieldName(x-1):ProPerties("KeyColumn"):Value  //Si el campo es parte de la clave
 ...

Saludos.

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Ultima version de TADOBASE
Posted: Fri Nov 06, 2009 02:37 PM

Byel..

Gracias por tus comentarios...

La function StringWhere.. es precisamente bestial...porque ?

Porque devuelve todos los campos del recordset con sus valores haciendo un select unico para ese registro, de tal forma que puedo llamar a tAdoReg para cargar TODO el Registro sin equivocarme de llamar a otro.

Yo no me preocuparia del tamaño del cSelect... al llamarse con limit 1 .. es practicamente instantaneo. Y hasta el momento con todas las pruebas que he hecho... nunca ha fallado.. y lo he tratado bien mal ..ja ja ja ja

Anotada tu sugerencia del += el lunes subo otra version con algunos otros detalles comentados por UDS.

Desde Chile
Adolfo

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Ultima version de TADOBASE
Posted: Sat Nov 07, 2009 03:44 AM

hola Adolfo

voy a probar con mySql a ver como me va, tengo una tabla con mas de 7 millones de registros.
te cuento novedades..

saludos

:wink: :wink:

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

FiveTech Support Forums

Continue the discussion