Insertar Bases de Datos

Vanexxa · #1 (**permalink**) 09/01/2004, 15:21

Hola??

soy nueva en esto alguien podria decirme como puedo hacer una paginita que me permita ir capturando datos que caigan en una base y posteriormente poder ver esa base en mi maquina

porfas mil gracias

pdjazr · #2 (**permalink**) 09/01/2004, 16:13

Puedes usar el access o Mysql o SqlServer para almacenar tu informacion...y para hacer tu pagina puedes usar asp o php......

Vanexxa · #3 (**permalink**) 09/01/2004, 17:32

Gracias pero como ??? trate creando una base o tabla en access y luego la coloco en mi carpeta virtual y si la veo pero como la se que la información que camputo esta callendo en la base
puede que mi pregunta sea muy logica pero empiezo en esto espero puedan ayudarme

pdjazr · #4 (**permalink**) 09/01/2004, 17:52

Mira te envio un formulario que graba datos en access...lo revisas y de seguro lo lograras...saludos

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<META content="text/html; charset=unicode" http-equiv=Content-Type>

<BODY bgcolor="#A5D2ED">


<%@ Language=VBScript %>
<%

If Request.Form("Grabar")<>"" Then 'Formulario enviado

Dim oConn
Dim oRS
Dim sSQL
Dim sColor
DIM nombre
DIM comentario
DIM longitud
DIM posi

nombre=Request.Form("nombre")
comentario=Request.Form("comentario")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Mibase.mdb"))

longitud=len(trim(comentario))

if longitud<250 then

'Registra los comentarios

fec=now()

sSQL = "INSERT INTO MiTabla(NOMBRE,FECHA,COMENTARIO) values( '"+nombre+"',#" & fec & "# ,'"+comentario+"')"

Set oRS = oConn.Execute(sSQL)

response.write("Comentario adicionado con exito...")
Else
response.write("Comentario muy largo...deber ser menor a 250 caracteres")

end if

' Carga el formulario primero
Else

'Formulario no enviado

%>
<FORM name="form1" METHOD="post" action="comentarios.asp">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber3" width="760" height="98">
<tr>
<td width="5379" height="116" bgcolor="a5d2ed"> <p> <b><font face="Comic Sans MS" color="#FFFFFF" size="1">Nombre:</font><font size="1">
<input type="text" name="nombre" size="50">
</font></b><font size="1"><b>     </b></font></p>
<p> <b><font face="Comic Sans MS" size="1" color="#FFFFFF">Comentario:</font></b></p>
<p>
<textarea name="comentario" cols="80" rows="8" id="comentario"></textarea>
</p>
<p> <font size="1"><b>      &n bsp;       &nbs p;                 &n bsp;       &nbs p;                 &n bsp;       &nbs p;    
<input id="button1" name="Grabar" type="submit" value="Grabar Comentario">
    
<input id="button2" name="Cancelar" type="submit" value="Cancelar">
</b></font></p>
<p> <font size="1"><b> </b></font> </p></tr>
</table>

<div align="left"> </div>

</FORM>

<% end if %>

</BODY>
</HTML>