Uso de Shared
Posted: Wed Jul 18, 2007 8:09 pm
Hola a todos
Tengo un problema con la apertura de una DBF en modo Shared, cuando lo ejecuto se cuelga la iPaq.
No hay errores de compilación ni cuando enlazo. Tampoco tira error cuando ejecuto el programa. Solo se queda colgada y no responde.
Porque puede ser?
Este es el ejemplo:
Function Mifuncion()
Local D:="\\PIII\C\WPSDatos\"
USE (D+"STOCK.DBF") INDEX (D+"STOCK01.NTX") NEW SHARED ALIAS STOCK
DATABASE oDbfSto
oDbfSto:bEoF:=nil
oDbfSto:GoTop()
Tambien probé
USE (D+"STOCK.DBF") INDEX (D+"STOCK01.NTX") NEW ALIAS STOCK SHARED
DATABASE oDbfSto
oDbfSto:bEoF:=nil
oDbfSto:GoTop()
Return nil
Si la abro sin poner shared funciona perfectamente
Saludos, Natalia
Tengo un problema con la apertura de una DBF en modo Shared, cuando lo ejecuto se cuelga la iPaq.
No hay errores de compilación ni cuando enlazo. Tampoco tira error cuando ejecuto el programa. Solo se queda colgada y no responde.
Porque puede ser?
Este es el ejemplo:
Function Mifuncion()
Local D:="\\PIII\C\WPSDatos\"
USE (D+"STOCK.DBF") INDEX (D+"STOCK01.NTX") NEW SHARED ALIAS STOCK
DATABASE oDbfSto
oDbfSto:bEoF:=nil
oDbfSto:GoTop()
Tambien probé
USE (D+"STOCK.DBF") INDEX (D+"STOCK01.NTX") NEW ALIAS STOCK SHARED
DATABASE oDbfSto
oDbfSto:bEoF:=nil
oDbfSto:GoTop()
Return nil
Si la abro sin poner shared funciona perfectamente
Saludos, Natalia