Foros del Web » Programando para Internet » ASP Clásico »

Problemillas....

Estas en el tema de Problemillas.... en el foro de ASP Clásico en Foros del Web. Tengo una tabla de clientes, la pongo en un formulario. En las cabeceras tengo dos botones uno para modificar y otro para eliminar. En cada ...
  #1 (permalink)  
Antiguo 07/06/2004, 01:27
 
Fecha de Ingreso: mayo-2004
Mensajes: 52
Antigüedad: 20 años
Puntos: 0
Problemillas....

Tengo una tabla de clientes, la pongo en un formulario. En las cabeceras
tengo dos botones uno para modificar y otro para eliminar. En cada linea de la
tabla del formulario tengo dos checkbox,uno para modificar y otro para eliminar. Lo de eliminar lo he probado con la función IN, pasando el id del cliente como value,pero solo me funciona si selecciono uno o si todos los que selecciono se pueden. No sé si lo he dicho,pero antes de eliminar tiene que comprobar si se puede eliminar. Cómo lo puedo hacer? Y los de modificar,hay alguna manera de que si seleccionas más de uno se pueda hacer?
Muchas gracias.
  #2 (permalink)  
Antiguo 07/06/2004, 08:55
 
Fecha de Ingreso: noviembre-2003
Ubicación: Madrid
Mensajes: 353
Antigüedad: 20 años, 6 meses
Puntos: 1
Bueno, yo me he quedao hecho un lio, no me he enterado de mucho, a ver si es esto:

Tienes un listado de clientes y quieres:

1.- Modificarlos: Obviamente tendrás que acceder a cada uno de forma independiente, no puedo entender como se pueden editar 2 registros a la vez ¿?

2.- Quierés poder eliminar varios clientes a la vez:
Yo lo haría así:

Recogo los datos en una página hacia donde apunta el formulario y con un bucle los elimino:

<%

id_cliente=Split(Request.Form("id_cliente"),", ")

For i=0 to Ubound(id_cliente)



MM_editConnection = MM_bd_STRING 'Tu conexión a la base de datos
MM_editTable = "clientes" 'Tabla clientes
MM_editRedirectUrl = ""
MM_fieldsStr = "id_cliente|value" 'id del cliente
MM_columnsStr = "id_cliente|none,none,NULL"

MM_editQuery = "delete * from clientes(id_cliente) VALUES ('"& id_cliente(i)&"'")"

Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
next


Response.Redirect("la_pagina_que_quieras.asp")


%>
  #3 (permalink)  
Antiguo 09/06/2004, 04:32
 
Fecha de Ingreso: mayo-2004
Mensajes: 52
Antigüedad: 20 años
Puntos: 0
Muchas gracias,así sí que me funciona . Siento no haberme explicado bien...
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 23:58.