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

CONSULTA PROVEEDORES

<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 Conexion = server.CreateObject("adodb.connection")
Conexion.open "driver={SQL SERVER};description=Sistema;server=CTA2-238;uid=sa;pwd=;database=Sistema"
Set Recordset = Conexion.execute("select * from proveedores")
%>
<table align="center">
<tr>
<th>ID_PROVEEDOR</th>
<th>RAZON SOCIAL</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>E MAIL</th>
<th>FECHA DE ALTA</th>
<th>FECHA ULTIMA COMPRA</th>
</tr>
<%
Do While Not Recordset.EOF
%>
<tr>
<td><%=RecordSet("id_proveedor")%></td>
<td><%=RecordSet("razonsocial")%></td>
<td><%=RecordSet("contacto")%></td>
<td><%=RecordSet("direccion")%></td>
<td><%=RecordSet("colonia")%></td>
<td><%=RecordSet("ciudad")%></td>
<td><%=RecordSet("estado")%></td>
<td><%=RecordSet("cp")%></td>
<td><%=RecordSet("rfc")%></td>
<td><%=RecordSet("telefono")%></td>
<td><%=RecordSet("fax")%></td>
<td><%=RecordSet("email")%></td>
<td><%=RecordSet("fechaalta")%></td>
<td><%=RecordSet("fultimacompra")%></td>
</tr>
<%
Recordset.MoveNext
Loop
Conexion.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 PROVEEDORES

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

BORRAR PROVEEDORES

<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_Proveedor<br>
<%
'Creamos la sentencia SQL y la ejecutamos
set RS = conn.execute("Select id_proveedor From proveedores ")
%>
<select name="id_proveedor">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("id_proveedor")%>
<%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_proveedor=Request.Form("id_proveedor")
RazonSocial= Request.Form("Razon Social")
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")
e_mail= Request.Form("email")
Fechaalta= Request.Form("Fechaalta")
Fultimacompra= Request.Form("Fultimacompra")
'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 proveedores Where id_proveedor='" & id_proveedor & "'")
%>
<h1><div align="center">Registro Borrado</div></h1>
<div align="center"><a href="consultaproveedores.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>

INSERTAR PROVEEDORES

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

Regresar