Problema con campo autonumérico en access

He escrito este pequeño código que te adjunto para borrar un campo de una base de datos access. Para borrar el campo tengo que comparar el numero que capturo de un formulario con el campo "id" de la base de datos. Este campo es de tipo AUTONUMÉRICO. El problema es que nunca encuentra un campo que coincida, sin embargo, si cambio el tipo de datos de este campo por el tipo TEXTO si que funciona. Pero yo lo que necesito es que se AUTONUMÉRICO.
¿Para este tipo de datos hay que hacer algo especial para comparar el numero que obtengo del formulario con el numero AUTONUMÉRICO de la base de datos?
Gracias.
<%
Dim ConexionBD,rs
Set ConexionBD = Server.CreateObject("ADOdb.Connection")
ConexionBD.Open "DSN=xxx-xxx"
Set rs = ConexionBD.Execute("select * from Tabla1")
%>
<%
Dim borrar,id,Aceptado
borrar = Request.Form("id")
Aceptado = "False"
DO UNTIL (rs.eof OR Aceptado="True")
IF (borrar = rs("id")) then
Aceptado="True"
END IF
IF (Aceptado<>"True") then
rs.MoveNext
END IF
LOOP
%>
<%IF Aceptado="True" then
rs.Delete
rs.Update
Response.Write(" El socio ha sido borrado con éxito ")
rs.Close
Set rs = Nothing
ELSE
Response.Write("No se ha podido borrar el socio, compruebe que ha escrito correctamente el ID")
END IF
%>

1 Respuesta

Respuesta
1
Aunque el valor que recibes del formulario sea un número, VBScript lo trata como texto. Convierte a número (clng(borrar)) para comparar con rs("id").

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas