actualizar una base de datos de access desde un servicio web

04/03/2006 - 01:36 por Diana | Informe spam
Hola tengo un servicio web, que debe actualizar un campo en una abse de datos
en access pero cuando llega a la intruccion de UPDATE me da error, si alguno
de Ustedes me puede colaborar les agradezco.
La base de datos esta ubicada dentro de la carpeta del localhost.

Aqui les voy a colocar el codigo del metodo del servicio web.

<WebMethod()> Public Sub CalcularReputacion(ByVal nombre As String, ByVal
conexionOK As Boolean, ByVal milisegundos As Integer, ByVal puntaje As Double)
Dim repActual As Double = ConsultarReputacionActual(nombre)
Dim nuevaRep As Double = AlgoritmoReputacion(repActual, conexionOK,
milisegundos, puntaje)

Dim cnAccess As New OleDb.OleDbConnection(strdsn)
cnAccess.Open()
Dim cmdUddi As New OleDb.OleDbCommand("UPDATE uddi SET reputacion="
+ nuevaRep + " WHERE NOMBRE=""" + nombre + """", cnAccess)
cmdUddi.CommandType = CommandType.Text
cmdUddi.ExecuteNonQuery()
cnAccess.Close()
End Sub

Gracias
Diana
 

Leer las respuestas

#1 Diego \(DCD\)
07/03/2006 - 12:04 | Informe spam
Deberías poner el error que te dá, pero comprueba si tienes permisos de
escritura en la carpeta donde se encuentra el fichero .mdb para el usuario
que intenta actualizar la bbdd.

Un saludo.

"Diana" escribió en el mensaje
news:
Hola tengo un servicio web, que debe actualizar un campo en una abse de


datos
en access pero cuando llega a la intruccion de UPDATE me da error, si


alguno
de Ustedes me puede colaborar les agradezco.
La base de datos esta ubicada dentro de la carpeta del localhost.

Aqui les voy a colocar el codigo del metodo del servicio web.

<WebMethod()> Public Sub CalcularReputacion(ByVal nombre As String, ByVal
conexionOK As Boolean, ByVal milisegundos As Integer, ByVal puntaje As


Double)
Dim repActual As Double = ConsultarReputacionActual(nombre)
Dim nuevaRep As Double = AlgoritmoReputacion(repActual,


conexionOK,
milisegundos, puntaje)

Dim cnAccess As New OleDb.OleDbConnection(strdsn)
cnAccess.Open()
Dim cmdUddi As New OleDb.OleDbCommand("UPDATE uddi SET


reputacion="
+ nuevaRep + " WHERE NOMBRE=""" + nombre + """", cnAccess)
cmdUddi.CommandType = CommandType.Text
cmdUddi.ExecuteNonQuery()
cnAccess.Close()
End Sub

Gracias
Diana

Preguntas similares