Verificar si existe el campo...

[PedroJTR]

Saludos Amigos,
Quisiera saber de que forma puedo verificar si el campo que estoy insertando en la tabla existe, para así evitar que se dupliquen los registros. Me echan una manito?

[JuanRAPerez]

verificar el campo
o verificar si el registro existe.... me imagino es esta opcion

antes de insert hace un select * from tu tabla where Tucampo = tuvariable

si el select te regresa un valor, es que existe y no lo insertas

si no te regresa valores entonces lo insertas

suerte

[PedroJTR]

Iniciado por JuanRAPerez

verificar el campo
o verificar si el registro existe.... me imagino es esta opcion

antes de insert hace un select * from tu tabla where Tucampo = tuvariable

si el select te regresa un valor, es que existe y no lo insertas

si no te regresa valores entonces lo insertas

suerte

Uy JuanRa, ya entendí, pero podrías ser un poco más especifico en cuando el Codigo, no se un ejemplo que tengas hecho, no soy tan Veterano!!

[JuanRAPerez]

juela, hoy es viernes mi estimado y tengo un monton que hacer

pero si tienes un select hecho con un while para mostrar datos ese puedes usar.....

trata has parte de tu codigo y luego me sale mas facil agarrar el tuyo y orientarte

suerte

[PedroJTR]

Iniciado por JuanRAPerez

juela, hoy es viernes mi estimado y tengo un monton que hacer

pero si tienes un select hecho con un while para mostrar datos ese puedes usar.....

trata has parte de tu codigo y luego me sale mas facil agarrar el tuyo y orientarte

suerte

Mira... Así voy!
Me da error!

Código PHP:

  <%
Dim query,cn,rs,sql,dbpath,id_cte,fechai_cte,nom_cte,tip_cte,rif_cte,dir_cte,tel_cte,fax_cte,contac_cte,mail_cte
id_cte = ucase(Request("id_cte"))
fechai_cte = Date
nom_cte = ucase(Request("nom_cte"))
tip_cte = ucase(Request("tip_cte"))
rif_cte = ucase(Request("rif_cte"))
dir_cte = ucase(Request("dir_cte"))
tel_cte = Request("tel_cte")
fax_cte = Request("fax_cte")
contac_cte = ucase(Request("contac_cte"))
mail_cte = Request("mail_cte")
dbpath="masstramites.mdb"
strcxn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(dbpath)
query="SELECT rif_cte FROM clientes WHERE rif_cte = '"& rif_cte &"'"
sql="INSERT INTO clientes(id_cte,fechai_cte,nom_cte,tip_cte,rif_cte,dir_cte,tel_cte,fax_cte,contac_cte,mail_cte) VALUES('" & id_cte & "','" & fechai_cte & "','" & nom_cte & "','" & tip_cte & "','" & rif_cte & "','" & dir_cte & "','" & tel_cte & "','" & fax_cte & "','" & contac_cte & "','" & mail_cte & "')"
set cn=Server.CreateObject("ADODB.CONNECTION")
cn.ConnectionString=strcxn
cn.open
'este es el nuevo-----------------
if query=1 then
response.Write("El RIF " & rif_cte & "ya existe en el Sistema")
else if query=0 then
'final---------------------------------------
set rs=cn.execute(sql)
if Err=0 then
response.write "El cliente " & nom_cte & " con codigo " & id_cte & " se ha insertado con exito"
end if
end if
end if
cn.close
set cn=nothing
%>  
   

Error de Microsoft VBScript en tiempo de ejecuciónerror '800a000d'

No coinciden los tipos: '[string: "SELECT rif_cte FROM "]' /nuevoclienteProceso.asp, l�nea 134

[nancy8120]

con esta condicion verificas is existe o no exixte
If (rst.EOF) Then = si no existe
If not (rst.EOF) Then = si si existe

<%

'conexion a la BD
dbpath="masstramites.mdb"
strcxn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(dbpath)
set cn=Server.CreateObject("ADODB.CONNECTION")
cn.ConnectionString=strcxn
cn.open

' verifico que existe
query="SELECT rif_cte FROM clientes WHERE rif_cte = '"& rif_cte &"'" 'imagino que este es el campo que quieres verificar si existe
Set rst = Cn.Execute(query)

If (rst.EOF) Then 'si no existe el registro entonces insertas

sql="INSERT INTO clientes(id_cte,fechai_cte,nom_cte,tip_cte,rif_cte ,dir_cte,tel_cte,fax_cte,contac_cte,mail_cte) VALUES('" & id_cte & "','" & fechai_cte & "','" & nom_cte & "','" & tip_cte & "','" & rif_cte & "','" & dir_cte & "','" & tel_cte & "','" & fax_cte & "','" & contac_cte & "','" & mail_cte & "')"
Cn.Execute (sql)
response.write "El cliente " & nom_cte & " con codigo " & id_cte & " se ha insertado con exito"

else

response.Write("El RIF " & rif_cte & "ya existe en el Sistema")' no inserta ya hay un cliente con este nombre o id
end if




cn.close
set cn=nothing
%>

[JuanRAPerez]

correcto

ves como si lo intentas a la mara le es mas fácil ayudarte?

[PedroJTR]

Muchas gracias Amigos, Nancy y JuanRa....
Gracias Gracias por todo!!!

[Adolfiten]

Poné al campo como "UNIQUE" y la base de datos misma no dejará que ingreses dos registros con igual valor.

[PedroJTR]

Iniciado por Adolfiten

Poné al campo como "UNIQUE" y la base de datos misma no dejará que ingreses dos registros con igual valor.

Grax, amigo.... Oie este método es muy facil!! No lo sabia! Gracias

[JuanRAPerez]

pero igual controla el error, porque la base no te dejara insertar y te producira un error, el cual tienes que capturar y mandar al navegador.

es la mejor manera, dejar que la base no te permita insertar el mismo valor dos veces, pero recorda eso, el error te regresara al navegador y ese tenes que capturarlo y mostrarlo

suerte