Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/06/2005, 17:12
Avatar de El_Metallick
El_Metallick
 
Fecha de Ingreso: noviembre-2002
Ubicación: Santiago, Chile
Mensajes: 1.718
Antigüedad: 22 años, 5 meses
Puntos: 16
Problema con borrar varios registros simultaneamente

Hola amigos... aplique el scipr que puso ujorse en las fqs sobre como borrar registros al estilo hotmail... bueno la cosa es que lo adapte un poco a mi sitio quedandome asi:
Código:
<%
'Declaración de variables
Dim conn
Dim rs
Dim producto_sql
Dim categoria_sql
Dim categoria
Dim total_productos
Dim id
'Rescate de variables pasadas por formulario
id = Request.Form("id")
'Establecemos la conección a la base de datos
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../catalogo.mdb"))
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
producto_sql="Select categoria From productos Where id_producto = " & id & ""
'Ejecución de la orden
Set rs = Conn.Execute(producto_sql)
'Fijaci{on del valor de la variable categoria
categoria = rs("categoria")
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
categoria_sql="Select * From categorias Where id_categoria = " & categoria & ""
'Ejecución de la orden
Set rs = Conn.Execute(categoria_sql)
'Se resta 1 al numero de productos de la categoría
total_productos = rs("total_productos")
total_productos = total_productos - 1
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
categoria_sql="Update categorias Set total_productos = " & total_productos & " Where id_categoria = " & categoria & ""
'Ejecución de la orden
Set rs = Conn.Execute(categoria_sql)
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
producto_sql="Delete * From productos Where id_producto In(" & id & ")"
'Ejecución de la orden
Set rs = Conn.Execute(producto_sql)
%>
en el fondo lo que quiero es que al borrar el registro de la tabla productos se le reste 1 al campo total_productos de la tabla categorias... la cosa es que cuando selecciono mas de un campo para borrar no me los borra ni me resta el número de registros seleccionados del campo total_productos... no se si me puedan ayudar, gracias de antemano y saludos
__________________
Haz la guerra en la cama y el amor donde se te de la gana...
El tiempo es el mejor maestro, lo único malo es que te mata...¡¡Aprovecha tu tiempo!!

Última edición por El_Metallick; 25/06/2005 a las 09:02