Foros del Web » Programación para mayores de 30 ;) » Programación General »

Commit y Seleccionar texto (en ASP)

Estas en el tema de Commit y Seleccionar texto (en ASP) en el foro de Programación General en Foros del Web. Hola, En ASP (no en ASP.NET) estoy intentando hacer dos cosas y no me salen: Por un lado estoy inentando usar el commit y el ...
  #1 (permalink)  
Antiguo 30/09/2009, 07:07
Avatar de abmptc  
Fecha de Ingreso: septiembre-2009
Mensajes: 43
Antigüedad: 14 años, 7 meses
Puntos: 0
Commit y Seleccionar texto (en ASP)

Hola,

En ASP (no en ASP.NET) estoy intentando hacer dos cosas y no me salen:

Por un lado estoy inentando usar el commit y el rollback para cuando estoy haciendo varias actualizaciones, inserciones y borrados se hagan todas o ninguna. ¿Sabéis como se usa el commit en ASP?

En segundo lugar estoy intentando recoger el texto seleccionado de un input desde vbscript y javascript, pero no lo consigo. Solo he conseguido borrarlo mediante: document.selection. clear
He probado con: Selection.getBeginI ndex, Selection.getEndInd ex, input.selectionStar t
Pero nada. ¿Sabeis como se hace esto

Saludos.
  #2 (permalink)  
Antiguo 24/06/2010, 08:47
 
Fecha de Ingreso: noviembre-2008
Mensajes: 3
Antigüedad: 15 años, 5 meses
Puntos: 0
Respuesta: Commit y Seleccionar texto (en ASP)

Conn.BeginTran

SQL = "insert into / update / delete"
Conn.Execute (SQL)
if Conn.Errors.count > 0 then ' Existe error
Conn.RollBackTrans
response.write "Error: " & Err.Description
else
Conn.CommitTrans
response.write "Todo Ok. "

Ojo: No omitas ninguno de estos pasos.
  #3 (permalink)  
Antiguo 24/06/2010, 08:50
 
Fecha de Ingreso: noviembre-2008
Mensajes: 3
Antigüedad: 15 años, 5 meses
Puntos: 0
Respuesta: Commit y Seleccionar texto (en ASP)

Para múltiples transacciones:
Dim Error = "N"
Conn.BeginTran

'Primera transacción:
SQL = "delete ..."
Conn.Execute (SQL)
if Conn.Errors.count > 0 then ' Existe error
Error = "S"
end if

'Segunda transacción:
if Error = "N" then
SQL = "update ..."
Conn.Execute (SQL)
if Conn.Errors.count > 0 then ' Existe error
Error = "S"
end if
end if

'Tercera transacción:
if Error = "N" then
SQL = "insert into ... "
Conn.Execute (SQL)
if Conn.Errors.count > 0 then ' Existe error
Error = "S"
end if
end if

if Error = "S" then
Conn.RollBackTrans
elseif Error = "N" then
Conn.CommitTrans
end if
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:33.