Borrar e Insertar por checkbox

[ruben_vmb]

Hola a todos
tengo la siguiente duda,
Tengo una base de aprox 512mil registros, ahora yo hago una busqueda por numero de control, este numero es unico por cada registro, y tambien otros campos pero uno de ellos es tambien marca, lo que quiero es lo que sigue

cuando busque por ejemplo cannon, me traiga los 10 registros que trae cannon con sus respectivos numeros de contro, esos quiero con un checkbox seleccionarlos y al hacer eso y darle clic a un boton de enviar, esos registros me los borre de esa tabla pero me los pase a una nueva con los mismos campos..

ya tengo la busqueda, el insert y el delete, pero no se como seleccionar dichos campos para insertarlos y borrarlos con el checkbox, alguien podria ayudarme a buscar un ejemplo similar..

gracias

[dobled]

para borrar con los check solo tienes que darle el mismo nombre a estos y al valor le das un id unico para identificar el registro, despues lo capturas con request.form("chkbox") y te traerá algo asi como

Código:

	chkbox= "1452,5425,4785,2369,8744,1254"

' con un for lo recorres y ejecutas las sentencias SQL		

  	chkbox= split(chkbox,",")
  for i = 0 to UBound(chkbox)
    SQL= "INSERT blabla into blabla     = chkbox(i) 'grabas en la tabla nueva
    SQL="DELETE blablabla WHERE id = chkbox(i) ' borras el archivo grabado
  next

ese ejemplo te ayudará.

Saludos

[ruben_vmb]

Hola, gracias por tu respuesta
andaba haciendole asi:

Esta es la pagina que recoge el formulario ...

<% Dim a, b, c, cnn, SR, sSQL, sql
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.open "inventario"

For i = 1 to Request("variable").count
ID = Request("variable")(i)
SSQL="insert into completaa1 (numcon) values (" & ID & ")"
Set RS= Cnn.Execute(SSQL)
sql = "DELETE FROM completa WHERE numcon IN ('"&ID&"');"
Set RS= Cnn.Execute(sql)
Next
%>
<%Response.redirect("inventario.asp")%>
<% Cnn.close
Set Cnn= nothing%>

Borra el registro cuyo checkbox este seleccionado e ingresa el dato del mismo checkbox a la base, pero tambien quiero que se ingresen dos datos mas a la misma base o sea,,

esta es la pagina del formulario ....

<table width="800" height="86" border="1" align="center" cellpadding="0" cellspacing="0" class="portletcontent">
<tr>
<td width="9%" height="21"><div align="left"><strong>numcon </strong></div></td>
<td width="13%">
<div align="left"><strong>rfcusu</strong></div></td>
<td width="11%"><strong>cveuni</strong></td>
<td width="9%"><strong>cabms</strong></td>
<td width="9%"><strong>gpo</strong></td>
<td width="9%"><strong>cvepre</strong></td>
<td width="9%"><strong>ctacon</strong></td>
<td width="9%"><strong>descri</strong></td>
<td width="12%"><strong>marca</strong></td>
<td width="10%"><strong>modelo</strong></td>
</tr>
<tr>
<td height="24" class="priorityHigh"> <span class="titulos1">
<select name="numcon" size="1" multiple class="titulos" id="select5" >
<option selected><%=rs("numcon")%></option>
</select>
</span></td>
<td> <input name="val_fac" type="text" id="val_fac" value="<%=rs("val_fac")%>" size="15"></td>
<td> <input name="factura" type="text" id="factura2" value="<%=rs("factura")%>" size="15"></td>
<td><%response.write(rs.Fields("cabms"))%></td>
<td class="priorityHigh"><%response.write(rs.Fields("g po"))%></td>
<td><%response.write(rs.Fields("cvepre"))%></td>
<td><%response.write(rs.Fields("ctacon"))%></td>
<td><%response.write(rs.Fields("descri"))%></td>
<td class="priorityHigh"><%response.write(rs.Fields("m arca"))%></td>
<td class="priorityHigh"><%response.write(rs.Fields("m odelo"))%></td>
</tr>
</table>
<table width="800" border="1" align="center" class="portletcontent">
<tr>
<td><div align="right">Seleccionar item
<input name="variable" type="checkbox" id="variable" value="<%=rs("numcon")%>">
</div></td>
</tr>
</table>


Quiero que por cada checkbox que se selecciones tambien me inserte en la nueva tabla el valor de "val_fac", y "factura"

Lo que me pusiste lo entiendo tambien para el valor del checkbox, pero como inserto tambien los otros dos valores...

Gracias a todos

[ruben_vmb]

holas

Pues le puse asi, y anda jalando
alguien podria plis verificar si no tendre problemas, seguire haciendo pruebas
Bye

For i = 1 to Request("variable").count
ID = Request("variable")(i)
IDU = Request("val_fac")(i)
IDE = Request("factura")(i)
SSQL="insert into completaa1 (numcon, val_fac, factura) values (" & ID & "," & IDU & ",'" & IDE & "')"
Set RS= Cnn.Execute(SSQL)
sql = "DELETE FROM completa WHERE numcon IN ('"&ID&"');"
Set RS= Cnn.Execute(sql)
Next


Revise bien y me anda perdiendo datos, espero alguien me pueda dar una mano, gracias

[ruben_vmb]

Me anda perdiendo datos, de las dos formas que hago mal?

[Myakire]

¿a que te refieres cuando dices: "Me anda perdiendo datos"?

[ruben_vmb]

ira
cuando selecciono chekbox corridos uno tras otro, me lo hace bien
pero cuando me salto un checkbox o no selecciono el primero, por ejemplo, ya no me pone los datos de factura y val_fac, o me pone los del siguiente checkbox, o sea me pone datos que no coinciden con los del checkbox en el formulario..

[orharo2003]

Es normal, ya que si unicamente seleccionas 17 casillas
Request("variable").count valdra 17, más no el total de campos como esperabas para lo demás. Yo que tu, haria un sp que en base al id de la numcon realizara un insert seleccionando asu vez los campos que cumplan dicha condición. algo asi como :

insert into completaa1 (numcon, val_fac, factura) select numcon,val_fac,factura where numcon=@parametro_entrada

[ruben_vmb]

ok voy a probar,, pero me surge una duda

que seria "parametro_entrada",, el valor de los checkbox?

[orharo2003]

Es correcto. es el valor de cada checkbox.

[ruben_vmb]

oyep, diras que estoy del nabo, aunque asi es jeje, pero otra dudilla

que pasa con esto

For i = 1 to Request("variable").count
ID = Request("variable")(i)
IDU = Request("val_fac")(i)
IDE = Request("factura")(i)

y entonces como quedaria el insert sin esto " & ID & "," & IDU & ",'" & IDE & "'

[ruben_vmb]

voy a empezar de nuevo, a ver que me sale, saludos