Feliz Navidad 2010

Amigos,

He dejado de escribir por unos meses, ha sido un año muy difícil. Tanto en lo profesional como en lo personal.

Desde luego, hemos logrado superar algunos problemas y otros espero se estén solucionando.

Espero subir mas novedades con lo que he venido aportando y escribir más seguido.

Les deseo a todos una Feliz Navidad en compañía de todos su seres queridos y que la paz, armonía y unión reinen en esta navidad y en todos los días de su vida.

Saludos
Sinceramente
wmormar

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.

Instalación de MySQL

Ante todo doy las gracias a William Morales por permitir contarles mis inicios con MySQL.
En este primer post voy a contar mi experiencia al instalar el servidor en mi notebook con Windows Vista Home Basic.

1°) Baje de la página de MySQL el instalador http://dev.mysql.com/downloads/mysql/
en mi caso, he bajado el archivo zip para Windows (x86,32 bit) y lo descomprimí para luego ejecutar el fichero setup.exe

2°) De las tres opciones para realizar la instalación, elegí la primera de ellas que es la de instalación típica, y luego fui seleccinando las opciones por defecto, hasta llegar a nombre de usuario (root) y password

3°) Para verificar que el servidor esta funcionando, fui a la MySQL command Line Cliente y ahi ingreso el pass
Si todo esta bien veras el prompt de MySQL>

Espero que les sea útil para quienes se quieren iniciar con MySQL, iré subiendo al blog todo lo valla aprendiendo para compartirlo con quienes esten interesados.

Saludos cordiales

Marcelo Roggeri