AOG
13 de Octubre del 2004

Hola, Tengo una solución con dos proyectos uno es un proyecto de formularios Windows y el otro es un Servicio Web Asp.net, ha llamar a un método del sercivio web que lo hace es realizar una consulta de actualización me provoca un error que dice: "La operación debe usar una consulta actualizable." y la consulta es de actualizacion "Update Accesos Set ACTIVO = True Where Cod = '00'. Lo que hice es copiar este método (procedimiento) del S. Web y lo pego en el proyecto de formularios windows lo ejecuto este procedimiento y me funciona, es más, este mismo método lo he ejecutado con conexión a base de datos MySQL y funciona, ¿Que es la que está pasando?, ¿Hay problemas con los servicios web asp.net con la conexión a base de datos de tipo MDB?, otro problema que me ocurre es que si la base de datos MDB está en otra máquina donde no está el servicio web rodando no me deja ni si quiera abrirla, me dice que está abierta en modo exclusivo o no tengo acceso, y si lo hago desde el proyecto formulario windows me funciona, por eso digo que si hay problemas con los mdb en los servicios web.
He han dicho que es porque el usario ASPNET no tiene permisos yo lo he comprobado en el administrador de equipos (usuarios) y este usuario está igual que mi usuario cuando entro en mi sesión (el S.O. es W. XP), no se donde mirar más, donde puedo mirar y darle los permisos que hace falta en el caso de que se trate de permisos.

Este es el método que tiene el Servicio Web:
<WebMethod()> Public Sub ActualizarMDB(ByVal SQL As string)
Dim sCadenaConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0" _
& ";user id=" _
& ";Password=" _
& ";Data Source=c:1Unigest.mdb" _
& ";"
Dim Con As New System.Data.OleDb.OleDbConnection
Dim Cmd As New System.Data.OleDb.OleDbCommand
Dim I As Integer
Try
Con.ConnectionString = sCadenaConexion
Con.Open()
Cmd.Connection = Con
Cmd.CommandText = SQL '->"Update Accesos Set ACTIVO = True Where Cod = '00'"
Cmd.CommandType = CommandType.Text
I = Cmd.ExecuteNonQuery
Catch ex As Exception
MsgErrorSoap(ex, "Servisio1.ActualizarMDB")
End Try

Try
Con.Close()
Con.Dispose()
Catch ex As Exception
End Try
End Sub

Un saludo