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