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

Ayuda con conexion a BD en Brinkster.com

Estas en el tema de Ayuda con conexion a BD en Brinkster.com en el foro de ASP Clásico en Foros del Web. Hola a Todos !! Tengo una pagina en HTM que llama a otra en ASP. La pagina en ASP graba los registros en una base ...
  #1 (permalink)  
Antiguo 12/04/2003, 23:39
 
Fecha de Ingreso: enero-2002
Ubicación: La Rioja
Mensajes: 233
Antigüedad: 22 años, 4 meses
Puntos: 0
Ayuda con conexion a BD en Brinkster.com

Hola a Todos !!

Tengo una pagina en HTM que llama a otra en ASP. La pagina en ASP graba los registros en una base de Datos de Access 2000.

Me da un error en el servidor y no se ve la pagina de respuesta.

No se si el error es en el codigo o en la configuracion que requiere Brinkster. Si el error es en la configuracion. Me podrían indicar los pasos a seguir para dejar funcionando una pagina en asp que graba registros en una BD en Access 2000, en Brinkster.com ?


Le adjunto el codigo de la pagina enviar.asp:

<%@LANGUAGE="VBSCRIPT"%>
<html>

<head>
<title>Confirmación de Saludo</title>
</head>

<body bgcolor="#CFFEDD">
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("ADODB.Connection")
Set Tabla=Server.CreateObject("ADODB.Recordset")
Dim Temp

Conexion.Open "propuestaweb"

Tabla.Open "propuesta",Conexion
Tabla.Close

Temp="Select * From propuesta order by nropro"

Tabla.Open Temp,Conexion,2,3,1

Tabla.movelast
numero=tabla("nropro")+1

Tabla.AddNew
tabla("nropro")=numero
Tabla("fecha")=date
Tabla("titulopro")=Request("titulo")
Tabla("sintesis")=Request("sintesis")
Tabla("beneficios")=Request("beneficios")
Tabla("apenom")=Request("apenom")
Tabla("direccion")=Request("direccion")
Tabla("barrio")=Request("barrio")
Tabla("telefono")=Request("telefono")
Tabla("email")=Request("email")

Tabla.Update

Tabla.Close
Conexion.Close

response.redirect("resultado.htm")
%>
</body>
</html>



Nota:
La conexion se llama propuestaweb
La base de datos se llama propuestaweb
La tabla se llama propuesta

Gracias y Saludossssss
__________________
Víctor Vera
[email protected]
www.licvev.com
  #2 (permalink)  
Antiguo 13/04/2003, 01:01
Avatar de Fr@Nc3$c0  
Fecha de Ingreso: abril-2002
Ubicación: Barcelona (Spain)
Mensajes: 710
Antigüedad: 22 años, 2 meses
Puntos: 1
Hola:

Yo te pongo algo de ejemplo, retocalo un poco y adaptatelo
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%
' primero convertimos en variables los datos rescatados del formulario para introducirlo en una base de datos
DIM nropro, fecha,titulopro, beneficios, apenom, direccion, barrio, telefono, email
nropro = numero
fecha = date
titulopro = Request.Form("titulo")
sintesis = Request.Form("sintesis")
beneficios = Request.Form("beneficios")
apenom = Request.Form("apenom")
direccion = Request.Form("direccion")
barrio = Request.Form("barrio")
telefono = Request.Form("telefono")
email = Request.Form("email")

Dim Conexion, Tabla, SQL ' Variables
Set Conexion = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset") ' RecordSET en RS

Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("DIRECTORIO/BASE.mdb") ' Conexión BD

SQL = " INSERT INTO tabla ( nropro, fecha, titulopro, sintesis, beneficios, apenom, direccion, barrio, telefono, email) INTO values ('"nropro"', '"fecha"', '"titulopro"', '"sintesis"', '"beneficios"', '"apenom"', '"direccion"', '"barrio"', '"telefono"', '"email"') " ' SENTENCIA DE INSERCCIÓN
RS.Open SQL, Conn, 1, 2 ' Opertura


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Para lo del numero crea el campo en la Base de Datos, autonumerica y quitala, cuando se inserten ya se ponen el valor consecutivo...

Revisate un manualillo de conexiones a bases de datos y faqs:

www.aspfacil.com
www.desarrolloweb.com

Salu2!
__________________
Francesc Mula Calleja
Hay mucho por ver todavía...
  #3 (permalink)  
