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

CONSULTA CLIENTES

<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 clientes")
%>
<table align="center">
<tr>
<th>id_cliente</th>
<th>razonsocial</th>
<th>contacto</th>
<th>direccion</th>
<th>colonia</th>
<th>ciudad</th>
<th>estado</th>
<th>CP</th>
<th>RFC</th>
<th>telefono</th>
<th>fax</th>
<th>email</th>
<th>fechaalta</th>
<th>fecha ultima venta</th>
<th>limite credito</th>
</tr>
<%
Do While Not RS.Eof
%>
<tr>
<td><%=RS("id_cliente")%></td>
<td><%=RS("razonsocial")%></td>
<td><%=RS("contacto")%></td>
<td><%=RS("direccion")%></td>
<td><%=RS("colonia")%></td>
<td><%=RS("ciudad")%></td>
<td><%=RS("estado")%></td>
<td><%=RS("CP")%></td>
<td><%=RS("RFC")%></td>
<td><%=RS("telefono")%></td>
<td><%=RS("fax")%></td>
<td><%=RS("email")%></td>
<td><%=RS("fechaalta")%></td>
<td><%=RS("fultimaventa")%></td>
<td><%=RS("limitecredito")%></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 CLIENTES

<HTML>
<HEAD>
<TITLE>actual.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
id_cliente=Request.Form("id_cliente")
'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 clientes Where id_cliente='" & id_cliente & "'")
%>
<div align="center">
<h1>Actualizar un registro</h1>
<br>
<FORM METHOD="POST" ACTION="actualizar2.asp">
Id_cliente<br>
<INPUT TYPE="TEXT" value="<%=RS("id_cliente")%>" name="id_cliente"><br>
razon social<br>
<INPUT TYPE="TEXT" value="<%=RS("razonsocial")%>" NAME="razonsocial"><br>
contacto<br>
<INPUT TYPE="TEXT" value="<%=RS("contacto")%>" NAME="contacto"><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>
cp<br>
<INPUT TYPE="TEXT" value="<%=RS("cp")%>" NAME="cp"><br>
rfc<br>
<INPUT TYPE="TEXT" value="<%=RS("rfc")%>" NAME="rfc"><br>
telefono<br>
<INPUT TYPE="TEXT" value="<%=RS("telefono")%>" NAME="telefono"><br>
fax<br>
<INPUT TYPE="TEXT" value="<%=RS("fax")%>" NAME="fax"><br>
email<br>
<INPUT TYPE="TEXT" value="<%=RS("email")%>" NAME="email"><br>
fechaalta<br>
<INPUT TYPE="TEXT" value="<%=RS("fechaalta")%>" NAME="fechaalta"><br>
fultimaventa<br>
<INPUT TYPE="TEXT" value="<%=RS("fultimaventa")%>" NAME="fultimaventa"><br>
limite de credito<br>
<INPUT TYPE="TEXT" value="<%=RS("limitecredito")%>" NAME="limitecredito"><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_cliente<br>
<%
'Creamos la sentencia SQL y la ejecutamos
set RS = Conn.Execute("Select id_cliente From clientes")
%>
<select name="id_cliente">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("id_cliente")%>
<%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_cliente=Request.Form("id_cliente")
razonsocial= Request.Form("razonsocial")
contacto= Request.Form("contacto")
direccion= Request.Form("direccion")
colonia= Request.Form("colonia")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
cp= Request.Form("cp")
rfc= Request.Form("rfc")
telefono= Request.Form("telefono")
fax= Request.Form("fax")
email= Request.Form("email")
fechaalta= Request.Form("fechaalta")
fultimaventa= Request.Form("fultimaventa")
limitecredito= Request.Form("limitecredito")
'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 clientes Set razonsocial='" & razonsocial & "',contacto='" & contacto & "',direccion='" & direccion & "',colonia='" & colonia & "',ciudad='" & ciudad & "',estado='" & estado & "',cp='" & cp & "',rfc='" & rfc & "',telefono='" & telefono &"',fax='" & fax & "',email='" & email & "',fechaalta='" & fechaalta & "',fultimaventa='" & fultimaventa & "',limitecredito='" & limitecredito & "' Where id_cliente='" & id_cliente & "'")
'Ejecutamos la orden
%>
<h1><div align="center">Registro Actualizado</div></h1>
<div align="center"><a href="consultaclientes.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>

BORRAR CLIENTES

<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_cliente<br>
<%
'Creamos la sentencia SQL y la ejecutamos
set RS = conn.execute("Select id_cliente From clientes ")
%>
<select name="id_cliente">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("id_cliente")%>
<%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_cliente=Request.Form("Id_cliente")
razonsocial= Request.Form("razonsocial")
contacto= Request.Form("contacto")
direccion= Request.Form("direccion")
colonia= Request.Form("colonia")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
cp= Request.Form("cp")
rfc= Request.Form("rfc")
telefono= Request.Form("telefono")
fax= Request.Form("fax")
email= Request.Form("email")
fechaalta= Request.Form("fechaalta")
fultimaventa= Request.Form("fultimaventa")
limitecredito= Request.Form("limitecredito")
'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 clientes Where id_cliente='" & id_cliente & "'")
%>
<h1><div align="center">Registro Borrado</div></h1>
<div align="center"><a href="consultaclientes.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>

INSERTAR CLIENTES

<HTML>
<HEAD>
<TITLE>Insertar.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
id_cliente= Request.Form("id_cliente")
razonsocial= Request.Form("razonsocial")
contacto= Request.Form("contacto")
direccion= Request.Form("direccion")
colonia= Request.Form("colonia")
ciudad= Request.Form("ciudad")
estado= Request.Form("estado")
cp= Request.Form("cp")
rfc= Request.Form("rfc")
telefono= Request.Form("telefono")
fax= Request.Form("fax")
email= Request.Form("email")
fechaalta= Request.Form("fechaalta")
fultimaventa= Request.Form("fultimaventa")
limitecredito= Request.Form("limitecredito")
'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 clientes (id_cliente,razonsocial,contacto,direccion,colonia,ciudad,estado,cp,rfc,telefono,fax,email,fechaalta,fultimaventa,limitecredito) values ('" & id_cliente & "','" & razonsocial & "','" & contacto & "','" & direccion & "','" & colonia & "','" & ciudad & "','" & estado & "','" & cp & "','" & rfc & "','" & telefono & "','" & fax & "','" & email & "','" & fechaalta & "','" & fultimaventa & "','" & limitecredito & "')")
'Ahora creamos la sentencia SQL
'Ejecutamos la orden
%>
<h1><div align="center">Registro Insertado</div></h1>
<div align="center"><a href="consultaclientes.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>

 

Regresar