Evitar duplicidad

[meru-kun]

Código:

<%
Do While Not MyRecordset.EoF
If MyRecordset("SECCION") = txtSeccAdd Then
response.write ("Error")
Exit Do
Else
response.write ("Bien")
End If
MyRecordset.MoveNext
Loop
MyRecordset.Close
%>

Con ese codigo pretendo que si ya existe un campo con el contendio de txtSeccAdd, se detenga todo el proceso, y se evite asi insertar datos duplicados.
Sin embargo, con esa sentencia, me sale siempre "Bien", a pesar de que introduzca datos nuevos ¿alguien sabe por que?¿algun otro metodo?

[bacho]

una idea sería :
Pon el campo como llave en BD.


y cuando estas haciendo update cata el error de duplicación de llave con el objeto ERROR de ADO.

[meru-kun]

mmm... ¿alguna otra solucion basada solo en codigo? Quiero decir, comoi puedo "hacer bien" esa por cion de codigo. Gracias

[bacho]

otra idea es :
dim sql
dim rs

sql ="SELECT cp_llave FROM tabla_x WHERE cp_llave = '" valor_nuevo "' "
set rs = conexion.execute(sql)

if not (rs.bof and rs.eof ) then
'ejecute sql para insertar datos nuevos a la tabla
else
response.write (" <b>ERROR LLAVE DUPLICADA<b>")
end if

[meru-kun]

Pues a pesar de todo, me sigue saliendo siempre la misma respuesta, a pesar de que el dato ya este...