Select + Update = ?

[sanfermin]

es posible realizar esta accion?

'pedimos la id
id = Request.QueryString("id")

Dim conn, SQL,rs,LOG
'creamos conexion y recordset
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
'conectamos a la bd
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("mibase.mdb") & ";"

SQL="UPDATE flash SET Clicks = Clicks + 1 WHERE Id = "&id&" ;"
Conn.Execute(SQL)
LOG="SELECT id,nombre,alto,ancho,Descripcion FROM flash WHERE id='"&id&"';"
Conn.Execute(LOG)

esta bien?

[legolas]

Hola, lo del LOG sí se puede hacer. El SQL (update => click=click+1) me parece que no.

Saludos ;)

[mmoreno1977]

El SQL tradicional no te permite ese tipo de incrementos. Pero existen algunos manejadores de bases de datos como Oracle que talvez considere estas funciones para la base de datos. En este caso en particular, no se puede porque tu motor de BD es Access.

[sanfermin]

Entonces como puedo (en access) actulizar el valor de un campo y seleccionar los datos para luego utilizarlos??

[Aston]

Hola, en Acces y en SQL Server se puede ¿Cómo no?

Este es un código que yo tengo funcionando:

dbConn.Execute "Update Tabla Set Total = Total + 1 Where Id = " & Request.Form("Id")

Espero les sirva, un cordial saludo. :) ;)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Aston]

Hola:

Con respecto a seleccionar luego ese mismo registro, no debes tener ningún problema.

Si acaso no te funcionase con el método Execute de la conexión entonces prueba a abrir un Recordset.

¡Suerte! :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[sanfermin]

Gracias de nuevo Aston :) ;) :P

[sanfermin]

Me da el siguiente error :(

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

las lineas de codigo referentes son estas, xq? :(

id = Request.QueryString(&quot;id&quot;)

Dim conn,rs
Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
Conn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)};&quot; &amp; &quot;DBQ=&quot; &amp; Server.MapPath(&quot;miBD.mdb&quot;) &amp; &quot;;&quot;
Conn.Execute &quot;Update flash Set clicks = clicks + 1 Where Id = &quot; &amp; Request.QueryString(&quot;Id&quot;)
Set rs = Server.CreateObject(&quot;ADODB.RecordSet&quot;)

rs.open&quot;SELECT id,nombre,alto,ancho,descripcion FROM flash WHERE id=&quot;&amp;id&amp;&quot;;&quot;