Visual Basic - Access se bloquea.

Life is soft - evento anual de software empresarial
   
Vista:

Access se bloquea.

Publicado por Nestor (3 intervenciones) el 18/05/2010 18:40:35
Que tal.

Tengo una pequeña aplicación desarrollada con vb 6.0 y base de datos en
Access 2003. El número de usuarios concurrentes asciende a 7. La base de datos está alojada en un servidor con Windows XP.

Es una aplicacion donde los usuarios guardan o consultan datos en la misma base a traves de una red. (Casi sin parar)-

Desde siempre la aplicación ha tenido un error al grabar en la base de
datos, el error que manda es "No se pudo actualizar; actualmente este
elemento está bloqueado" bajo este error no se puede guardar ni hacer consultas; en un principio no le puse mucha atención a este error ya que se presentaba de manera muy esporádica ( una o dos veces a la semana ), pero de un tiempo para acá se ha venido presentando diario y
varias veces al día, lo cuál es muy molesto para los usuarios.

Mis preguntas son:

1.- Se debe a un error de programación.
2.- Puede ser un problema con la red.
3.- O algo relacionado a ACCESS.

Cualquier ayuda que me puedan proporcionar se las agradeceré, gracias.

Aca va el Codigo que utilizado para guardar datos
--------------------------------------------------------------------------------------
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim c As String

----------------------------------------------------------------------------------------
Private Sub Command2_Click()

If cnn.State = 1 Then
cnn.Close
End If


cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mis sitios en red\SISTEMA DE CARGA DE DATOS\Datos.mdb;Persist Security Info=False"

cnn.Open


rs.Open "select * FROM datos", cnn, adOpenDynamic, adLockOptimistic



Call Asignar_Datos

rs.Update


MsgBox " Registro guardado", vbInformation, "Grabar"


End Sub
----------------------------------------------------------------------------------------------------
Private Sub Asignar_Datos()


rs.AddNew

rs("MENSAJE") = RichTextBox1.Text

End Sub
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