Hola de nuevo. Necesito vuestra ayuda...
Al momento de guardar unos datos desde un form de visual a una tabla Access me aparece el siguiente error:
El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.El código que tengo es el siguiente:
Private Sub cmdaceptar_Click()
Dim cmd As String
Dim sql As String
'Dim cn As ADODB.Connection
'Dim rs As ADODB.Recordset
'mnulimpiar.Enabled = False
'cmd Crea una cadena de conexión
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Ruta BBDD".mdb;Persist Security Info=false"
'Establezco una conexión con la base de datos
Set cn = New ADODB.Connection
With cn
.ConnectionString = cmd
.Open
End With
'Creo la consulta
sql = "SELECT * FROM datos"
'Abro el recordset
Set rs = New ADODB.Recordset
With rs
'.Open sql, cn, adOpenForwardOnly, adLockReadOnly
.Open sql, cn
.AddNew
!tienda = txttienda.Text
!nombre = txtnombre.Text
!router = txtrouter.Text
!servidor = txtservidor.Text
!tipo = cbotipo.Text
.Update
.Close
End With
End Sub
Gracias por vuestra ayuda.
º¿º
