Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Problema en Update

11/08/2003 - 05:56 por David Amador \(Davphantom\) | Informe spam
Ayuda Hacer una pregunta
El siguiente codigo me da error solo en el Update ... si alguien me ayuda
estaria muy agradecido ...


cIndice = Request.QueryString("id")

sSQL = "Select NoDescarga, IdArchivo from Descarga where idarchivo =" &
cIndice

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\db\basedatos.mdb"))

Set oRS = oConn.Execute(sSQL)

If oRS.EOF Then
Response.Redirect ("pagina.htm")
End If

xSQL = ("UPDATE Descarga SET NoDescarga = NoDescarga + 1 WHERE IDArchivo " & cIndice)

Set oRS = oConn.Execute(xSQL)

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Sashka
11/08/2003 - 08:08 | Informe spam
Lo que yo veo, son dos cosas...

La primera es que cuando haces
Set oRS = oConn.Execute(xSQL)
el recordset ya existe está abierto... ese debe ser el error que te
da...

Por otro lado.. una consulta de actualización no genera un recordset de
regreso, de modo que está de más que se lo asignes. bastaría con :
oConn.Execute(xSQL)

Lo que no significa que no debes cerrar y setear a nothing el recordset que
ya no estás usando.

Sashka



"David Amador (Davphantom)" escribió en el mensaje
news:
El siguiente codigo me da error solo en el Update ... si alguien me ayuda
estaria muy agradecido ...


cIndice = Request.QueryString("id")

sSQL = "Select NoDescarga, IdArchivo from Descarga where idarchivo =" &
cIndice

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\db\basedatos.mdb"))

Set oRS = oConn.Execute(sSQL)

If oRS.EOF Then
Response.Redirect ("pagina.htm")
End If

xSQL = ("UPDATE Descarga SET NoDescarga = NoDescarga + 1 WHERE IDArchivo
" & cIndice)

Set oRS = oConn.Execute(xSQL)

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


Preguntas similares

 

Busqueda sugerida :