evitar campos duplicados
Publicado por Gyca (1 intervención) el 30/04/2007 22:30:13
Hola, ojala me puedan auyudar con esto, tengo el siguiente codigo, quiero que el campo cedula y email no se dupliquen en mi base de datos fiestas.mdb y de que en caso de que este metiendo un dato ya existente le comunique que ese dato ya está. muchas gracias por su ayuda
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<%
Session("nombre") = Request.form("nombre")
Session("empresa") = Request.form("empresa")
Session("telefono") = Request.form("telefono")
Session("email") = Request.form("email")
Session("cotizar") = Request.form("cotizar")
Session("producto") = Request.form("cedula")
%>
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("Fiestas.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From Cotizacion "
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
Tabla.AddNew
Tabla("nombre") = Request.form("nombre")
Tabla("empresa") = Request.form("empresa")
Tabla("telefono") = Request.form("telefono")
Tabla("email") = Request.form("email")
Tabla("cotizar") = Request.form("cotizar")
Tabla("producto") = Request.form("producto")
Tabla.Update
'fin del Script
%>
<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
'cerramos la conexion
Tabla.Close
Conexion.Close
response.redirect("mienvio.asp")
%>
</body>
</html>
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<%
Session("nombre") = Request.form("nombre")
Session("empresa") = Request.form("empresa")
Session("telefono") = Request.form("telefono")
Session("email") = Request.form("email")
Session("cotizar") = Request.form("cotizar")
Session("producto") = Request.form("cedula")
%>
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("Fiestas.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From Cotizacion "
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
Tabla.AddNew
Tabla("nombre") = Request.form("nombre")
Tabla("empresa") = Request.form("empresa")
Tabla("telefono") = Request.form("telefono")
Tabla("email") = Request.form("email")
Tabla("cotizar") = Request.form("cotizar")
Tabla("producto") = Request.form("producto")
Tabla.Update
'fin del Script
%>
<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
'cerramos la conexion
Tabla.Close
Conexion.Close
response.redirect("mienvio.asp")
%>
</body>
</html>
Valora esta pregunta
0