Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 altas,bajas,modificaciones
 Foro Bloqueado  Tema Bloqueado


Autor Temas
westlife
Starting Member

Mexico
8 Posts
Mensajes - 03 Dec 2007 :  20:34:16  Ver Perfil  Enviar Email
Hola:

me gustaria saber, si alguien me puede ayudar mi problema es que me encargaron hacer una pagina en asp que de altas,bajas,modificaciones de marcas,modelos y dispositivos yo los hice por separado y si me salieron pero me dijeron que debian de ser en una sola pagina la verdad soy nueva en esto y no tengo idea de como hacerlo lo que se me dificulta es como debo de poner las consultas de las bases de datos tengo que incluir las 3 ya que cree 3 tablas la de marcas, modelos y dispositivos ojala y me puedan ayudar muchas gracias.

antonia solis


antonia solis

foetus
Starting Member

Dominican Republic
18 Posts
Posted - 03 Dec 2007 :  22:11:50  Ver perfil  Enviar e-mail  Visit foetus's Homepage
bueno seria mejor que postearas tu codigo para que te puedan ayudar, lo que te podria decir por ahora es que tienes que hacer tres consultas SQL, y creo que eso ya lo sabes >D


Inicio Pagina

DonGato
Moderator

España
263 Posts
Posted - 13 Dec 2007 :  12:08:48  Ver perfil  Enviar e-mail  Visit DonGato's Homepage
Te pongo el codigo de una pagina de una aplicación que he hecho donde en la misma pagina, se dan de alta, editan y eliminan.
PD: la cadena de conexión va en otra página.
PD2: una vez que lo veas, si necesitas que vayamos comentandolo solo tienes que preguntar.
<!--#include file="conexion.asp"-->
<%
session("proyecto")=""
session("parmto")=""
session("parduracion")=""
session("parkm")=""
session("pardietas")=""
session("partipo")=""
session("parfechaalta")=""

formulario1="hitos.asp?opcion=Hitos&subopcion=Alta&grabo=S"
borrar=request.QueryString("borrar")
subopcion=request.QueryString("subopcion")
if subopcion="" then
subopcion="Consulta"
end if
if subopcion="Alta" then
paso=request.QueryString("phiid")
if paso<>"" then
phiid=cint(paso)
sql="select * from partes_hitos where phiid="&phiid
set rstmto=con.execute(sql)
if rstmto.eof=true and rstmto.bof=true then%>
<table width="800" background="images/barra.png" bgcolor="#D3D1C5" >
<tr>
<td height="23" class="blancanegrita"><%=opcion&". "&subopcion%></td>
</tr>
</table>
<span class="negra">El Hito no existe es posible que haya sido eliminado</span>
<%
phiid=0
response.end
else
nombre=rstmto("phinombre")
numero=rstmto("phinumero")
comprueba="S"
rstmto.close
set rstmto=nothing
formulario1="hitos.asp?opcion=Hitos&subopcion=Alta&grabo=S&phiid="&phiid
end if

end if
%>
<form name="nuevoa" method="post" action="<%=formulario1%>" onSubmit = "return accion()">
<table width="800" background="images/barra.png" bgcolor="#D3D1C5" >
<tr>
<td height="23" class="blancanegrita"><%=opcion&". "&subopcion%></td>
</tr>
</table>
<table width="800" bgcolor="#F3F3EC">
<tr>
<td width="110" class="negranegrita">Nombre.....................</td>
<td width="302" class="negranegrita"><input name="nombre" type="text" id="nombre" value="<%=nombre%>" size="50" maxlength="25"></td>
<td width="152" class="negranegrita">C&oacute;digo Hito.......................</td>
<td width="216" class="negranegrita"><input name="codigo" type="text" id="codigo" value="<%=numero%>" size="30" maxlength="3"> </td>
</tr>
<tr>
<td height="2" colspan="4" bgcolor="#09246B"></td>
</tr>

<tr>
<td colspan="4" valign="top" class="negranegrita"><div align="center">
<input type="submit" name="Submit" value="Enviar" />
</div></td>
</tr>
</table>
</form>
<%
grabo=request.QueryString("grabo")
if grabo="S" then
phinombre=ucase(trim(request.form("nombre")))
phinumero=ucase(trim(request.form("codigo")))
response.write("grabo")
if phiid<>"" then
sql="update partes_hitos set phinombre='"&phinombre&"', phinumero='"&phinumero&"' where phiid="&phiid

