Construir un panel de control para una tienda virtual.
Bueno, vamos a ver si construimos un pequeño FAQ sobre esto:
PUNTO 1: Registro y autentificacion de administradores.
PUNTO 2: Componentes de envio de ficheros.
PUNTO 3: Administrador de bases de datos.
PUNTO 4: Browser de ficheros en el servidor.
Pasos previos
Debemos prestar atencion al diseño de la base de datos, un buen diseño nos evita problemas e inconsistencias.
Algo importante es dejar un campo llamado
ID o CODIGO como AUTONUMERICO, esto hace que cada nuevo registro añadido tome un
VALOR NUMERICO automaticamente, ademas nunca dos productos podran tener el mismo codigo y si eliminamos un producto con discho codigo sera imposible que coloquemos otro por error en su lugar que pueda confundirnos.
Estamos tratando este diseño sobre ACCESS, para operaciones muy complejas deberiamos pensar en SQL server, pero como el codigo es 100% reutilizable solo necesitariamos convertir la BD y subirla al server SQL o MySQL.
PUNTO 3: Administrador de bases de datos.
Vamos a comenzar por este, puesto que normalmente todo el mundo tiene ya hechas las bases de datos de los productos de la tienda.
Necesitamos saber crear consultas de seleccion para obtener los datos de la base de datos, es recomendable que exista un campo en la base de datos llamado
ID o CODIGO que nos permita identificar de forma univoca cada producto que tenemos en ella.
Esto lo usaremos posteriormente para modificar o borrar registros.
Como ya hemos comentado para añadir nos olvidamos del codigo o ID porque el motor JET de access al definir un campo como AUTONUMERICO lo asigna solo al hacer un UPDATE.
Consulta de seleccion (visualizacion) productos.asp
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("tubase.mdb")&";"
SQL="SELECT * FROM tutabla"
rs.Open SQL, oConn
do while not rs.eof
' Esto nos muestra el dato y crea un enlace a la pagina
detalle.asp donde podremos modificar el registro.
response.write("<a href=detalle.asp?cod=" & rs("id") & ">" & rs("contenido"))& "</a><br>"
rs.movenext
loop
rs.close
oConn.close
%>
Mas info:
http://aspfacil.com/articulos/verarticulo.asp?id=22 Despues necesitamos saber modificar una de los registros que se encuentren en la base de datos:
Necesitamos saber
QUE registro es el que queremos modificar para ello cramos una consulta SQL donde indicamos el numero de registro a listar.
Recibiremos los valores obtenidos en la consulta en una pagina sutida con cuadros de texto, combos, casillas, etc para la modificacion de los datos.
Este tipo de consulta se basa normalmente en 3 paginas (se puede hacer todo en 1), una donde elgimos el dato a modificar y otra donde lo visualizamos en un formulario y otra donde se procede a la actualizacion sobre la base de datos.
Visualizacion en formulario: detalle.asp
En esta pagina podremos hacer dos cosas habitualemente modificar el producto o eliminarlo
Ambas operaciones las hacemos basandonos en el ID suministrado en la pagina anterior.
<%
' con esto recuperramos los datos del registro a borrar o modificar de la pagina anterior
varID=request("id)
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("tubase.mdb")&";"
SQL="SELECT * FROM tutabla where ID="&varID&" "
rs.Open SQL, oConn
do while not rs.eof
%>
<form method="post" action="update.asp">
<input type="text" name="formulario1" size="20" value="<%=rs("campo1")%>">
<input type="text" name="formulario2" size="20" value="<%=rs("campo2")%>">
<input type="text" name="formulario3" size="20" value="<%=rs("campo3")%>">
<input type="submit" value="Enviar" name="enviar">
<input type="reset" value="Restablecer" name="borrar">
<%
' Esto nos muestra el dato y crea un enlace a la pagina
borrar.asp donde podremos borrar el registro.
response.write("<a href=borrar.asp?cod=" & rs("id") & ">" & rs("campo1"))& "</a><br>"
rs.movenext
loop
rs.close
oConn.close
%>
Actualizar un registro de la base de datos. update.asp
<%
' con esto recuperramos los datos de un fomulario de la pagina anterior y el valor ID
variable1=request("formulario1")
variable2=request("formulario2")
variable3=request("formulario3")
varID=request("id)
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"
SQL="SELECT * FROM tutabla where ID="&varID&" "
rs.Open SQL, oConn
'con esto actualizamos un registro con los siguiente datos
rs("campo1")=variable1
rs("campo2")=variable2
rs("campo3")=variable3
rs.update
rs.close
oConn.close
%>
Recoger datos de un nuevo registro mediante un formulario. formulario.asp
'Aqui solo necesitamos un formulario que recoja los valore, nombre, precio, detalles, etc
' Y pasamos los valores a la pagina addnew donde se añaden a la base de datos.
<form method="post" action="addnew.asp">
<input type="text" name="formulario1" size="20">
<input type="text" name="formulario2" size="20">
<input type="text" name="formulario3" size="20" >
<input type="submit" value="Enviar" name="enviar">
<input type="reset" value="Restablecer" name="borrar">
Añadir registros a la base de datos. addnew.asp
<%
' con esto recuperramos los datos de un fomulario de la pagina anterior
variable1=request("formulario1")
variable2=request("formulario2")
variable3=request("formulario3")
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"
SQL="SELECT * FROM tutabla "
rs.Open SQL, oConn
'con esto añadimos un registro con los siguiente datos
rs.addnew
rs("campo1")=variable1
rs("campo2")=variable2
rs("campo3")=variable3
rs.update
rs.close
oConn.close
%>
Mas datos
http://aspfacil.com/articulos/verarticulo.asp?id=36 Eliminar registros de la base de datos: borrar.asp
<%
' con esto recuperramos los datos del registro a borrar del la pagina anterior
varID=request("id)
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"
SQL="SELECT * FROM tutabla where ID="&varID&" "
rs.Open SQL, oConn
'con esto eleiminamos el registro
rs.delete
rs.update
rs.close
oConn.close
%>
Mas datos
http://aspfacil.com/articulos/verarticulo.asp?id=36
**CONTINUARA ***
prueba