Actualizacion TMySQL

Amigos,

A petición de varios amigos subo la actualización de la LIB que tengo en uso de TMySQL.

Aquí la descarga.

TMYSQL DESCARGAR

Saludos

Actualización tmysql (LIB) 02-02-2012

Amigos,

Aqui la actualización de la LIB para tmysql, contiene varias optimizaciones.
* Se corrige y optimiza el modulo de respaldo y restauracion.

Una adición importante es la sugerida por el colega "NTX SOLUTIONS" donde comenta que valdria la pena poder adicionar varias registros u ordenes al mismo tiempo.
+ MultiExecute( aQuery )

Aqui el LINK de descarga TMYSQL 02022012

Saludos

tmysql 20100705

Correcciones menores

Corrección método seek()
Eliminación de tmysqlrow()

Aqui el link de descarga

Saludos

Tmysql build 20100702

Nuevo build de la tmysql.

Novedades:

-- Corregido el uso de seek quedando:
oQry := omysql:query( "select * from clientes" )
? oQry:fieldget(1), oQry:fieldget( "codigo" ), oQry:codigo

oQry:codigo := 102030


? oQry:fieldget(1), oQry:fieldget( "codigo" ), oQry:codigo

hRow := oQry:seek( "codigo=102030",, {"*"} )
? hRow:codigo, hrow:descripcion

hRow := oQry:seek( "codigo=102030",, {"codigo"} )
? hRow:codigo

? oQry:seek( "102030", "codigo" ) // aquí regresa .t. o .f.

-- Se optimizan métodos de tmysqlquery() y tmysqltable

sin tanto preambulo como siempre AQUI LA DESCARGA

saludos

TMYSQL Modificacion build 2010-06-28

Se ha modificado a petición de Ariel (argentina) el comportamiento del método Seek(), quedando de la siguiente manera.

oQry := oServer:Query( "SELECT * FROM clientes" )

Pensando que podemos hacer las busquedas así:

lFound := oQry:seek( "cliente = '20' )
lFound := oQry:seek( "20", "cliente" )

aReturn := oQry:seek( "cliente='20'",, {"nombre", "cliente", "direccion" }

AQUI LA DESCARGA

saludos

pd. servido Ariel

TMYSQL Modificacion build 2010-06-27

Amigos,

Aquí una actualización de la tmysql a la fecha del título, las modificaciones son:

Para ver la fechal del build de la lib
? oServer:cBuild

+ Modificación del método save()
No grababa, tenia un pequeño problema, detectado por Luis

+ Se adiciona la funcion setxbrowseold( oBrw, oQry, aFields )
Para versiones de FWH antigüas

oQry := oServer:Query( "SELECT * FROM clientes" )
El formato de aFields

aFields := { ;
"NAT", ;
{ "codigo", "Mi clave" }, ;
{ "nombre", "Nombre de mi clave" } ;
}

Bueno, espero sea de utilidad.

Como siempre AQUI LA DESCARGA

Quedo pendiente de los comentarios.

saludos

Novedades en :Seek()

Hola a todos,

Dejamos a su disposicion una nueva y rapida forma de verificar un dato dentro de una tabla cualquiera independiente del query en curso.

oServer:Seek( cTable, cQuery ) -> lFound


Ej.

lReto:= oServer:Seek( "clientes", "codigo = 123456" )


Aqui la lib : http://www.box.net/shared/lut1rt9tyc

Espero les sirva.
Saludos.

TmySql Actualización 6.feb.2010

Bueno,

En esta ocasión he actualizado los modulos de respaldo y restauración de información de contenedores y sus respectivas tablas.

AQUI LA DESCARGA

La sintaxis de backup() quedó de la siguiente manera:
oCon:backup( aSelect, cFile, lDrop, .f., oDlgsql )

Y del restore() asi quedó:
oCon:restore( aSelect, cFile, oDlgsql )

La explicación de cada parámetro es explicado en la entrada anterior.

Cualquier duda andamos por el Messenger o por aquí.

Saludos

TMYSQL (backup-restore)

Amigos,

He adicionado el modulo de respaldos y restauración a la clase TMySQL, sin mas preámbulo aquí la manera de usarlo.

** BACKUP **

aSelect := { "barras", "productos", "usuarios" }
cFile := "incos.sql"
lDrop := .t.
lOver := .t.
MSGRun( "Generando respaldo, espere por favor...",, {|oDlgsql| nItem := oCon:backup( aSelect, cFile, lDrop, lOver, oDlgsql )} )

Aquí la descripción de los datos a pasar.

aSelect.- Arreglo unidimensional conteniendo la lista de tablas a respaldar.
cFile.- Nombre de archivo con extensión en donde se guardará el respaldo.
lDrop.- Valor lógico donde se define si se incluye la instrucción DROP TABLE y la creación de la tabla.
lOver.- Valor lógico donde indica si el archivo de respaldo se sobreescribe o no.
oDlgsql.- Objeto en este caso el del MSGRUN para visualizar el avance del respaldo.

Valores que retorna en este caso guardado en la variable nItem.

0.- Ejecutado correctamente.
1.- No hay contenedor seleccionado (base de datos)
2.- Si el archivo de respaldo existe
3.- No selecciono tablas para respaldar.

** RESTORE **

aSelect := { "barras" }
cFile := "incos.sql"
MSGRun( "Restaurando información, espere por favor...",, {|oDlgsql| nItem := oCon:restore( aSelect, cFile, oDlgsql )} )

Descripción de datos a pasar.

aSelect.- Arreglo unidimensional que contiene las tablas a restaurar. Cabe mencionar que se puede seleccionar que tablas restaurar.
cFile.- Nombre del archivo que contiene el respaldo.
oDlgsql.- Objeto en este caso el del MSGRUN para visualizar el avance del respaldo.

AQUI LA DESCARGA

Sería importante comentar su uso y si está funcionando todo bien. Acá hicimos pruebas, pero algo pudo pasarse.

Espero comentarios pues son inyecciones de ánimo.

Saludos

William Morales