Hola,
estoy accediendo a una base de datos en Access. Cuando hago lecturas no tengo problemas pero a la hora de hacer algún cambio (por ejemplo una update en alguna tabla) me dice que necesita usar una consulta actualizable. Ya he comprobado que la base de datos tiene permisos de escritura y la carpeta donde está ubicada (dentro de la carpeta de la aplicación) le he puesto también estos permisos. Esto último lo he hecho accediendo a "Panel de control-> Sitios web->Sitio web predeterminado->directorio virtual de la aplicación->carpeta que guarda la base de datos" y en esta he accedido a sus propiedades (botón derecho->propiedades) y he marcado la opción de Escritura. ¿Qué hago mal? El código es muy sencillo:
Private Sub cmdActualizo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdActualizo.Click
Dim miConexion As OleDbConnection
Dim miComando As OleDbCommand
Dim strConexion As String
Dim strSql As String
Dim intRegistros As Integer
strConexion = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("BaseDatos/colegio.mdb") & ";"
Try
miConexion = New OleDbConnection(strConexion)
strSql = "UPDATE ESTUDIANTES "
'Los datos se recogen de diversos controles Web 'TextBox'.
strSql &= "SET EXP_EST = " & cmbEstudiantes.SelectedItem.Value & ", NOM_EST = '" & txtNombre.Text & "', F_N_EST = #" & txtFNacimiento.Text & "#, DIR_EST= '" & txtdireccion.Text
strSql &= "' WHERE EXP_EST = " & cmbEstudiantes.SelectedItem.Value
miComando = New OleDbCommand(strSql, miConexion)
miConexion.Open()
intRegistros = miComando.ExecuteNonQuery
lblResul.Text = intRegistros.ToString & " registro modificado."
miConexion.Close()
Catch ex As Exception
lblResul.Text = "Error al actualizar los estudiantes."
lblResul.Text &= "<br>" & ex.ToString
End Try
If Not miConexion Is Nothing Then
miConexion.Close()
End If
End Sub
La instrucción de sql está bien porque la he recogido el ejecutar la aplicación (debugando) y la he pasado y ejecutado en Access y no me ha dado problemas.
¿Me podeis ayudar? ¿Me falta algún otro permiso?
Gracias.