else
sql="insert into partes_hitos (phinombre, phinumero) values ('"&phinombre&"','"&phinumero&"')"
end if

'response.write(sql)
' response.end
con.execute(sql)

response.Redirect("hitos.asp?opcion=Hitos")
end if
end if

if subopcion="Consulta" then
orden=request.QueryString("orden")
sql="select * from partes_hitos "
if orden<>"" then
if orden=session("orden") then
session("orden")=""
plus="desc"
else
session("orden")=orden
end if
sql=sql&" order by "&orden&" "&plus
else
sql=sql&" order by phinombre"
end if
borrar=request.QueryString("borrar")
if borrar<>"" then
sql="delete from partes_hitos where phiid="&borrar
response.write(sql)
con.execute(sql)
response.Redirect("hitos.asp?opcion=Hitos"&orden)
end if
Set rs=con.Execute(sql)
%>
<table width="800" background="images/barra.png" bgcolor="#D3D1C5" >
<tr>
<td height="23" class="blancanegrita"><%=opcion&". "&subopcion%></td>
</tr>
</table>
<table width="800" bgcolor="#F3F3EC">
<tr>
<td width="371" class="vnegranegrita" ><a href="hitos.asp?opcion=Hitos&orden=phinombre" class="vnegranegrita">Nombre</a></td>
<td width="397" class="vnegranegrita" ><a href="hitos.asp?opcion=Hitos&orden=phinumero" class="vnegranegrita">C&oacute;digo Hito </a></td>
<td width="16" class="vnegranegrita" >&nbsp;</td>
</tr>
<tr>
<td height="2" colspan="3" bgcolor="#09246B"></td>
</tr>
<%
if rs.eof=true and rs.bof=true then
%>
<tr>
<td colspan="3" class="negra">No hay registros a mostrar</td>
</tr>
<%else%>

<%
While Not rs.EOF%>

<tr>
<td class="negra"><a href="hitos.asp?opcion=Hitos&amp;subopcion=Alta&amp;phiid=<%=rs("phiid")%>" class="vnegra"><%=rs("phinombre")%></a></td>
<td class="negra"><a href="hitos.asp?opcion=Hitos&amp;subopcion=Alta&amp;phiid=<%=rs("phiid")%>" class="vnegra"><%=rs("phinumero")%></a></td>
<td width="16" class="negra"><a href="hitos.asp?opcion=Hitos&orden=<%=orden%>&borrar=<%=rs("phiid")%>" onClick="if(!confirm('¿Eliminar el registro?'))return false"><img src="images/delete.png" alt="Elimina el registro" width="16" height="16" border="0" /></a></td>
</tr>
<tr>
<td height="1" colspan="3" bgcolor="#09246B"></td>
</tr>
<%
rs.MoveNext
a=a+1
Wend
end if%>
<tr>
<td height="2" colspan="3" bgcolor="#09246B" ></td>
</tr>
</table>
<%end if%>

Edited by - DonGato on 13 Dec 2007 12:10:50Inicio Pagina

westlife
Starting Member

Mexico
8 Posts
Posted - 10 Jan 2008 :  21:20:24  Ver perfil  Enviar e-mail
holaa en el codigo que me pusiste me lo púedes comentar porque hay algunas cosas que no entiendo como en donde pones lo de seccion que significan tus variable.

antonia solisInicio Pagina

DonGato
Moderator

España
263 Posts
Posted - 10 Jan 2008 :  22:37:27  Ver perfil  Enviar e-mail  Visit DonGato's Homepage
Tienes razon, te pongo mejor este otro ejemplo que hace lo mismo pero con un solo campo.
<!--#include file="conexion.asp"-->
<%

'Parte del codigo para borrar. como veras lo que hago es compruebo si borrar tiene algun valor, de ser asi monto el sql
borrar=request.QueryString("borrar")
if borrar<>"" then
borra="delete from actividades where idactividad="&borrar
con.execute(borra)
response.Redirect("actividad_g.asp")
end if
'Edicion. Al igual que antes reviso que la variable idactividad tenga un valor, en caso afirmativo hago la select.

