Foro de programacion

#1 (**permalink**) 23 de enero,2006, 22:45

Hola, mi nombre es gaston y tengo un problema.
Hice un programa monousuario y ahora me lo pidieron que lo haga multiusuario, o sea, que en cada pc se pueda ejecutar el programa y dar de alta, modificar, consultar y eliminar en las base.
Es una base de Access y el programa completo esta en un servidor y en las otras PC me agregaron un ejecutable al programa del servidor, pero cuando dos persona quieren ingresar al mismo tiempo marca error diciendo que el programa se esta utilizando.
Que codigo debo utilizar para transformarlo en multi???.

Gracias por su ayuda, saludos cordiales, gaston.

AchedDamiman · #2 (**permalink**) 24 de enero,2006, 18:17

Descarga lo que necesitas desde Aquí: http://www.lawebdelprogramador.com/c.../Visual+FoxPro Espero que te sea de ayuda,sino puedes copiar el ejecutable tantas veces como clientes.

#3 (**permalink**) 25 de enero,2006, 17:36

Hola, gracas por responder, baje lo que mandastes pero es Visual Fox-pro y yo estoy con visual basic.
Gracias igual.

AchedDamiman · #4 (**permalink**) 25 de enero,2006, 17:52

Cita:

Iniciado por Tongas30

Hola, gracas por responder, baje lo que mandastes pero es Visual Fox-pro y yo estoy con visual basic.
Gracias igual.

Ups lo siento pense que era en Fox-pro entonces me parece que si no me equivoco necesitas un Bloqueo:

Código:

With rs '//Indica que el bloqueo será pesimista .LockEdits = True '//Control a rutina de mensajes: On Error GoTo Err_Bloqueo '//Vifurca a la rutina de errores si el registro esta bloqueado ' por otro usuario .Edit '//Desactiva rutina de errores On Error GoTo 0 '//Continua la edición con certeza de los nuevos valores If .EditMode = dbEditInProgress Then '//Asignación de nuevos valores a los campos ... .Update '//Mueve el puntero al registro modificado recientemente .Bookmark = .LastModified Else '//Recupera el registro para ver los cambios realizados por otro usuario. .Move 0 End If End With ... Err_Bloqueo: '//El registro se encuentra bloqueado... Resume Next ...