Site hosted by Angelfire.com: Build your free website today!

CONSULTA AGENTES

<HTML>
<HEAD>
<TITLE>Lectura de registros de una tabla</TITLE>
</HEAD>
<BODY>
<h1><div align="center">Lectura de la tabla</div></h1>
<br>
<br>
<%

set conn=server.createobject("adodb.connection")
conn.open "driver={SQL SERVER};description=Sistema;server=CTA2-238;uid=sa;pwd=;database=Sistema"
set rs=conn.execute("select * from agentes")

%>
<table align="center">
<tr>
<th>Id_agente</th>
<th>nombre</th>
<th>direccion</th>
<th>colonia</th>
<th>ciudad</th>
<th>estado</th>
<th>telefono</th>
<th>rfc</th>
<th>email</th>
<th>fechanacimiento</th>
<th>sueldo</th>
</tr>
<%
Do While Not RS.Eof
%>
<tr>
<td><%=RS("id_agente")%></td>
<td><%=RS("nombre")%></td>
<td><%=RS("direccion")%></td>
<td><%=RS("colonia")%></td>
<td><%=RS("ciudad")%></td>
<td><%=RS("estado")%></td>
<td><%=RS("telefono")%></td>
<td><%=RS("rfc")%></td>
<td><%=RS("email")%></td>
<td><%=RS("fechanacimiento")%></td>
<td><%=RS("sueldo")%></td>
</tr>
<%
RS.MoveNext
Loop

Conn.Close
%>

</table>

<div align="center">
<a href="insertar.html">Aņadir un nuevo registro</a><br>
<a href="actualizar1.asp">Actualizar un registro existente</a><br>
<a href="borrar1.asp">Borrar un registro</a><br>
<a href="http://localhost/Proyecto/index.html">Regresar Al Menu Principal</a><br>
</div>

</BODY>
</HTML>

ACTUALIZAR AGENTES

<HTML>
<HEAD>
<TITLE>actual.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
id_agente=Request.Form("id_agente")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = server.CreateObject("adodb.connection")
Conn.open "driver={SQL SERVER};description=Sistema;server=CTA2-238;uid=sa;pwd=;database=Sistema"
'Ahora creamos la sentencia SQL
'Ejecutamos la orden
set RS = Conn.Execute("select * From agentes Where id_agente='" & id_agente & "'")
%>
<div align="center">
<h1>Actualizar un registro</h1>
<br>
<FORM METHOD="POST" ACTION="actualizar2.asp">
Id_agente<br>
<INPUT TYPE="TEXT" value="<%=RS("id_agente")%>" name="id_agente"><br>
nombre<br>
<INPUT TYPE="TEXT" value="<%=RS("nombre")%>" NAME="nombre"><br>
direccion<br>
<INPUT TYPE="TEXT" value="<%=RS("direccion")%>" NAME="direccion"><br>
colonia<br>
<INPUT TYPE="TEXT" value="<%=RS("colonia")%>" NAME="colonia"><br>
ciudad<br>
<INPUT TYPE="TEXT" value="<%=RS("ciudad")%>" NAME="ciudad"><br>
estado<br>
<INPUT TYPE="TEXT" value="<%=RS("estado")%>" NAME="estado"><br>
telefono<br>
<INPUT TYPE="TEXT" value="<%=RS("telefono")%>" NAME="telefono"><br>
rfc<br>
<INPUT TYPE="TEXT" value="<%=RS("rfc")%>" NAME="rfc"><br>
email<br>
<INPUT TYPE="TEXT" value="<%=RS("email")%>" NAME="email"><br>
fechanacimiento<br>
<INPUT TYPE="TEXT" value="<%=RS("fechanacimiento")%>" NAME="fechanacimiento"><br>
sueldo<br>
<INPUT TYPE="TEXT" value="<%=RS("sueldo")%>" NAME="sueldo"><br>
<INPUT TYPE="SUBMIT" value="Actualizar">
</FORM>
</div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>


<HTML>
<HEAD>
<TITLE>Actualizar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Actualizar un registro</h1>
<br>
<%
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = server.CreateObject("adodb.connection")
Conn.open "driver={SQL SERVER};description=Sistema;server=CTA2-238;uid=sa;pwd=;database=Sistema"
%>
<FORM METHOD="POST" ACTION="actual.asp">
Id_agente<br>
<%
'Creamos la sentencia SQL y la ejecutamos
set RS = Conn.Execute("Select id_agente From agentes ")
%>
<select name="id_agente">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("id_agente")%>
<%RS.movenext
Loop
%>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Continuar">
</FORM>
</div>
</BODY>
</HTML>