Antiguo 13/04/2003, 05:36
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 4 meses
Puntos: 1
Leete esto:
http://aspfacil.com/articulos/verarticulo.asp?id=22
http://aspfacil.com/articulos/verarticulo.asp?id=36
http://aspfacil.com/articulos/verarticulo.asp?id=38
http://aspfacil.com/articulos/verarticulo.asp?id=65
http://aspfacil.com/articulos/verarticulo.asp?id=65

Esta casi todas las posibilidades a la hora de hacer funcionar paginas ASP + DB, consulta, modificaciom, captura desde formulario, paginacion, paso de parametros, etc

Tambien en las FAQ hay buenos articulos.
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net
  #4 (permalink)  
Antiguo 13/04/2003, 06:43
 
Fecha de Ingreso: enero-2002
Ubicación: La Rioja
Mensajes: 233
Antigüedad: 22 años, 4 meses
Puntos: 0
Gracias Fr@Nc3$c0 y maestro por responder.

Estoy en marcha con la correccion. Luego les cuento.


Saludosssssss
__________________
Víctor Vera
[email protected]
www.licvev.com
  #5 (permalink)  
Antiguo 13/04/2003, 16:46
 
Fecha de Ingreso: enero-2002
Ubicación: La Rioja
Mensajes: 233
Antigüedad: 22 años, 4 meses
Puntos: 0
Para Francesco y todos los que me puedan ayudar

Trate de arreglar la cuestion de la pagina ASP en Brinkster pero no funciona todavia. Me pueden decir exactamente que linea se usa para la conexion?
O si tienen un ejemplo de una pagina ASP que ingrese registros en una BD de Access 2000, que este funcioando, les agradezco que me lo envien.

Esta linea es la que esta actualmente en la pagina que inserta un registro en la BD de Access 2000:

str = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "(..\comprexweb\db\propuestaweb.mdb)"

Saludos a Todos
__________________
Víctor Vera
[email protected]
www.licvev.com
  #6 (permalink)  
Antiguo 13/04/2003, 17:29
Avatar de ElAprendiz  
Fecha de Ingreso: enero-2002
Ubicación: Maipu, Chile
Mensajes: 3.706
Antigüedad: 22 años, 4 meses
Puntos: 2
str = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "(..\db\propuestaweb.mdb)"

suponiendo que la ruta exacta es asi:

www.tuweb.com/db/propuestaweb.mdb
__________________
Manual de ASP Avanzado ;-)
  #7 (permalink)  
Antiguo 13/04/2003, 19:42
Avatar de Fr@Nc3$c0  
Fecha de Ingreso: abril-2002
Ubicación: Barcelona (Spain)
Mensajes: 710
Antigüedad: 22 años, 2 meses
Puntos: 1
La conexión que seguro que funciona es esta:

str = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/prpuestaweb.mdb")

Ya que no es un controlador modernísimo, yo utilizo acces2000 y me inserta contenido de maravilla.

Esta otra:

str = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "(..\db\propuestaweb.mdb)"

también me funciona pero no me ha funcionado con según que cosas.

Salu2!
__________________
Francesc Mula Calleja
Hay mucho por ver todavía...
  #8 (permalink)  
Antiguo 13/04/2003, 19:58
Avatar de Fr@Nc3$c0  
Fecha de Ingreso: abril-2002
Ubicación: Barcelona (Spain)
Mensajes: 710
Antigüedad: 22 años, 2 meses
Puntos: 1
He de rectificar que cuando en cuanto a mi comentario :

str = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/prpuestaweb.mdb")

str = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "(/db/propuestaweb.mdb)"


Ambas funcionan bien, las acabo de probar, la 2ª tiene un driver más actualizado por lo que debería funcionar mejor.

P.D: Las barras / / / han de ser en esta dirección.

Saludos compañeros.
__________________
Francesc Mula Calleja
Hay mucho por ver todavía...
  #9 (permalink)  
Antiguo 13/04/2003, 20:30
 
Fecha de Ingreso: enero-2002
Ubicación: La Rioja
Mensajes: 233
Antigüedad: 22 años, 4 meses
Puntos: 0
Estimado y amable Francesco, perdon por lo incha, pero no lo puedo hacer andar.

Probaste estas conexiones con otras bases de datos ?

Y es un servidor gratuito ?


Saludosssssssss
__________________
Víctor Vera
[email protected]
www.licvev.com
  #10 (permalink)  