idactividad=request.QueryString("idactividad")
if idactividad<>"" then
sql="select * from actividades where idactividad="&idactividad
set rs_e=con.execute(sql)
'Para eliminar el recordset y liarme menos, hago la asignacion a una variable que rellena el campo del formulario
actividadnombre=rs_e("actividadnombre")
rs_e.close
set rs_e=nothing
end if
' Esta parte del codigo siempre se ejecuta y es la que muestra la lista de actividades, de forma que sobre esta lista
' realizo el mantenimiento de la tabla, permitiendome borrar y editar registros
sql="select * from actividades where empresa ="&session("idempresa")&" order by actividadnombre"
Set rs=con.Execute(sql)
%>
<table width="800" height="47" background="imagenes/administracion.gif" bgcolor="#EEECD1">
<tr>
<td width="38" rowspan="2">&nbsp;</td>
<td width="238" rowspan="2" valign="top" class="blancanegrita">Actividades</td>
<td width="508" height="19"></td>
</tr>
<tr>
<td width="508" height="19" valign="top"><a href="actividad_g.asp" class="boton">Nueva</a></td>
</tr>
</table>
<table width="800" bgcolor="#F3F3EC">
<tr>
<td height="2" colspan="4" bgcolor="#9DD234"></td>
</tr>
<%
if rs.eof=true and rs.bof=true then
%>

<tr>
<td class="negra">No hay registros a mostrar</td>
<td colspan="3" class="negra">&nbsp;</td>
</tr>
<%else%>
<tr>
<td colspan="2" class="negranegrita">Actividad</td>
<td width="42" class="negranegrita">Borrar</td>
</tr>

<%
While Not rs.EOF

%> <tr>
<td height="1" colspan="4" bgcolor="#9DD234"></td>
</tr>
<tr>
<td colspan="2" class="negra"><a href="actividad_g.asp?idactividad=<%=rs("idactividad")%>" class="vnegra"><%=rs("actividadnombre")%></a></td>
<td class="negra"><div align="center"><a href="actividad_g.asp?borrar=<%=rs("idactividad")%>" onClick="if(!confirm('¿Eliminar la Actividad?'))return false"><img src="imagenes/borrar.png" title="Elimina este registro" border="0"></a></div></td>
</tr>

<%

Wend
end if%>
<tr>
<td height="1" colspan="4" bgcolor="#9DD234"></td>
</tr>
<%
' En esta parte monto el formulario y dependiendo de si voy a editar, es decir, la varibale idactividad es distinta de "" o voy a insertar, es decir, idactividad es igual a "" genero el formulario para que despues tome el valor del campo de una o de otra forma.
if idactividad="" then
formulario="actividad_g.asp?grabo=S"
else
formulario="actividad_g.asp?grabo=S&idactividad"&idactividad
end if%>
<%else%>
<tr>
<td colspan="2" class="negra" height="10"><form name="edactividad" method="post" action="<%=formulario%>" onSubmit = "return jedactividad()"><table width="220">
<tr>
<td width="146"><input name="edactividad" type="text" id="edactividad" value="<%=actividadnombre%>" size="50" maxlength="50" /></td>
<td width="62"><input type="submit" name="Submit" value="Editar" /></td>
</tr>
</table></form></td>
<td class="negra">&nbsp;</td>
</tr>
<%end if%>
<tr>
<td height="2" colspan="4" bgcolor="#9DD234"></td>
</tr>
</table>
<%
grabo=request.QueryString("grabo")
'Dependiendo del valor de idactividad, hago el update de la tabla o hago el insert.
if grabo="S"then
edactividad=trim(ucase(Request.form("edactividad")))
empresa=session("idempresa")

if idactividad="" then
sql_i="insert into actividades (ACTIVIDADNOMBRE, EMPRESA) values ('"&actividad&"',"&empresa&")"
else
empresa=session("idempresa")
sql_i="update actividades set ACTIVIDADNOMBRE= '"&edactividad&"', empresa= "&empresa&" where idactividad="&idactividad
end if
'response.write(sql_i)
con.execute(sql_i)
response.redirect("actividad_g.asp")

end if%>
PD: espero que te sea mas claro asi. En caso de duda preguntame lo que necesites

Edited by - DonGato on 10 Jan 2008 22:39:46

Edited by - DonGato on 10 Jan 2008 22:41:52Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar