Hola a todos, otra vez yo...
Tengo un código que inserta los datos de un formulario perfectamente en la tabla, pero quiero que antes de que inserte dichos datos, valide si un registro específico no esté duplicado en esa tabla, y si lo está informe de que no puede seguir el proceso por ese motivo.
El procedimiento es este:
- Declaración de variables
- definición de variables
sql = "insert into .....
conn.execute sql
------------------------------------------------------------------------------------------
hasta allí todo bien, ahora intentando validar ese campo he tratado de hacer esto:
dim existe, todas las demás variables
existe = false
todas las demás variables = request.form("todas las demás variables")
Set rs7=Server.CreateObject("ADODB.RecordSet")
Ssql="select * from tabla order by ref"
rs7.open Ssql,conn,1,2
rs7.MoveFirst
DO until existe OR rs7.EOF
if Request.Form("ref") = rs7("ref") then
existe = true
end if
rs7.MoveNext
Loop
if not existe then
sql = "insert into .....
conn.execute sql
end if
if existe then
Response.write ("La información introducida ya existe")
else
Response.write ("agregado")
end if
rs7.MoveFirst
%>
<%
Do until rs7.EOF
%>
<%
rs7.MoveNext
Loop
rs7.close
set rs7=nothing
conn.close
set conn=nothing
El resultado es que inserta perfectamente, no le importa si está repetido o no.
Gracias por la ayuda
