Bloqueo de la base de datos

Hola Javier, lo que te pasa no es un error, es un aviso de que la sentencia
no se pudo ejecutar porque los registros que se intentan modificar están
siendo actualizados por otra terminal, al ser actualizados se deben bloquear
si o si, una vez terminada la actualización se desbloquean automáticamente.
Lo que debes hacer es atrapar esa condición y tomar una decisión dependiendo
del tipo de actualización, la cual deberás hacerla por código, por ejemplo
volver a intentar la actualización o anular todo.

Un saludo, Víctor Koch.


"Javier Castro Hermoza" escribió en el mensaje
news:
Mostrar la cita

Hola amigos

Tengo una aplicación en VB6.0 con MS Access 2000, son un promedio de 06 a

05
Mostrar la cita

usuarios conectados todo el DIA al sistema, el problema es el siguiente

que
Mostrar la cita

de vez en cuando en cualquier maquina sale: la base de datos esta

bloqueada
Mostrar la cita

por una maquina X con el usuario Admin. Estoy utilizando la siguiente

cadena
Mostrar la cita

de conexión:

strCon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb;"

Me conecto a la base de datos, hago la operación que tenga que hacer y me
desconecto

Set con = new ADODB.Connection
con.Open strCon
con.Execute strSQL
con.close
Set con = Nothing

Como hago para evitar que ese error me salga
Gracias por la ayuda que puedan brindarme

Aparte de lo dice victor, te voy a comentar lo que me paso despues de que
migre de DAO a ADO, me empeso a mandar de manera repetida el mensaje que
comentas sin razon aparente, hasta que me di cuenta que en ADO con el simple
hecho de posicionarse en el registro aunque fuera para solo consultarlo esta
se ponia en modo edicion, es decir ya no es necesario el "Rs.Edit" y este me
bloqueaba el registro, por lo que modifique a bloqueo a optimista y a abrir
y cerrar la conexion dependiendo si era solo consulta o edición (tratando
siempre de mantener abierta la conexion lo menos posible ya que se trata de
un punto de venta), a demas de pescar el error al entrar y pedir
confirmacion de reintentar..

Saludos Morgan

Victor Koch escribió en el mensaje de
noticias
Mostrar la cita

Hola Javier, lo que te pasa no es un error, es un aviso de que la

sentencia
Mostrar la cita

no se pudo ejecutar porque los registros que se intentan modificar están
siendo actualizados por otra terminal, al ser actualizados se deben

bloquear
Mostrar la cita

si o si, una vez terminada la actualización se desbloquean

automáticamente.
Mostrar la cita

Lo que debes hacer es atrapar esa condición y tomar una decisión

dependiendo
Mostrar la cita

del tipo de actualización, la cual deberás hacerla por código, por ejemplo
volver a intentar la actualización o anular todo.

Un saludo, Víctor Koch.


"Javier Castro Hermoza" escribió en el mensaje
news:
> Hola amigos
>
> Tengo una aplicación en VB6.0 con MS Access 2000, son un promedio de 06

a
Mostrar la cita

05
> usuarios conectados todo el DIA al sistema, el problema es el siguiente
que
> de vez en cuando en cualquier maquina sale: la base de datos esta
bloqueada
> por una maquina X con el usuario Admin. Estoy utilizando la siguiente
cadena
> de conexión:
>
> strCon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb;"
>
> Me conecto a la base de datos, hago la operación que tenga que hacer y

me
Mostrar la cita

> desconecto
>
> Set con = new ADODB.Connection
> con.Open strCon
> con.Execute strSQL
> con.close
> Set con = Nothing
>
> Como hago para evitar que ese error me salga
> Gracias por la ayuda que puedan brindarme
>
>
>
>

Morgan, como decis vos esto sucede porque en ADO no esta mas el metodo Edit,
cuando haces la primer asignacion a un campo del recordset automaticamente
le estas diciendo al recordset que comience el Edit, por eso es de buena
costumbre abrir los recordset del tipo que corresponda, es decir si son de
solo lectura o no, para eso deberias utilizar las opciones CursorType y
LockType.

Un saludo, Víctor Koch.


"Morgan" escribió en el mensaje
news:O7NUM$
Mostrar la cita

Aparte de lo dice victor, te voy a comentar lo que me paso despues de que
migre de DAO a ADO, me empeso a mandar de manera repetida el mensaje que
comentas sin razon aparente, hasta que me di cuenta que en ADO con el

simple
Mostrar la cita

hecho de posicionarse en el registro aunque fuera para solo consultarlo

esta
Mostrar la cita

se ponia en modo edicion, es decir ya no es necesario el "Rs.Edit" y este

me
Mostrar la cita

bloqueaba el registro, por lo que modifique a bloqueo a optimista y a

abrir
Mostrar la cita

y cerrar la conexion dependiendo si era solo consulta o edición (tratando
siempre de mantener abierta la conexion lo menos posible ya que se trata

de
Mostrar la cita

un punto de venta), a demas de pescar el error al entrar y pedir
confirmacion de reintentar..

Saludos Morgan

Victor Koch escribió en el mensaje de
noticias
> Hola Javier, lo que te pasa no es un error, es un aviso de que la
sentencia
> no se pudo ejecutar porque los registros que se intentan modificar están
> siendo actualizados por otra terminal, al ser actualizados se deben
bloquear
> si o si, una vez terminada la actualización se desbloquean
automáticamente.
> Lo que debes hacer es atrapar esa condición y tomar una decisión
dependiendo
> del tipo de actualización, la cual deberás hacerla por código, por

ejemplo
Mostrar la cita

> volver a intentar la actualización o anular todo.
>
> Un saludo, Víctor Koch.
>
>
> "Javier Castro Hermoza" escribió en el mensaje
> news:
> > Hola amigos
> >
> > Tengo una aplicación en VB6.0 con MS Access 2000, son un promedio de

06
Mostrar la cita

a
> 05
> > usuarios conectados todo el DIA al sistema, el problema es el

siguiente
Mostrar la cita

> que
> > de vez en cuando en cualquier maquina sale: la base de datos esta
> bloqueada
> > por una maquina X con el usuario Admin. Estoy utilizando la siguiente
> cadena
> > de conexión:
> >
> > strCon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\base.mdb;"
> >
> > Me conecto a la base de datos, hago la operación que tenga que hacer y
me
> > desconecto
> >
> > Set con = new ADODB.Connection
> > con.Open strCon
> > con.Execute strSQL
> > con.close
> > Set con = Nothing
> >
> > Como hago para evitar que ese error me salga
> > Gracias por la ayuda que puedan brindarme
> >
> >
> >
> >
>
>