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

CONSULTA ARTICULOS

<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 articulos")
%>
<table align="center">
<tr>
<th>Id_articulo</th>
<th>Descripcion</th>
<th>unidad de compra</th>
<th>unidad de venta</th>
<th>id_proveedor</th>
<th>existencia</th>
<th>costo</th>
<th>precio</th>
<th>fechaalta</th>
<th>fultimacompra</th>
<th>comision</th>
</tr>
<%
Do While Not RS.Eof
%>
<tr>
<td><%=RS("id_articulo")%></td>
<td><%=RS("descripcion")%></td>
<td><%=RS("unidadcompra")%></td>
<td><%=RS("unidadventa")%></td>
<td><%=RS("id_proveedor")%></td>
<td><%=RS("existencia")%></td>
<td><%=RS("costo")%></td>
<td><%=RS("precio")%></td>
<td><%=RS("fechaalta")%></td>
<td><%=RS("fultimacompra")%></td>
<td><%=RS("comision")%></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 ARTICULOS

<HTML>
<HEAD>
<TITLE>actual.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
id_articulo=Request.Form("id_articulo")
'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 articulos Where id_articulo='" & id_articulo & "'")
%>
<div align="center">
<h1>Actualizar un registro</h1>
<br>
<FORM METHOD="POST" ACTION="actualizar2.asp">
Id_articulo<br>
<INPUT TYPE="TEXT" value="<%=RS("id_articulo")%>" name="id_articulo"><br>
descripcion<br>
<INPUT TYPE="TEXT" value="<%=RS("descripcion")%>" NAME="descripcion"><br>
unidadcompra<br>
<INPUT TYPE="TEXT" value="<%=RS("unidadcompra")%>" NAME="unidadcompra"><br>
unidadventa<br>
<INPUT TYPE="TEXT" value="<%=RS("unidadventa")%>" NAME="unidadventa"><br>
id_proveedor<br>
<INPUT TYPE="TEXT" value="<%=RS("id_proveedor")%>" NAME="id_proveedor"><br>
existencia<br>
<INPUT TYPE="TEXT" value="<%=RS("existencia")%>" NAME="existencia"><br>
costo<br>
<INPUT TYPE="TEXT" value="<%=RS("costo")%>" NAME="costo"><br>
precio<br>
<INPUT TYPE="TEXT" value="<%=RS("precio")%>" NAME="precio"><br>
fechaalta<br>
<INPUT TYPE="TEXT" value="<%=RS("fechaalta")%>" NAME="fechaalta"><br>
fultimacompra<br>
<INPUT TYPE="TEXT" value="<%=RS("fultimacompra")%>" NAME="fultimacompra"><br>
comision<br>
<INPUT TYPE="TEXT" value="<%=RS("comision")%>" NAME="comision"><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_Articulo<br>
<%
'Creamos la sentencia SQL y la ejecutamos
set RS = Conn.Execute("Select id_articulo From articulos ")
%>
<select name="id_articulo">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("id_articulo")%>
<%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_articulo=Request.Form("id_articulo")
descripcion= Request.Form("descripcion")
unidadcompra= Request.Form("unidadcompra")
unidadventa= Request.Form("unidadventa")
id_proveedor= Request.Form("id_proveedor")
existencia= Request.Form("existencia")
costo= Request.Form("costo")
precio= Request.Form("precio")
fechaalta= Request.Form("fechaalta")
fultimacompra= Request.Form("fultimacompra")
comision= Request.Form("comision")
'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 articulos Set descripcion='" & descripcion & "',unidadcompra='" & unidadcompra & "',unidadventa='" & unidadventa & "',id_proveedor='" & id_proveedor & "',existencia='" & existencia & "',costo='" & costo & "',precio='" & precio & "',fechaalta='" & fechaalta & "',fultimacompra='" & fultimacompra & "',comision='" & comision & "' Where id_articulo='" & id_articulo & "'")
'Ejecutamos la orden
%>
<h1><div align="center">Registro Actualizado</div></h1>
<div align="center"><a href="consultaarticulos.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>

BORRAR ARTICULOS

<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_Articulo<br>
<%
'Creamos la sentencia SQL y la ejecutamos
set RS = conn.execute("Select id_articulo From articulos ")
%>
<select name="id_articulo">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("id_articulo")%>
<%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_articulo=Request.Form("Id_articulo")
descripcion= Request.Form("Descripcion")
unidadcompra= Request.Form("Unidadcompra")
unidadventa= Request.Form("Unidadventa")
id_proveedor= Request.Form("Id_proveedor")
existencia= Request.Form("Existencia")
costo= Request.Form("Costo")
precio= Request.Form("Precio")
fechaalta= Request.Form("Fechaalta")
fultimacompra= Request.Form("Fultimacompra")
comision= Request.Form("Comision")
'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 articulos Where id_articulo='" & id_articulo & "'")
%>
<h1><div align="center">Registro Borrado</div></h1>
<div align="center"><a href="consultaarticulos.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>

INSERTAR ARTICULOS

<HTML>
<HEAD>
<TITLE>Insertar.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
id_articulo= Request.Form("id_articulo")
descripcion= Request.Form("descripcion")
unidadcompra= Request.Form("unidadcompra")
unidadventa= Request.Form("unidadventa")
id_proveedor= Request.Form("id_proveedor")
existencia= Request.Form("existencia")
costo= Request.Form("costo")
precio= Request.Form("precio")
fechaalta= Request.Form("fechaalta")
fultimacompra= Request.Form("fultimacompra")
comision= Request.Form("comision")
'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 articulos (id_articulo,descripcion,unidadcompra,unidadventa,id_proveedor,existencia,costo,precio,fechaalta,fultimacompra,comision) values ('" & id_articulo & "','" & descripcion & "','" & unidadcompra & "','" & unidadventa & "','" & id_proveedor & "','" & existencia & "','" & costo & "','" & precio & "','" & fechaalta & "','" & fultimacompra & "','" & comision & "')")
'Ahora creamos la sentencia SQL
'Ejecutamos la orden
%>
<h1><div align="center">Registro Insertado</div></h1>
<div align="center"><a href="consultaarticulos.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>
 

Regresar