alguien que sea tan amable de explicarme porque la mysqllib no trabaja con los browses de fw, he echo pruebas todo funciona ok, pero en los browses no.
saludos.
fernando sandoval ruiz
Es por la forma en que esta consturido el browse de FW.
Si quieres hacer que funcione, tienes que cambiar varias cosas:
1) definicion de las columnas o datos a mostrar
2) bloques de codigo de longitud de datos (blogiclen y blogicpos)
3) Metodo "skipper" tienes que modficiarlo para que se mueva sobre el cursor.
Mi recomendacion:
Deja de intentar trabajar con tablas SQL como si fueran DBFs, eso no funciona, el modelo es diametralmente opuesto y utiliza mejor ADO.
La prueba que hice fue abrir una tabla con ado y mysqllib y por desgracia la myslqlib es mas rapida. por lo que me quede pensando si no era mucho problema adaptar el wbrowse para que tome los datos hacerlo.
De momento no tengo mucho tiempo para hacer los cambio pero si lo voy considerar para mas delante.
saludos y mil gracias.
**********************************************
*actualiza el array cada vez que hay un cambio
**********************************************
PROC pArCiud()
oTable := oLamcla:oServer:Query( "SELECT * from " + oLamcla:tCiud + " ORDER BY "+vOrden )
oTable:GoTop()
nReg := oTable:Reccount()
nLen := 0
nMax := nReg
IF Empty(nReg)
aBrw := Array(1)
nLen++
aBrw[nLen] := ({ 0,"","","",0})
Asize( aBrw, nLen )
ELSE
aBrw := Array(nReg)
DO WHILE !oTable:Eof()
oTable:GetRow()
nLen++
IF nLen > nMax
aSize( aBrw, (nMax += K_Ajuste))
ENDIF
aBrw[nLen] := ({ oTable:FieldGet('d_Ciudad'),oTable:FieldGet('d_Nombre'),;
oTable:FieldGet('Usuari'),oTable:FieldGet('Ufecha'),oTable:FieldGet('Uhoras') })
oTable:Skip()
ENDDO
Asize( aBrw, nLen )
ENDIF
oTable:Destroy()
CursorArrow()
oBrw:aArrayData := ACLONE(aBrw)
oBrw:refresh()Me gustari colaborar con ustedes para desarrollar ese proyecto, si ustedes lo apruban desde luego.
saludos.
fernando sandoval ruiz