Ortizmania.com - Mundo de la Informática

SOPORTE:

v3.0	Por muy lejos que el espíritu vaya, nunca irá más lejos que el corazón - Confucio

DIAS TRANSCURRIDOS: 248

DIAS POR TRANSCURRIR: 116

3139 DIAS ONLINE

..:: SERVICIOS ::..

» DESCRIPCIÓN

» TECNOLOGÍAS

» DESARROLLOS

Tienda Virtual

Java - Ticker

Palm

Sistema Gym

» PRECIOS

» [H O S T I N G]

» BUSCADOR DE DOMINIOS

» BUSCADOR WEB

» CONTADOR DE VISITAS

» GENERADOR DE META TAGS

» CONTÁCTANOS

..:: ENTRADA ::..

PASSWORD

Iniciar sesión automaticamente

OLVIDASTE TU PASSWORD

¡ REGISTRATE !

..:: SOPORTE ONLINE ::..

ASP
JAVA
JAVASCRIPT
JSP
PHP
SQL
VISUAL BASIC

! SOPORTE TÉCNICO AQUÍ !

..:: CONECTADOS ::..

Ortizmania.com

¡¡¡ Bienvenido !!!

Usuarios Online: 4

Registrados Online: 0

Enviale un mensaje ...

... a un usuario online.

Ortizmania.com

¡ Registrate !

..:: VOTA ::..

¿ CREES QUE ORTIZMANIA.COM TE AYUDA A RESOLVER TUS DUDAS DE DESARROLLO EN LAS DIFERENTES TECNOLOGIAS ?
			SI
			NO
			POCO

Se ve mejor con:
IE6+
NS6+

ARTÍCULO

Por: Ignacio Velazquez [ ignacio_velazquez@msn.com ]

Fecha: 8/1/2002 - Votación: Bueno

¿Han visto sites en la red que tienen servicios de noticias, o tal vez recetas de cocina, etc.?, ¿se han preguntado como es que pueden manejar este tipo de informacion sin tener que hacer una pagina web para cada una?. La respuesta es utilizar una base de datos y paginas de contenido dinamico. Bueno, pero como para todo existen varias formas de hacer las cosas, les voy a tratar de explicar con una base de datos de Access 2000 y con paginas ASP, la forma que a mi ver es la mas sencilla.

Vamos a crear una base de datos que tendra una tabla llamada Contactos con los siguientes campos:

Campo Tipo Longitud
Id Auto -
Nombre Texto 60
Email Texto 20
Pais Texto 20

Ya con nuestra Base hecha, la parte mas importante es saber como conectarnos a ella, y el metodo que yo utilizo es este:

' Creamos la conexión a la base de datos sin DSN
set con = Server.CreateObject("ADODB.Connection")

'le pasamos el driver a utilizar y la ubicacion de la base
strcon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/base.mdb") & ";"

'y por utlimo le decimos que abra la conexion
con.Open strcon

Esto es importante que lo entendamos, porque para cada operacion que realicemos, vamos a utilizarla. Ahora vamos a ver como seria una forma para dar de alta registros, digamos que nuestra pagina html tiene el siguiente formulario:

<center>
<form method="POST" action="altas.asp">
<table>
<tr>
<td>Nombre </td>
<td><input type=text name="nombre" size=40></td>
</tr>
<tr>
<td>Email </td>
<td><input type=text name= "mail" size=40></td>
</tr>
<tr>
<td>Pais </td>
<td><input type=text name= "pais" size=40></td>
</tr>
</table>
<input type="submit" value="Enviar">
</form>
</center>

Este es el codigo de la pagina altas.asp que es la que se va a encargar de insertar la informacion que tenga el formulario.

<%
'**** altas.asp ****

' Recogemos los valores del formulario
dim varnombre, varemail, varpais

varnombre = Request.Form("nombre")
varemail = Request.Form("mail")
varpais = Request.Form("pais")

dim con, rs

' Creamos la conexión a la base de datos sin DSN
set con = Server.CreateObject("ADODB.Connection")

'le pasamos el driver a utilizar y la ubicacion de la base
strcon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base.mdb") & ";"

'y por utlimo le decimos que abra la conexion
con.Open strcon

'Creamos un recordset
txtsql = "Select * from Contactos"
set rs = Con.execute (txtsql)

'esta instruccion es la que va a hacer el insert de nuestros valores en la BD
insertar = "INSERT into Contactos (Nombre, Email, Pais) values ('"& varnombre &"','"& varemail &"','"& varpais &"')"
Con.execute (insertar)

