Ver Mensaje Individual
  #4 (permalink)  
Antiguo 15/01/2008, 13:07
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 1 mes
Puntos: 88
Re: Formulario con asp para rellenar tablas de access???

un ejemplo Jordift
Código PHP:
<body>
<%
'preguntamos si se envio el formulario
if request.ServerVariables("REQUEST_METHOD")="post" then
    
    '
en caso afirmativorecojemos las variables de los textbox
    nombre
=request.Form("texto1")
    
Apellido=request.Form("texto2")
    
email=request.Form("texto3")
    
    
'mostramos los datos
    response.Write "Tu apelligo: " & apellido & "<br />"
    response.Write "Tu nombre: " & nombre & "<br />"
    response.Write "Tu apelligo: " & apellido & "<br />"
    
    '
declaramos las variables
    Dim conexion
ins_query
    
'creamos la conexion a base de datos
    set conexion = server.CreateObject("ADODB.Connection")
    '
creamos la cadena de conexion
    StrCxn 
"PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
    
StrCxn StrCxn server.mappath("./basededatos.mdb;")
    
'en dado caso que tengas contraseña para abrir la base
    '
anexa los datos aki
'    StrCxn = StrCxn & "USER ID=usuario;PASSWORD=clave;"

    '
ya teniendo todos los datosabrimos la conexion
    conexion
.open strcxn
    
'ESTRUCTURACION DE LA CADENA DE INSERCION
    '
especificamos los campos en donde insertaremos datos
    campos
="nombre,apellido,email"
    'concatenamos las variables, para formar la cadena de insercion
    ins_query = "INSERT INTO tabla"&_
            "("& campos &")" &_
            "values ('"& nombre &"','"& apellido &"','"& email &"',)"
    '
CUANDO SOLO ES INSERCIONNO REGRESA PUNTERO
    
'POR LO CUAL NO HAY NECESIDAD DE CREAR UN RECORDSET(RS)
    conexion.execute(query)
    '
preguntamos si no se creo error
    
if Err=0 then
        response
.Write "Insercion Correcta"
    
else
        
response.Write "Error en la insercion<br />" &_
        
"cadena :"ins_query "<br />" &_
        Err 
&"<br />"
    
end if
else
%>
<
form action="prueba.asp" method="post">
<
label>Nombre: <input type="text" name="texto1" /></label>
<
label>Apellido: <input type="text" name="texto2" /></label>
<
label>Email: <input type="text" name="texto1" /></label>
</
form>
<%
end if%>
</
body
guardalo con el nombre de prueba.asp, para esto debes tener una base de datos que se llame....
haber como seria bueno.....
Cita:
basededatos.mdb
con eso servira, dentro de esta base, crea una tabla con los campos
Cita:
nombre, apellido, email
dejalos en forma de texto, para motivos de prueba

has las pruebas que necesites, y comenta lo que no entiendas, te parece

__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra