Ver Mensaje Individual
  #5 (permalink)  
Antiguo 29/03/2011, 13:11
Avatar de Julcar
Julcar
 
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 17 años, 4 meses
Puntos: 54
Respuesta: Problema al actualizar datos

Ahora, viendo tu segundo codigo, aplicaré lo mismo que al anterior

Código ASP:
Ver original
  1. <&#37;
  2. dim ObRS, sql
  3. set Oconn = server.createobject("ADODB.connection")
  4. Oconn.open "BD_SPIO"
  5. set obrs=Server.CreateObject("ADODB.RecordSet")
  6.  
  7. 'seleccionamos todos los registros de la tabla celula sin algun tipo de ordenacion
  8. sql="select * from celula"
  9.  
  10. 'ejecutamos la sentencia contra la base de datos
  11. set ObRS= oconn.Execute(SQL)
  12.  
  13. 'si alguna de las variables td_celula..... estan vacias entonces
  14. if td_celula="" or td_equipo="" or td_descripcion= "" then
  15.  
  16. 'nos movemos al siguiente registro
  17. obrs.movenext
  18. else
  19.  
  20. 'sino, insertamos en celula los valores de las variables
  21. sql2="insert into celula (c_celula, c_equipo, descripcion) values (td_celula, td_equipo, td_descripcion)"
  22. end if
  23. Set obrs = nothing
  24. %>
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"