02 consultas.
Publicado por KIKILLO (148 intervenciones) el 25/10/2016 01:13:31
hola amigos.
tengo creado un sistema con base de datos del motor de vfp. tengo un programa definido con set main y hago lo siguiente. abro la base de datos con shared, pero cuando intento abrirla desde otra pc me muestra un mensaje como que la abro en modo exclusivo.
SET TALK OFF
SET CENTURY ON
SET DELETED ON
SET SAFETY OFF
SET DATE BRITISH
SET CLOCK ON
*SET HOURS TO 24
SET NOTIFY OFF
SET OPTIMIZE ON
SET DECIMALS TO 2
set multilock on
set talk off
set safety off
RELEASE ALL
application.Visible=.f.
CLEAR
_screen.windowstate = 2 && maximizar
_screen.AutoCenter = .T. &¢rado
SET CLASSLIB TO miclase.vcx ADDITIVE &&Abre la biblioteca de clases visuales .vcx sin cerrar ninguna abierta actualmente
_SCREEN.ADDPROPERTY('oToolbar', .F.)
_SCREEN.OTOOLBAR = CREATEOBJECT("bherramientas")
_SCREEN.OTOOLBAR.DOCK(0)&& .DOCK(1)
_SCREEN.OTOOLBAR.CAPTION = 'Herramientas'
_SCREEN.OTOOLBAR.SHOW
_SCREEN.OTOOLBAR.COMMAND1.SETFOCUS
OPEN DATABASE "acmmat" SHARED
tengo creado un sistema con base de datos del motor de vfp. tengo un programa definido con set main y hago lo siguiente. abro la base de datos con shared, pero cuando intento abrirla desde otra pc me muestra un mensaje como que la abro en modo exclusivo.
SET TALK OFF
SET CENTURY ON
SET DELETED ON
SET SAFETY OFF
SET DATE BRITISH
SET CLOCK ON
*SET HOURS TO 24
SET NOTIFY OFF
SET OPTIMIZE ON
SET DECIMALS TO 2
set multilock on
set talk off
set safety off
RELEASE ALL
application.Visible=.f.
CLEAR
_screen.windowstate = 2 && maximizar
_screen.AutoCenter = .T. &¢rado
SET CLASSLIB TO miclase.vcx ADDITIVE &&Abre la biblioteca de clases visuales .vcx sin cerrar ninguna abierta actualmente
_SCREEN.ADDPROPERTY('oToolbar', .F.)
_SCREEN.OTOOLBAR = CREATEOBJECT("bherramientas")
_SCREEN.OTOOLBAR.DOCK(0)&& .DOCK(1)
_SCREEN.OTOOLBAR.CAPTION = 'Herramientas'
_SCREEN.OTOOLBAR.SHOW
_SCREEN.OTOOLBAR.COMMAND1.SETFOCUS
OPEN DATABASE "acmmat" SHARED
Valora esta pregunta


0