Comunidad de diseño web y desarrollo en internet online

Pasar datos a una base de datos

Citar            
MensajeEscrito el 20 Jun 2005 11:11 am
He creado un formulario y lo que pretendo es que cuando alguien lo rellene, los datos se guarden en una base de datos que he creado el código es el siguiente:

<%
Dim con, rs, sql, datos

datos=Server.MapPath ("Concurso_Ocio.mdb")

Set con=Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"

sql = "INSERT INTO Inscritos (Nombre, Edad, DNI, Poblacion, Domicilio, CP, Otros_participantes, Universidad, Telefono1, Telefono2, E-mail) VALUES ('request.form('nombre')', 'request.form('edad')', 'request.form('DNI')', 'request.form('poblacion')', 'request.form('domicilio'', 'request.form('CP')', 'request.form('otros')', 'request.form('instituto')', 'request.form('telefono1')', 'request.form('telefono2')', request.form('mail')');"

Set rs= con.execute(sql)

On Error Resume Next

If Err <> 0 Then
Response.write "Ocurrio un error durante el proceso, los datos no fueron insertados"
Else
Response.write "Gracias por introducir tus datos"
End if

rs.close
Set rs=Nothing
con.close
Set con=Nothing
%>

Pues bien, cuando ejecuto la página me da un error diciendo que la base de datos está abierta en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos. Y la verdad es que no entiendo porqué dice esto. Si me pudierais ayudar... Gracias

Por joseeduardo

4 de clabLevel



 

msie
Citar            
MensajeEscrito el 20 Jun 2005 03:11 pm
Una pregunta? cuando haces esto tienes tu BD abierta???? la estas viendo en Access al mismo tiempo???

La otra es que la abras en modo compartido...

PD. Porque mejor no usas PHP y MySql, ASP ya está casí muerto y Access no es muy seguro que digamos, y no es tan implementado para aplicaciones web...

Por Aoyama

BOFH

6224 de clabLevel

6 tutoriales
12 articulos

Genero:Masculino   Anime Bloggers Bastard Operators From Hell

Webdesigner & Developer, en mis ratos libres bebo café por litros.

firefox
Citar            
MensajeEscrito el 20 Jun 2005 03:17 pm

joseeduardo escribió:


<%
Dim con, rs, sql, datos

datos=Server.MapPath ("Concurso_Ocio.mdb")

Set con=Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"

sql = "INSERT INTO Inscritos (Nombre, Edad, DNI, Poblacion, Domicilio, CP, Otros_participantes, Universidad, Telefono1, Telefono2, E-mail) VALUES ('request.form('nombre')', 'request.form('edad')', 'request.form('DNI')', 'request.form('poblacion')', 'request.form('domicilio'', 'request.form('CP')', 'request.form('otros')', 'request.form('instituto')', 'request.form('telefono1')', 'request.form('telefono2')', request.form('mail')');"

Set rs= con.execute(sql)

On Error Resume Next

If Err <> 0 Then
Response.write "Ocurrio un error durante el proceso, los datos no fueron insertados"
Else
Response.write "Gracias por introducir tus datos"
End if

rs.close
Set rs=Nothing
con.close
Set con=Nothing
%>



sql = "INSERT INTO Inscritos (Nombre, Edad, DNI, Poblacion, Domicilio, CP, Otros_participantes, Universidad, Telefono1, Telefono2, E-mail) VALUES ('request.form('nombre')', 'request.form('edad')', 'request.form('DNI')', 'request.form('poblacion')', 'request.form('domicilio'', 'request.form('CP')', 'request.form('otros')', 'request.form('instituto')', '" & request.form('telefono1') &"', 'request.form('telefono2')', request.form('mail')');"

Tu logica te dara la respuesta

Por jhony192

791 de clabLevel

1 tutorial

Genero:Masculino  

Just Another Programmer

firefox

 

Cristalab BabyBlue v4 + V4 © 2011 Cristalab
Powered by ClabEngines v4, HTML5, love and ponies.