
07/03/2008, 13:49
|
| | 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
%> |