Visual Basic - URGENTE!!ERROR 3260 AYUDENME PLEASE COLEGAS

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE!!ERROR 3260 AYUDENME PLEASE COLEGAS

Publicado por SPOW (40 intervenciones) el 01/02/2005 02:21:13
URGENTE!!ERROR 3260 AYUDENME PLEASE COLEGAS
Hola amigo, tengo un grandisisisisimoo problema, mi sistema es de transcripcion de datos el cual los usuarios trabajan practicamente todo en un mismo modulo (data enter), resulta que cuando estan trabajando se les presenta el siguiente "error 3260: NO SE PUEDE ACTUALIZAR, ACTUALMENTE ESTA BLOQUEADO POR EL USUARIO 'ADMIN' EN LA MAQUINA U20"
La maquina U20 es uno de los usuarios y varia de maquina dependiendo en que usuario de el error. El problema me parece grave ya que el sistema se sale por completo y bueno tambien que sucede cuando efectuan el registro dandole al boton correspondiente. El codigo esta en DAO con base de datos en Access. El codigo para abrir la BBDD y las tablas es el siguiente, lo cual me imagino que de ahi viene el problema:
Public DATA As DAO.Database
Public CEDORI As DAO.Recordset
Public WKS As Workspace
Public Sub Abrir()
Set WKS = CreateWorkspace("", "admin", "", dbUseJet)
Set DATA = WKS.OpenDatabase(".\CEDULACION.mdb", False, False, ";PWD=DIOS84")
End If
End Sub
En el formulario de ingreso en el evento load tengo el siguiente código para el recorset:
Set CEDORI = DATA.OpenRecordset("CEDORI", dbOpenTable)
CEDORI.Index = "PrimaryKey"

Agradezco de toda la ayuda posible colega... Gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTE!!ERROR 3260 AYUDENME PLEASE COLEGAS

Publicado por Benjo (679 intervenciones) el 01/02/2005 03:10:40
Seguramente estás utilizando un bloqueo Pesimista, el cual es el predeterminado de DAO
Notade DAO : "Utiliza el bloqueo pesimista para determinar cómo se pueden hacer cambios al objeto Recordset en un entorno multiusuario.
La página que contiene el registro que está modificando está bloqueada mientras utiliza el método Edit (predeterminado en espacios de trabajo Microsoft Jet)."
Deberías utilziar un bloqueo optimista (DbOptimistic), el cual se dispara cuando se entra en modo Update.
Es el último parámetro del Método OpenRecordset.
Sería
Set CEDORI = DATA.OpenRecordset("CEDORI", dbOpenTable,,DbOptimistic)
Puede ser que el margen entre edición y edición te ocasione estos inconvenientes, igual sería preciso incorpores una rutina de tratamiento de errores, para que al detectar ocupada la tabla no se cuelgue , sino que aguarda unos segundos para volver a intentarlo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar