como hago esto

[mrjhon]

HOLA AMIGOS NECESITO KE UN FORMULARIO ME RECOJA LA FECHA EN LA CUAL FUEN ENVIADO EL FORMULARIO...

ME GUSTARIA KE LO RECOJIERA AUTOMATICAMENTE Y ME LO GUARDARA EN LA BASE DE DATOS..

GRACIAS

[mrjhon]

Una Preguntica Es Posible Recojer Este Dato Para Guardarlo En La Base De Datos ???

Como Seria El Codigo Para Recojerlo Y Se Guarde...?????

[mariano_donati]

La función Date te devuelve la fecha. Now() te devuelve fecha y hora. Y haces el insert con eso.
Saludos!.

[mrjhon]

YO TENGO ESTA FUNCION COMO SERIA EL INSERT ENTONSES
<%=FormatDateTime(Now,1)%>

??

[El_Metallick]

pero puedes penerle el valor por defecto del campo de la base de datos la funcion Date o Now pues... asi automaticamente te lo pone en la base de datos... o por lo menos asi lo vi en alguna oportunidad....saludos

[mrjhon]

HOLA AMIGOS LES CUENTO KE NO HE PODIDO HASER LO KE DESEO
TALVES ME PUEDEN AYUDAR LES DEJARE EL CODIGO CON EL KE TRABAJO Y ASI ME DIGAN DONDE DEBO PONER EL CODIGO PARA KE ME GUARDE LA FECHA AUTOMATICAMENTE EN LA BASE DE DATOS EN EL CAMPO "fecha" ..


<%
Dim BDD ' variable que se encargara de la base de datos
Dim TABLA ' variable que se encarga de la tabla
Dim SQL 'variable que contendra la consulta SQL

'creamos los objetos que manejan la base de datos y la tabla
Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")

'abrimos la base de datos
BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("librovisitas.mdb"))
%>

<%
SQL = "SELECT * FROM formulario ORDER BY fecha DESC;"
%>

<% TABLA.Open SQL, BDD ' hacemos la consulta %>

<%
'ahora recorremos toda la tabla y mostramoslos datos
While NOT TABLA.EOF 'recorre la tabla hasta que EOF sea verdadero
Response.Write "nombre:" & TABLA("nombre") & "<br>"
Response.Write "apellidos:" & TABLA("apellidos") & "<br>"
Response.Write "empresa:" & TABLA("empresa") & "<br>"
Response.Write "telefono:" & TABLA("telefono") & "<br>"
Response.Write "mail:" & TABLA("mail") & "<br>"
Response.Write "comentario:" & TABLA("comentario") & "<br>"
TABLA.MoveNext
Wend

'cerramos todo y liberamos los objetos
TABLA.Close
BDD.Close

Set BDD = Nothing
Set TABLA = Nothing
%>

gracias

[El_Metallick]

Hola mrjhon primero que nada... ese código es para mostrar archivos y no para guardarlos asique no es muy util para ayudarte.... pero en el fondo lo que puedes hacer es lo que te dije... vi algun vez por ahi que al ponerle now como tipo de dato por defecto al campo fecha de la base de datos (desde esta) te agrega la fecha pruebalo y avisas... saludos

------ Editado ------

Bueno en realidad acces lo tiene como ahora pero en el fondo es exactamente lo mismo... slaudos

[mrjhon]

HUY SI METALLICK TENES RAZON ESTE ES PARA MOSTRAR JEEJJE KE DESPISTADO SOY LO KE PASA ES KE HANDO HACIENDO UN MONTON DE COSAS KE MIRA LOS ERRORES KE HAGO JEJEJ..

MIRA ESTE ES EL CODIGO EN EL CUAL KIERO PONER LA FUNCION DE LA FECHA PERO LA VERDAD NO SE COMO SE HACE

<%

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb")&"")

set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "formulario", Conn, 2, 3

RS.AddNew
rs("nombre")=request.form("nombres")
rs("apellidos")=request.form("apellidos")
rs("empresa")=request.form("empresa")
rs("telefono")=request.form("telefono")
rs("mail")=request.form("mail")
rs("fecha")=request.form("fecha")
comentario=replace(request.form("comentario"),chr( 10),"<br>")
rs("comentario")=comentario

RS.Update()
RS.Close
conn.Close
set conn = nothing
set conexion = nothing
%>

ME PUEDE DECIR CONDE Y COMO VA ESTO ES LO UNCO KE ME FALTA PARA COMPLETAR MI TRABAJO..

[sjam7]

solo ponle

rs("fecha")=date()

y listo

[mrjhon]

Ahora Si Amigos Muchas Gracias Ke Haria Sin Ustedes Jeje

Me Volveria Loko Y Por Eso Es Ke Este Foro Es Tan Famoso Hay Muy Buenos Usuarios

[sjam7]

y siempre cual fue lo que usaste?

[El_Metallick]

si al final cual usaste... aunque creo que todas son opciones validas pero de seguro que tienen algo diferente... saludos

[trasgukabi]

es taaaaan fácil: paso nº 1: pulsas bloq. mayus. ¿que sigue escribiendo en mayúsculas? vas al paso 2.
Paso 2º: pulsas bloq. mayus.

es que no comprendo esa manía que tiene con escribir así. lo siento. (en el mundo real, éste sería alguien con serios problemas de oído, fijo!!)

Sé que este mensaje no aporta nada, pero es porque te han dicho ya absolutamente todo lo que se te podía responder.