Hola a tod@s, creo que cada vez entiendo menos
, por favor que alguien me ayude.
Se rellena un formulario, antes de insertar los datos en una BD, uno de sus campos se debe confirmar que no se encuentra repetido en la BD, para ello utilido SQL. Me da un error: NO COINCIDEN LOS TIPOS DE DATOS EN LA EXPRESION DE CRITERIOS. Error en la línea: rsnuevoempleo.Open sql, conn
Este es el programa:
referencia=REQUEST.FORM("referencia")
descripcion=REQUEST.FORM("descripcion")
set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "DSN=bolsa.dsn"
conn.open
set rsnuevoempleo = Server.CreateObject("ADODB.Recordset")
rsnuevoempleo.cursortype = adOpenKeyset
rsnuevoempleo.locktype = adLockOptimistic
sql = "SELECT * FROM empleo WHERE REFEmpleo='"&referencia&"'"
rsnuevoempleo.Open sql, conn
IF (rsnuevoempleo.EOF) THEN
rsnuevoempleo.AddNew
rsnuevoempleo("REFEmpleo") = referencia
rsnuevoempleo("DESCRIPCION") = descripcion
rsnuevoempleo.Update
rsnuevoempleo.close
Set rsnuevoempleo = Nothing
conn.close
Set conn = Nothing
response.redirect "admlistaempleo.asp"
ELSE%>
<HTML>
<HEAD><TITLE>AVISO REFERENCIA REPETIDA</TITLE></HEAD>
<BODY BGCOLOR="#FFFACD">
<P ALIGN="CENTER">ESTA REFERENCIA YA EXISTE, LAS REFERENCIAS DE LOS EMPLEOS NO SE PUEDEN REPETIR
<A HREF="NuevoEmpleo.asp">
INTENTALO CON OTRA REFERENCIA</A></P>
</BODY>
</HTML>
<%END IF
rsnuevoempleo.close
Set rsnuevoempleo = Nothing
conn.close
Set conn = Nothing