Ultima version de TADOBASE

[Adolfo]

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

[Maurizio]

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

[Adolfo]

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

[Biel EA6DD]

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: Select all  Expand view

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: Select all  Expand view

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

Saludos.

[Adolfo]

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

[armando.lagunas]

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