Page 1 of 1
Ultima version de TADOBASE
Posted: Wed Oct 28, 2009 1:32 pm
by 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 _ a su disposicion.
El servidor no es el mejor.. asi que no esperen mucha velocidad...
Saludos...
Desde Chile
Adolfo
Re: Ultima version de TADOBASE
Posted: Wed Oct 28, 2009 3:12 pm
by 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
Re: Ultima version de TADOBASE
Posted: Wed Oct 28, 2009 3:21 pm
by Adolfo
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
Re: Ultima version de TADOBASE
Posted: Fri Nov 06, 2009 12:16 pm
by Biel EA6DD
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
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 _ clave, y no todos _ como hace ahora. Una tabla con _ y de mucha longitud, generará un where bastante bestia.
Code: Select all
IF oDb:FieldName(x-1):ProPerties("KeyColumn"):Value //Si el campo es parte de la clave
...
Saludos.
Re: Ultima version de TADOBASE
Posted: Fri Nov 06, 2009 2:37 pm
by Adolfo
Byel..
Gracias por tus comentarios...
La function StringWhere.. es precisamente bestial...porque ?
Porque devuelve todos _ 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
Re: Ultima version de TADOBASE
Posted: Sat Nov 07, 2009 3:44 am
by 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
