Ver Mensaje Individual
  #6 (permalink)  
Antiguo 07/03/2008, 13:49
nancy8120
 
Fecha de Ingreso: enero-2006
Mensajes: 233
Antigüedad: 19 años, 4 meses
Puntos: 2
Re: Verificar si existe el campo...

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
%>