Antiguo 13/04/2003, 21:28
Avatar de Fr@Nc3$c0  
Fecha de Ingreso: abril-2002
Ubicación: Barcelona (Spain)
Mensajes: 710
Antigüedad: 22 años, 2 meses
Puntos: 1
Yo tengo servidor de pago, y con otras he utilizado diferentes:

En brinkster o donde tengas el servidor gratuito, tienen cómo conectar a su servidor con varios ejemplos.

Porque no consultas sus ejemplos que te han dado a conocer? a traves del email del alta o por su web.

Indaga y me dices que tal.

P.D: Seguro que no te falla otra cosa? q error te da? si quieres pon codigo.

Saludos
__________________
Francesc Mula Calleja
Hay mucho por ver todavía...
  #11 (permalink)  
Antiguo 14/04/2003, 06:10
 
Fecha de Ingreso: mayo-2002
Mensajes: 197
Antigüedad: 22 años, 1 mes
Puntos: 0
Prueba con esto que te tiene que ir a la perfección:

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

Sólo tienes que cambiar "minombreUser" por tu nombre de usuario en Brinkster y "midb.mdb" por el nombre de tu base de datos.

Saludos.
  #12 (permalink)  
Antiguo 14/04/2003, 07:22
 
Fecha de Ingreso: enero-2002
Ubicación: La Rioja
Mensajes: 233
Antigüedad: 22 años, 4 meses
Puntos: 0
Hola a Todos y gracias a todos por responder.

Aqui les paso el codigo:


<%@LANGUAGE="VBSCRIPT"%>
<html>

<head>
<title>Confirmación de Saludo</title>
</head>

<body bgcolor="#CFFEDD">

<%
DIM nropro, fecha, titulopro, sintesis, beneficios, apenom, direccion,
barrio, telefono, email

Dim Conexion, Tabla, Temp

Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\comprexweb\db\propuestaweb.mdb"))

Conexion.Open "propuestaweb"
Tabla.Open "propuesta",Conexion
Tabla.Close

Temp="Select * From propuesta order by nropro"

Tabla.Open Temp,Conexion,2,3,1

Tabla.movelast
numero=tabla("nropro")+1

Tabla.AddNew
tabla("nropro")=numero
Tabla("fecha")=date
Tabla("titulopro")=Request("titulo")
Tabla("sintesis")=Request("sintesis")
Tabla("beneficios")=Request("beneficios")
Tabla("apenom")=Request("apenom")
Tabla("direccion")=Request("direccion")
Tabla("barrio")=Request("barrio")
Tabla("telefono")=Request("telefono")
Tabla("email")=Request("email")

Tabla.Update

Tabla.Close
Conexion.Close

response.redirect("resultado.htm")
%>
</body>
</html>



SALUDOSSSSSSSS
__________________
Víctor Vera
[email protected]
www.licvev.com
  #13 (permalink)  
Antiguo 15/04/2003, 06:22
 
Fecha de Ingreso: enero-2002
Ubicación: La Rioja
Mensajes: 233
Antigüedad: 22 años, 4 meses
Puntos: 0
Francesco, perdon por todo, pero sigo si poderlo hacer andar.

Si probaste estas conexiones con otras bases de datos, me puedes pasar el codigo....

Probe tambien como me indica choroy, pero naranja.....


Saludosssssssss
__________________
Víctor Vera
[email protected]
www.licvev.com
  #14 (permalink)  
Antiguo 15/04/2003, 06:29
 
Fecha de Ingreso: enero-2002
Ubicación: La Rioja
Mensajes: 233
Antigüedad: 22 años, 4 meses
Puntos: 0
Francesco, me olvide de preguntarte donde estan los ejemplos de conexion en Brinkster; que no los puedo encontrar.

Saludosssssssss
__________________
Víctor Vera
[email protected]
www.licvev.com
  #15 (permalink)  
Antiguo 15/04/2003, 07:19
Avatar de Fr@Nc3$c0  
Fecha de Ingreso: abril-2002
Ubicación: Barcelona (Spain)
Mensajes: 710
Antigüedad: 22 años, 2 meses
Puntos: 1
Veamos....

