Problema en Update

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

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

ya no estás usando.

Sashka



"David Amador (Davphantom)" escribió en el

news:
> El siguiente codigo me da error solo en el Update ... si alguien me

> 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

> > " & cIndice)
>
> Set oRS = oConn.Execute(xSQL)
>
> David Amador Tapia
> Webmaster de "La Web de Davphantom"
> www.davphantom.net
> Cartagena. Colombia
> Tel (5) 6621502 - 6581523
>
>

Gracias por responder se me paso eso que me comentas ... es que he
tratado de diversas formas ... Mi problema solo esta en el Update

oConn.Execute ("UPDATE Descarga SET NoDescarga = NoDescarga + 1 WHERE
IDArchivo = " & cIndice)

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


"Sashka" escribió en el mensaje
news:
> 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
> >
> >
>
>

En ese caso... cual es error???? que te dice??? Si NoDescarga es una
variable entonces debes ponerlo así " & NoDescarga & "

Sashka


"David Amador (Davphantom)" escribió en el

news:
> Gracias por responder se me paso eso que me comentas ... es que he
> tratado de diversas formas ... Mi problema solo esta en el Update
>
> oConn.Execute ("UPDATE Descarga SET NoDescarga = NoDescarga + 1 WHERE
> IDArchivo = " & cIndice)
>
> David Amador Tapia
> Webmaster de "La Web de Davphantom"
> www.davphantom.net
> Cartagena. Colombia
> Tel (5) 6621502 - 6581523
>
>
> "Sashka" escribió en el mensaje
> news:
> > 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

> > da...
> >
> > Por otro lado.. una consulta de actualización no genera un recordset

> > 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

> 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
> > >
> > >
> >
> >
>
>

El problema es que en mi equipo fuciona fulll ... pero cuando lo subo al
servidor me manda error ... pienso que el problema puede ser de permisos

ya que cree una carpeta y en ella coloque la base de datos...

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.net

Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Sashka" escribió en el mensaje
news:
> En ese caso... cual es error???? que te dice??? Si NoDescarga es una
> variable entonces debes ponerlo así " & NoDescarga & "
>
> Sashka
>
>
> "David Amador (Davphantom)" escribió en el
mensaje
> news:
> > Gracias por responder se me paso eso que me comentas ... es que

> > tratado de diversas formas ... Mi problema solo esta en el Update
> >
> > oConn.Execute ("UPDATE Descarga SET NoDescarga = NoDescarga + 1 WHERE
> > IDArchivo = " & cIndice)
> >
> > David Amador Tapia
> > Webmaster de "La Web de Davphantom"
> > www.davphantom.net
> > Cartagena. Colombia
> > Tel (5) 6621502 - 6581523
> >
> >
> > "Sashka" escribió en el mensaje
> > news:
> > > 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

> > 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
> > > >
> > > >
> > >
> > >
> >
> >
>
>