Foros del Web » Programando para Internet » ASP Clásico »

Controlar si existe un registro

Estas en el tema de Controlar si existe un registro en el foro de ASP Clásico en Foros del Web. Hola! Tengo este codigo que logré despues de tanto tiempo de intentar e intentar. Funciona, pero necesito aclarar una duda. Si envio desde el form ...
  #1 (permalink)  
Antiguo 21/07/2008, 13:10
Avatar de JJF
JJF
 
Fecha de Ingreso: mayo-2005
Mensajes: 205
Antigüedad: 19 años
Puntos: 0
Sonrisa Controlar si existe un registro

Hola! Tengo este codigo que logré despues de tanto tiempo de intentar e intentar.
Funciona, pero necesito aclarar una duda.

Si envio desde el form 5 registros, y el 3º no existe o es erroneo, cómo lograr que inserte todos los demás y me anuncie luego el que está erróneo o no existe?





Código PHP:

   Dim Conn
,strSQL 
   Dim i
   Set Conn 
Server.CreateObject("ADODB.Connection"

   
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " Server.MapPath("db/video.mdb"



for 
i0 to cant 1
nvd 
Request.Form("nvd" i)

   
strSQL "Select nvd from VD where nvd = '"&nvd&"'"
   
Set RS1=Conn.Execute(strSQL)
   
if 
RS1("nvd") <>"" then

   strSQL 
"Update VD Set NOM='"&NOM&"', AUT='"&AUT&"', DNI = '"&DNI&"', NUMCL = '"&NUMCL&"', IDC='"&IDC&"', EST = 'Alquilado' Where NVD= '" NVD "'"
   
Conn.Execute(strsql


   
strSQL "insert into MOV (NVD, NOM, DNI, CLA, FH, AUT, NUMCL) values ('" NVD "','" NOM "','" DNI "','" CLA "','" FH "', '" AUT "','" NUMCL "')" 
   
Conn.Execute(strSQL)  

end if
next             

                                                                       
   Conn
.Close 
   set Conn 
nothing 


Muchas gracias de antemano!
  #2 (permalink)  
Antiguo 21/07/2008, 13:24
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: Controlar si existe un registro

basicamente, antes de cualquier intento de lectura del registro, haces tus evaluaciones pertinentes

por ejemplo
preguntas si no hay error, despues; preguntas si no es el final del archivo, y por ultimo, realizas tus operaciones, en codigo seria algo asi:
Cita:
set rs=conexion.execute(SQL)
verifico error
if ERR=0 then
'no hay, entonces prosigo
'verifico que no sea el final del archivo
if RS.eof=false then
'no lo es, por ende; lo encontro
realizo mi codigo necesario
'en caso de no encontrarlo
else
'codigo alternativo, podria ser nuevo/actualizacion o etc....
end if
'y si ocurrio error
else
'despliego el error
response.write Err.descriptio
end if
basicamente seria asi, trata de implementarlo en tu ciclo, y veremos como te va
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #3 (permalink)  
Antiguo 21/07/2008, 13:45
Avatar de JJF
JJF
 
Fecha de Ingreso: mayo-2005
Mensajes: 205
Antigüedad: 19 años
Puntos: 0
Sonrisa Respuesta: Controlar si existe un registro

Gracias.....al final es una pavada...pero se me bloqueó el cerebro! ajajaja

Gracias por tu ayuda. Lo implementaré!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:49.