'Terminamos e imprimimos un mensaje
Response.Write "<body><p><b>Alta exitosa!!!</b></p>"
Response.Write "<p>Los datos que se grabaron son : </p>"
Response.Write "<b>Nombre: </b> "& varnombre & "<br>"
Response.Write "<b>Email: </b> "& varemail & "<br>"
Response.Write "<b>Login: </b> "& varpais & "<br>"
Response.Write "<p>Gracias !!!</p> "

'liberamos la memoria cerrando la conexion y el recordset
rs.Close
Con.Close
set rs = Nothing
set Con = Nothing
%>

Esto es referente a las altas, pero, ¿como le hacemos ahora para poder ver lo que capturamos? Pues bien, en un momento mas lo veremos. En la misma pagina del formulario o donde queramos ponemos una liga hacia la pagina de nuestra consulta, de momento solo pongo una consulta sencilla que traiga todos los registros, si queremos una busqueda mas avanzada la veremos despues, ya que de momento esto es solo lo basico. La liga seria asi: <a href="consulta.asp">Consulta la BD<a> y nuestra pagina ASP lleva este codigo:

<%
'**** consulta.asp ****

dim con,rs

' Creamos la conexión a la base de datos sin DSN
set con = Server.CreateObject("ADODB.Connection")

'le pasamos el driver a utilizar y la ubicacion de la base
strcon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base.mdb") & ";"

'y por utlimo le decimos que abra la conexion
con.Open strcon

'Ejecuta un sentencia SQL de consulta
txtsql = "Select * from contactos"
Set rs = con.Execute(txtsql)
%>
<body>
<h2>Resultado de la consulta</h2>
<p>Aqui tenemos a todos nuestros contactos.</p>
<center>
<table border=1>
<tr>
<th>Nombre</th>
<th>Email</th>
<th>Pais</th>
</tr>
<% 'iniciamos un ciclo para el vaciado de los registros
Do while not rs.EOF
%>
<tr>
<td>
<%= rs("Nombre")%>
</td>
<td>
<%= rs("Email")%>
</td>
<td>
<%= rs("Pais")%>
</td>
</tr>
<%
'nos movemos al siguiente registro
rs.MoveNext
'y regresamos a nuestro ciclo
Loop

'al terminaro de vaciar datos liberamos memoria
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>
</table>
</center>
</body>
</html>

En la proxima parte de este articulo veremos como borrar y actualizar registros.

VOTA POR ESTE ARTÍCULO:


	Bueno
	Regular
	Malo

NO OLVIDES NUESTRA PAGINA

..:: MENU ::..

» COMENTARIOS

» NOTICIAS

» PANEL DE MENSAJES

» PREMIOS

» PUBLICIDAD

» REPORTE DE VIRUS

» SHORTCUT-MANIA

» [TABLA CODIGOS ASCII]

» LOS ORTIZ

UNETE A LA RED ORTIZ, CONTACTA AL webmaster

..:: ALGUNOS FOROS ::..

	Desarrollo de ASP
	Desarrollo para Palm
	Desarrollo Visual Basic
	Programación con HTML
	Programación con Javascript
	Programación con SQL

..:: ULTIMOS VIRUS ::..

[1/5/2004]

Win32.Worm. Sasser.{A-C}

[19/4/2004]

[15/4/2004]

[6/4/2004]

[6/4/2004]

[5/4/2004]

[4/4/2004]

[4/4/2004]

[29/3/2004]

[29/3/2004]

[ Leer mas virus... ]

..:: HERRAMIENTAS ::..

	» Herramienta anti Dupator
	» Herramienta anti Msblast
	» Herramienta anti Win32.Worm.Welchia.A
	» Herramienta anti Win32.Worm.Welchia.B
	» Herramienta anti BugBear
	» Herramienta anti Win32.Ivrol.A@mm
	» Herramienta anti Bride

[ Buscar ]

..:: ARTÍCULOS ::..
SI DESEAS COLABORAR CON NOSOTROS Y PUBLICAR ALGÚN ARTÍCULO O NOTICIA, ESCRIBE AL WEBMASTER.
LOS 5 MEJORES ARTICULOS
	» Historia de Javascript
	» Metodo GET y POST
	» Personalizando los Scroll Bar del navegador
	» Registros al estilo hotmail.
	» ¿ Que es PHP y su Historia ?

..:: WEBS AMIGAS ::..

CONOCE LAS WEBS AMIGAS ASOCIADAS A ORTIZMANIA.COM

ENVIA ESTA PAGINA A UN AMIGO

Comentarios, sugerencias o dudas dirigirse al WEBMASTER

Tambien dirigete a: WEBMASTER2 ( solo para soporte ).

Ultima actualización 12/12/2006 10:31:00 AM