Foros del Web » Programando para Internet » ASP Clásico »

Tengo unas dudas necesito algunos consejos gracias!!

Estas en el tema de Tengo unas dudas necesito algunos consejos gracias!! en el foro de ASP Clásico en Foros del Web. Necesito realizar una pagina web con un formulario que me recoja un numero de 4 digitos y un texto de 100 caracteres, ahora bien; este ...
  #1 (permalink)  
Antiguo 15/02/2005, 08:21
 
Fecha de Ingreso: febrero-2005
Mensajes: 23
Antigüedad: 19 años, 4 meses
Puntos: 0
Pregunta Tengo unas dudas necesito algunos consejos gracias!!

Necesito realizar una pagina web con un formulario que me recoja un numero de 4 digitos y un texto de 100 caracteres, ahora bien; este numero y este texto se deben guardar en en dos campos respectivos de una base de datos en acceses. La pagina sera alojada en un servidor WEB que esta en una INTRANET. Que necesito para hacerla en ASP?? Un programa o que?? De que forma hago para que se guarde en la base de datos??
  #2 (permalink)  
Antiguo 15/02/2005, 08:52
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
[B]¿Que necesito para hacerla en ASP?[B]

Pues aprender ASP

www.aspfacil.com
www.asptutor.com.ar
www.google.com
  #3 (permalink)  
Antiguo 15/02/2005, 10:09
Avatar de ludovico2000  
Fecha de Ingreso: noviembre-2003
Ubicación: Bizkaia
Mensajes: 1.315
Antigüedad: 20 años, 7 meses
Puntos: 2
Aquí tienes un mini-manual sobre uso de ASP con bases de datos. A mí me ha sido de mucha utilidad:
Código:
Abrir bases de datos:
'Creamos las variables para guardar los datos
Dim conexion,tabla
'Creamos la conexion a la BD
Set conexion=Server.CreateObject("adodb.connection")
'Abrimos la conexión con el driver de access (No es necesario hacer DSN)
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-base.mdb")
'Le decimos que abra la tabla que queremos usar para la base
Set tabla=Server.CreateObject("adodb.recordset")
'hacer la selección de la tabla ordenándola por fecha descendente. Para otro tipo de selecciones, buscar condiciones SQL
ssql = "SELECT * FROM tabla ORDER BY fecha desc;"
'aquí abre la tabla ordenándola
Tabla.Open ssql,Conexion

Mostrar bases de datos:
<table border="0" width="280">
'Hasta que la tabla no acabe:
do while not tabla.eof
'El response.write se usa para escribir código dentro del ASP
'(Todo lo que escribamos no puede llevar comillas dobles, pero sí simples e incluso poner " & chr(34) & ", lo cual escribe " ya que 34 es el ascii de ")
'(El principio del response se define abriendo comillas y para cerrarlo cerrando las
'comillas)
response.write "<tr><td valign=top align=left><font face=Arial size=1 color=#000000><u>De</u>: <b><a href=mailto:" & tabla ('mail') & ">" & tabla ('nombre') & "</a></b></font></td></tr>"
response.write "<tr><td valign=top align=left><font face=Arial size=1 color=#000000><u>Mensaje</u>:<br><b>" & tabla ('comentario') & "</b></font></td></tr>"
'Nos vamos al registro siguiente de la tabla
tabla.movenext
'Hacemos el loop para que siga mostrando los registros que hayan coincidido
loop
'Cerramos la tabla de HTML
response.write "</table>"
'Cerramos la tabla de la base de datos
tabla.close
'Cerramos la conexión a la BD
conexion.close

Meter registros en la BD:
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
Set tabla=Server.CreateObject("adodb.recordset")
'Hay quien dice que hay que poner lo de ,3,3 para que podamos escribir en la BD, pero yo he podido sin ponerlo :pensando: 
Tabla.Open "tabla",Conexion,3,3
'Le decimos a la BD que vamos a meter cosas
tabla.addnew
'Ahora sacamos del formulario lo que vamos a meter y le decimos en qué campos de la tabla vamos a hacerlo
tabla ("titulo") = request.form ("titulo")
tabla ("direccion") = request.form ("direccion")
tabla ("descripcion") = request.form ("descripcion")
tabla ("imagen") = request.form ("imagen")
tabla ("id") = request.form ("id")
tabla ("pass") = request.form ("pass")
'Hacemos que la base se actualice
tabla.update
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close

Borrar registros de la base de datos:
Dim conexion,tabla,ide
'Recogemos de un formulario el campo ID y lo guardamos en una variable
ide = Request.form("id")
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
'Hacemos el SQl para borrar los registros de la BD los cuales el ID sea igual al ID que hemos recogido del formulario
sSQL = "delete * from tabla where nombre like '" & ide & "';"
'Ejecutamos el SQL en la BD
conexion.execute (sSQL)
response.write "Se han borrado todos los mensajes <br><center><a href=# onclick=window.close()>Pulsa aqui para cerrar esta ventana</a></center>"
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close
Y luego, claro, con tu intuición, inspiración, etc, adaptarlo, unirlo, etc para lograr que necesites.

COMPARTIENDO, MEJORAMOS TODOS
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:06.