Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Borrado de registros :s

03/07/2006 - 16:18 por Marcos Galaviz | Informe spam
Ayuda Hacer una pregunta
Hola, buen dia, gracias a su ayuda he podido insertar y visualizar registros
:D, ahora tambien borro pero ... no borro el que deseo jeje, les copio el
codigo de borrado que pense seria el mas simple pero el problema que tengo
es que no me borra el registro que estoy seleccionando sino el primero de la
tabla :S ¿estoy haciendo algo mal?

<!-- #include file="../SIS_CON.asp" -->
<%Response.AddHeader "Pragma","no-cache"
Response.Expires=0
VARIABLE=REQUEST.QueryString("ID_CLIENTE")

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Set RS_ALTA = Server.CreateObject("ADODB.Recordset")
RS_ALTA.CursorType = adOpenKeyset
RS_ALTA.LockType = adLockOptimistic
SQL="SELECT * FROM CLIENTES WHERE ID_CLIENTE = "&variable&" "
RS_ALTA.Open "CLIENTES", CONN1

RS_ALTA.DELETE
RS_ALTA.UPDATE


RESPONSE.REDIRECT("LISTA_CLIENTES.asp")
%>
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Arturo Costa Delgado
03/07/2006 - 18:07 | Informe spam
Espero que te ayude, pues yo programa de manera distinta. Primero, tengo un
archivo INC que contiene el código de conexión de la base de datos

DB.INC
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla1=Server.CreateObject("adodb.recordset")
Set Tabla2=Server.CreateObject("adodb.recordset")
Set Tabla3=Server.CreateObject("adodb.recordset")
Conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=f:\inetpub\base
de datos\MiBaseDeDatos.mdb"
%>

Entonces la página para eliminar quedaría asi:

ELIMINAR.ASP

<!-- #include file="setup/db.inc" -->
<%
Temp="Select * From MiTabla Where CampoCodigo='" & Request("codigo") & "'"
Tabla1.Open Temp, Conexion,2,3,1
Tabla1.Delete
Tabla1.Close
%>

Ahora ten en cuenta los siguientes detalles:
1. El dato CODIGO lo he capturado en un formulario con el método POST
2. Date cuenta del comillado simple-doble que hay entre & Request("codigo")
&. Esto es porque el dato que estoy pasando es del tipo alfanumerico y lo
voy a comparar con un campo texto. Mejor dicho, es cuando el campo
CAMPOCODIGO es del tipo texto. Si el campo CAMPOCODIGO fuera del tipo
númerico, simplemente se omite la ' de la expresión y se elimina lo final,
quedando asi

Temp="Select * From MiTabla Where CampoCodigo=" & Request("codigo")

Espero que te haya sido de utilidad mi post

ACD

Preguntas similares

 

Busqueda sugerida :