<HTML>
<HEAD>
<TITLE>Actualizar2.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
id_agente=Request.Form("id_agente")
nombre= Request.Form("nombre")
direccion= Request.Form("direccion")
colonia= Request.Form("colonia")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
telefono= Request.Form("telefono")
rfc= Request.Form("rfc")
email= Request.Form("email")
fechanacimiento= Request.Form("fechanacimiento")
sueldo= Request.Form("sueldo")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = server.CreateObject("adodb.connection")
Conn.open "driver={SQL SERVER};description=Sistema;server=CTA2-238;uid=sa;pwd=;database=Sistema"
'Ahora creamos la sentencia SQL
Set Recordset = Conn.execute ("Update agentes Set nombre='" & nombre & "',direccion='" & direccion & "',colonia='" & colonia & "',ciudad='" & ciudad & "',estado='" & estado & "',telefono='" & telefono & "',rfc ='" & rfc & "',email='" & email & "',fechanacimiento='" & fechanacimiento & "',sueldo='" & sueldo & "'Where id_agente ='" & id_agente & "'")
'Ejecutamos la orden
%>
<h1><div align="center">Registro Actualizado</div></h1>
<div align="center"><a href="consultaagentes.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>


BORRAR AGENTES

<HTML>
<HEAD>
<TITLE>Borrar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Borrar un registro</h1>
<br>
<%
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = server.CreateObject("adodb.connection")
Conn.open "driver={SQL SERVER};description=Sistema;server=CTA2-238;uid=sa;pwd=;database=Sistema"
%>
<FORM METHOD="POST" ACTION="borrar2.asp">
Id_agente<br>
<%
'Creamos la sentencia SQL y la ejecutamos
set RS = conn.execute("Select id_agente From agentes ")
%>
<select name="id_agente">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("id_agente")%>
<%RS.movenext
Loop
%>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Borrar">
</FORM>
</div>
</BODY>
</HTML>


<HTML>
<HEAD>
<TITLE>Borrar2.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
id_agente=Request.Form("Id_agente")
nombre= Request.Form("nombre")
direccion= Request.Form("direccion")
colonia= Request.Form("colonia")
ciudad= Request.Form("ciudad")
estado= Request.Form("Estado")
telefono= Request.Form("telefono")
rfc= Request.Form("rfc")
email= Request.Form("email")
fechanacimiento= Request.Form("fechanacimiento")
sueldo= Request.Form("sueldo")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = server.CreateObject("adodb.connection")
Conn.open "driver={SQL SERVER};description=Sistema;server=CTA2-238;uid=sa;pwd=;database=Sistema"
'Ahora creamos la sentencia SQL
'Ejecutamos la orden
set RS = Conn.Execute("Delete From agentes Where id_agente='" & id_agente & "'")
%>
<h1><div align="center">Registro Borrado</div></h1>
<div align="center"><a href="consultaagentes.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>

INSERTAR AGENTES

<HTML>
<HEAD>
<TITLE>Insertar.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
id_agente= Request.Form("id_agente")
nombre= Request.Form("nombre")
direccion= Request.Form("direccion")
colonia= Request.Form("colonia")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
telefono= Request.Form("telefono")
rfc= Request.Form("rfc")
email= Request.Form("email")
fechanacimiento= Request.Form("fechanacimiento")
sueldo= Request.Form("sueldo")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = server.CreateObject("adodb.connection")
Conn.open "driver={SQL SERVER};description=Sistema;server=CTA2-238;uid=sa;pwd=;database=Sistema"
Set Recordset= Conn.execute ("Insert Into agentes (id_agente,nombre,direccion,colonia,ciudad,estado,telefono,rfc,email,fechanacimiento,sueldo) values ('" & id_agente & "','" & nombre & "','" & direccion & "','" & colonia & "','" & ciudad & "','" & estado & "','" & telefono & "','" & rfc & "','" & email & "','" & fechanacimiento & "','" & sueldo & "')")
'Ahora creamos la sentencia SQL
'Ejecutamos la orden
%>
<h1><div align="center">Registro Insertado</div></h1>
<div align="center"><a href="consultaagentes.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>

 

Regresar