FWH Generator

Amigos,

Siempre he necesitado recompilar FWH con la versión del CVS de xHarbour y últimamente me ha dado muchos problemas la HARB2LIB del amigo Jorge Masón y pues teniendo la necesidad y comprendiendo como se hace he realizado el siguiente proceso de compilación inclusión en la LIB respectiva de FWH.

Sin tanto preambulo aquí coloco el LINK DE DESCARGA de la herramienta generada.

Falta colocarle la piel, pero estoy detallando la funcinalidad, después el tema de la piel.

Saludos y esperemos puedan usarla.

Cordialmente. William Morales

Modificación del metodo Seek

A petición del amigo Cruz Alfredo,

He modificado el método seek para que haga las busquedas de la manera comentada anteriormente y ahora con la siguiente modalidad.

oQry:seek( "'juan' == nombre AND 20091117 >= fecha" )

Si se fijan ahí no es necesario colocar la columna de busqueda, pues es una busqueda multicolumna.

Saludos

AQUI EL LINK DE DESCARGA

Adiciones a TMySQL

Aquí reportándome amigos.

En esta ocasión he adicionado unas cuantas cosillas a la tmysql.

adduser( cHost, cUser, cPassword, cContenedor, lCreatedDB )
Este método adiciona un usuario directamente a mysql, si se especifica el
contenedor (cContenedor) el usuario solo actúa para la base de datos seleccionada y
si es pasado lCreatedDB la base de datos es creada automáticamente.

dropuser( cUser )
Elimina un usuario de mysql, revocando sus privilegios de igual manera.

renameuser( cUser, cNewName )
Cambia el nombre al usuario, manteniendo sus privilegios intactos.

seek( xData, cCol )
Busca la información (xData) en la tabla de la consulta activa, desde luego,
se debe de especificar la columna de busqueda (cCol). Cabe mencionar que es
altamente recomendable que la columna de busqueda (cCol), sea una columna
indexada.

Ejemplos:

oServer:adduser( "localhost", "tmysql", "morales", "test" )
En este ejemplo, se crea el usuario 'tmysql' con contraseña 'morales' y el
usuario solo tendrá acceso al contenedor 'test' que debe de estar creado.

oServer:adduser( "localhost", "tmysql2", "morales", "tmysql", .t. )
En este ejemplo, se crea el usuario 'tmysql2' con contraseña 'morales' y el
usuario solo tendrá acceso al contenedor 'tmysql' que será creado.

oServer:dropuser( "tmysql2" )
En este ejemplo eliminamos el usuario 'tmysql2'.

oServer:renameuser( "tmysql", "tmysql2009" )
En este ejemplo cambiamos de nombre a 'tmysql" por 'tmysql2009', así de simple.

oQuery:seek( "102030", "cliente" )
El ejemplo anterior nos muestra la manera de localizar la clave '102030' en la
columna 'cliente' de la tabla clientes.

oQry:seek( "FN10300", "productos" )
El ejemplo anterior nos muestra la busqueda del producto 'FN10300' en la
columna 'producto' de la tabla tabla productos.

oQry es la consulta ya generada, ejemplo:
oQry := oServer:Query( "SELECT * FROM clientes" ) o,
oQry := oServer:Query( "SELECT * FROM productos" )


Bueno, sin tanto preámbulo aquí el link de descarga de la LIB TMYSQL

Incrementando velocidad en el pintado de xbrowse

Bueno,

pues eso, mis pruebas con TMySql me han llevado a la modificación de la XBrowse, hasta ahora he mejorado el pintado de las líneas.

AQUI LA MODIFICACION

Espero sea de utilidad

Saludos

Optimización de tmysql

Amigos,

He optimizado el uso del skip() y el getrow() de la tmysql.

Aqui la DESCARGA de la lib actualizada.

Saludos

Estadísticas de aportes

Amigos,

Pos eso, comunicarles las estadísticas que tenemos hasta hoy 20/10/2009 a las 15:30 horas.

Estadística de BOX.NET

Que sabroso se siente, jjejjejjejje

saludos

mysql.lib recompilada

Amigos,

Resulta que la mysql.lib que subí anteriormente usaba el xHarbour, pero consumía recursos indiscriminadamente, asi que bajé de nuevo el xHarbour del CVS y resulta que ahora el consumo de recursos es "normal".

Aquí el link de DESCARGA espero sigan descargandola y testeando.

saludos