Desbloquear un recordset

Hola!
Estoy haciendo un sistema, trabajo con ADO y Access 2000.
Hace un tiempo que tengo una tabla bloqueada, cuando se carga el sistema entra como desbloqueada, pero cuando quiero modificar algo de esa tabla en mi sistema, me sale un mensaje como que el proveedor no soporta esa operación. Y esta en valor 1: de solo lectura y ya no se que hacer para desbloquearla. Si me podrías ayudar, te voy a agradecer enormemente porque no se más que hacer con esa tabla.
Saludos
Griselda

1 respuesta

Respuesta
1
Me colocas el código que tiene problemas y revisas en el directorio donde se localiza tu base de datos que no existan otros archivos raros por ahí.
Borraste el archivo que te comente, y no veo problemas en la apertura pero como haces la modificación, además de que se me hace excesivo el tener todos los elementos de tu base de datos abiertos en la forma en que lo programas.
David:
Este es el código donde abro el recordset y el recordset que tiene problemas se llama rstFVentaPago.
Sub Main()
On Error GoTo Falla 'control de errores en tiempo de ejecución
'Crea Instancias y Conecta Abre la Base de Datos
Const sPathBase As String = "c:\Tesis Gris\BDFlowers\SistemaFlowers.mdb"
Set cnSistemaFlowers = New ADODB.Connection
Set rstCliente = New ADODB.Recordset
Set rstProvincia = New ADODB.Recordset
Set rstLocalidad = New ADODB.Recordset
Set rstRespIva = New ADODB.Recordset
Set rstDatosEmpresa = New ADODB.Recordset
Set rstFacturas = New ADODB.Recordset
Set rstProductos = New ADODB.Recordset
Set rstRubrosProductos = New ADODB.Recordset
Set rstRubros = New ADODB.Recordset
Set rstFVentaPago = New ADODB.Recordset
Set rstDetalleFactura = New ADODB.Recordset
Set rstTipoOperac = New ADODB.Recordset
Set rstUsuarios = New ADODB.Recordset
Set rstCompras = New ADODB.Recordset
Set rstProveedores = New ADODB.Recordset
Set rstEstadoFactura = New ADODB.Recordset
Set rstDetalleCompra = New ADODB.Recordset
Set rstGraficoCompra = New ADODB.Recordset
Set rstTipoFactura = New ADODB.Recordset
Set rstTipodeUsuario = New ADODB.Recordset
With cnSistemaFlowers
.Provider = "ADODB"
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
.CursorLocation = adUseClient
End With
'Abrir el conjunto de registros
rstCliente.Open "SELECT * FROM Clientes ", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstFacturas.Open "SELECT * FROM Facturas", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstProductos.Open "SELECT * FROM Productos", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstRubros.Open "SELECT * FROM Rubros_Productos_SF", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstRubrosProductos.Open "SELECT * FROM Rubros_Productos_SF", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstProvincia.Open "SELECT * FROM Provincia", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstLocalidad.Open "SELECT * FROM Localidad", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstRespIva.Open "SELECT * FROM Responsable_Iva", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstDatosEmpresa.Open "SELECT * FROM DatosEmpresa", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstDetalleFactura.Open "SELECT * FROM Detalle_Factura", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstFVentaPago.Open "SELECT * FROM F_VP", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstTipoOperac.Open "SELECT * FROM Tipos_Operaciones_Audit", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstUsuarios.Open "SELECT * FROM Usuarios", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstCompras.Open "SELECT * FROM Compras_A_Proveed", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstProveedores.Open "SELECT * FROM Proveedores", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstEstadoFactura.Open "SELECT * FROM Estado_Factura", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstDetalleCompra.Open "SELECT * FROM Detalle_Compra", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstGraficoCompra.Open "SELECT Mes,Año, MontoTotal FROM GraficoCompra WHERE Año Between #1-1-2002# and #12-31-2002# ", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstTipoFactura.Open "SELECT * FROM TipoFactura", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstTipodeUsuario.Open "SELECT * FROM Tipos_Usuarios", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
'Ruta de acceso
ChDir App.Path
On Error GoTo 0 'detiene el control de errores
Falla: 'instruccion del mensaje de error
If Err.Number = Falla Then Exit Sub
MsgBox "Problemas con la Base de Datos, por favor verifique!!!", vbCritical, "ERROR"
Set cnSistemaFlowers = Nothing
Err.Clear
End Sub
Espero alguna respuesta.
Gracias
Saludos
Griselda
Elimina el archivo ldb que mencionas y me falto la información del código donde abres la base y el recordset.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Bloqueo de Registros de Griselda

Borré el archivo ldb, pero igual tengo bloqueada mi tabla, ¿Hay alguna forma de acceder por access o por vb? Y este es el error que me tira cuando se bloquea: Error 3251 Current recordset does not support updating this may be a limitation of the...
1 respuesta

Pregunta sobre sistema Multiusuario

Quisiera saber como tengo que hacer con ADO sin data control para que mi sistema al detectar que esta siendo accedido por otro usuario muestre un mensaje. Te paso de nuevo mi código en el que declaro como optimista a mi sistema 'Declaraciones...
1 respuesta

Error al llamar datos de una tabla

Tengo el Siguiente código: Private Sub cboObra_Click() cboAnticipoDirigidoA.Text = "" cboLegalizacionNo.Text = "" Set Con = New ADODB.Connection With Con .ConnectionString = "provider = microsoft.ace.oledb.12.0;data source=D:\PROYECTO TYT\TYT.accdb"...
2 respuestas

Programar fonetica

Necesito saber si usted ha programado algo asi, como la fonetica de una palabra, por ejemplo quiero saber como implementar para una operadora de una telefonica, si por ejemplo a ella le preguntan, quiero saber el numero de telefono del señor ribera;...
1 respuesta

Conectar con una Consulta Access

Esta es primera vez que le hago una consulta sobre el particular... Mi problema es el siguiente. Tengo una aplicación desarrollada con VB 6.0 y necesito accesar una Consulta de access. La consulta es el resultado de varios registros que se duplican...
1 respuesta

Al eliminar un registro en la datagrid

Tengo un problemita al eliminar un registro en la datagrid.. Cuando yo selecciono dentro de la datagrid un registro se elimina el que no esta seleccionado, o sino no se elimina nada o si elimino abajo el ultimo registro se elimina el de arriba, o...
1 respuesta

Código para mostrá datos en un comboxbox

Necesito un código que me permita llenar un combo box con los datos de una base de datos del campo nombre de la tabala empleados.. Que el combo se autocomplete cuando coloque una letra dentro del combo mostrando todas las coincidencias
1 respuesta

Llenar un DataGrid sin usar el Adodc

En un formulario tengo un control DataGrid para que al ejecutarse la aplicación me muestre un conjunto de registros. Al control ADODC no lo utilizo, realizo la conexión a la BD mediante código de programa. Bueno, resulta que cuando ejecuto la...
1 respuesta

Visual basic 6.0 y sql server 2000

La verdad no se mucho de visual basic recién estoy empezando a aprender... Estoy tratabndo de hacer una aplicación la cual se pueda conectar a una base de datos hecha en sql server 2000 los datos pueden ser añadidos a esta base ingresando por teclado...
1 respuesta

Cargar datos al formulario al perder el foco

Me gustaría saber como hago para llenar los texbox de un formulario desde una base de datos access, tengo declarada la conexión a la BD en un modulo de declaraciones globales 'Conexiones Base de Datos Global Base As New ADODB. Connection Global...
1 respuesta