21/06/2003, 15:43
|
| | | Fecha de Ingreso: junio-2003
Mensajes: 34
Antigüedad: 21 años, 10 meses Puntos: 0 | |
| con el codigo anterior quiero mostrar los archivos que voy a eliminar pero no muestra nada y con este codigo quiero eliminar pero tampoco funciona............. por favor necesito ayuda
<html>
<head>
</head>
<body>
<%
'Conectamos la base de dato
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ejemplo.mdb"))
Dim elimina_r
Dim i
elimina_r = Split(Request.Form("elimina"),",",-1,1)
Response.write(eliminar_r)
For i = LBound(elimina_r) To UBound(elimina_r)
' Response.Write ("valor " & i & ": "&elimina_r(i))
' Más bien aquí colocarías tu código que construye
' la consulta SQL Delete con las claves primarias de los registros
' que quieres eliminar
'Ahora creamos la sentencia SQL
strSQL="Delete From prueba Where Id='" & eliminar_r(i) &"' "
'Ejecutamos la orden
set objRS = oConn.Execute(strSQL)
Next
Response.Write ("hola")
Response.Write(i)
Response.write(eliminar_r)
'Cerramos el sistema de conexion
oConn.Close
set objRS = nothing
set oConn = nothing
'Response.Redirect ("mostrar.asp")
%>
</body>
</html>
necesito ayuda urgente Por Favor se lo Agradeceria
atte.
Ronald("Goten") |