
15/03/2007, 12:37
|
| | Fecha de Ingreso: abril-2003
Mensajes: 260
Antigüedad: 22 años Puntos: 1 | |
Re: Ayuda con Guardar,Modificar,Eliminar datos de una base de datos no se hacerlo
estoy al horno
este es mi form
Código:
<FORM METHOD="post" ACTION="update.asp">
<%
for i = 0 to 30
%>
<p>
<input name="bme<% = i %>" type="text" value="" />
</p>
<br />
<%next%>
<INPUT TYPE="hidden" value="<% = i %>" name="cantidad">
<INPUT TYPE="SUBMIT" value="Insertar">
</p>
</FORM>
y aqui proceso
Código:
<%
'Recogemos los valores del formulario
cantidad = Request.Form("cantidad")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "circulacion", "sa", ""
set objRS = CreateObject("ADODB.Recordset")
for i = 0 to cantidad
bme_actual = request.form("bme" & i)
'Ahora creamos 30 sentencias SQL
if bme_actual<>"" or bme<>0 then
sSQL="UPDATE costos_maxirest (bme) values ('" & bme_actual & "')"
'y Ejecutamos la orden 30 veces
set objRS = Conn.Execute (sSQL)
end if
next
%>
<h1><div align="center"><% = i %> registros Insertados</div></h1>
<div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
__________________ Bye! |