1. Si utilizas el método UPDATE del recordset, no cal que hagas variables, crea variable únicamente de la conexion.
2. La conexión de la base de datos te sobran unos parentesis, observa y te he puesto un driver más moderno. También debes poner dónde está la BD desde la raiz o dónde se encuentre éste, ejemplo:
www.tudominio.com y tienes que tener las Bases de Datos en BD.
Tendrías que colocar en el path de la conexión ("BD/tubase.mdb")
3. Te faltaba crear el recordset de "tabla"
4. Al llamar los datos del formulario anterior se hace "Request.Form("CAMPO")

<html><head>

<title>Confirmación de Saludo</title>
<meta name="author" content=" TU NOMBRE ">
</head>

<body bgcolor="#CFFEDD">

<%
Dim Conn, Tabla, Temp, numero

Set Conn = Server.CreateObject("ADODB.Connection")
set Tabla = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/propuestaweb.mdb")
Temp = " Select * From propuesta order by nropro "

Tabla.Open Temp, Conn, 1, 3

numero = tabla("nropro") + 1

Tabla.AddNew
tabla("nropro") = numero
Tabla("fecha") = date
Tabla("titulopro") = Request.Form("titulo")
Tabla("sintesis") = Request.Form("sintesis")
Tabla("beneficios") = Request.Form("beneficios")
Tabla("apenom") = Request.Form("apenom")
Tabla("direccion") = Request.Form("direccion")
Tabla("barrio") = Request.Form("barrio")
Tabla("telefono") = Request.Form("telefono")
Tabla("email") = Request.Form("email")
Tabla.Update

Tabla.Close
Set Tabla = nothing
Conn.Close
Set Conn = nothing

response.redirect("resultado.htm")
%>
</body>
</html>


Prueba con esto y dime algo, retoca o consulta lo que creas necesario.
Creo que con esto iria bien.


Saludos.
__________________
Francesc Mula Calleja
Hay mucho por ver todavía...
  #16 (permalink)  
Antiguo 15/04/2003, 13:37
 
Fecha de Ingreso: enero-2002
Ubicación: La Rioja
Mensajes: 233
Antigüedad: 22 años, 4 meses
Puntos: 0
GRACIAS, GRACIAS Y GRACIAS FRANCESCO.

EL CODIGO FUNCIONA BIEN !!!!!!!

PERO, UNA PREGUNTA :

COMO HACES PARA NO UTILIZAS VARIABLES Y CARGAR LA BD ?

ESTA MUY BUENO, PERO NO LO ENTIENDO. ME PUEDES EXPLICAR ?



GRACIAS, GRACIAS Y GRACIAS DE NUEVO. Y PERDON POR LA MOLESTIA.

SALUDOSSSSSSSSSSSSSS
__________________
Víctor Vera
[email protected]
www.licvev.com
  #17 (permalink)  
Antiguo 15/04/2003, 14:15
Avatar de Fr@Nc3$c0  
Fecha de Ingreso: abril-2002
Ubicación: Barcelona (Spain)
Mensajes: 710
Antigüedad: 22 años, 2 meses
Puntos: 1
No hay de qué, sólo ayudo lo que me gustaría que me ayudaran a mi .

Bien, no he utilizado variables porque he dado el valor al campo de la tabla directamente, en cambio, PODRÍA haberlo hecho si hubiera hecho un paso por el medio:

Dim titulo
titulo = Request.Form("titulo")

entonces a la hora de grabar los datos en la base de datos, en esta variable hubiera utilizado:

Tabla("titulopro") = titulo

Comprendes? acá donde esta titulo puedes meter directamente la variable, entonces te la ahorras. Son estos casos lo cual puedes librarte, porque el "REQUEST.FORM" ya tiene un valor asignado, no cal meterlo en una variable:

Tabla("titulopro") = Request.Form("titulo")


Espero que lo entiendas.

Sin embargo, te recomiendo que te leas algunos manuales de conexión con bases de datos y de recordset:

http://www.asptutor.com/asp/vart.asp?id=5

http://www.aspfacil.com/articulos/040401.asp

Éstos por ejemplo, suerte.
__________________
Francesc Mula Calleja
Hay mucho por ver todavía...
  #18 (permalink)  
Antiguo 16/04/2003, 18:22
 
Fecha de Ingreso: enero-2002
Ubicación: La Rioja
Mensajes: 233
Antigüedad: 22 años, 4 meses
Puntos: 0
Muy Bien !!!!

Si, lo entiendo......

Gracias de nuevo y saludossssssss
__________________
Víctor Vera
[email protected]
www.licvev.com
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:53.