Como Conecto Mi Obdc Para Ke Me Reciba Los Datos

mrjhon · #1 (**permalink**) 09/07/2005, 09:34

HOLA AMIGOS ESTE ES EL FORMULARIO KE NECESITO KE ME ENVIE LOS DATOS A UNA BASE DE DATOS KE YA TENGO CONECTADA EN LA OBDC LA CUAL ES LLAMADA "formu" Y A LA TABLA KE KIERO KE LLEGUEN LOS DATOS SE LLAMA "Formularios" y LA PAGINA KE RECIVE LOS DATOS SE LLAMA ENVIADO.ASP

BUENO ESTE EL EL CODIGO DEL FORMULARIO

<html>
<head>
<title>FORMULARIO</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<p align="center">

<p align="center">
<div align="center"><strong>FORMULARIO</strong> </div>

<p><table bordercolor="#COCOCO" bgcolor="#F9E4B9" align="center" width="500" border="1" cellspacing="1" cellpadding="2">
<tr>
<td align=center>
Por favor ingrese todos los datos solicitados en este formulario.<br>
Para luego ser contactado por nosotros.
</td>
</tr>
<tr>
<td align="center">
La información enviada por este formulario sera solo utilizada por:<br> <b>Marketing Integral Ltda.</b>
</td>
</tr>

</table>
<table bgcolor="#F9E4B9" bordercolor="cococo" align="center" width="500" border="1" cellspacing="1" cellpadding="2">
<form method="POST" action="enviado.asp">
<tr>
<td height="25" bgcolor="#236C94"><font color="#FFFFFF"><b>Nombres:</b></font></td>
<td><input type="text" name="nombres"></td>
</tr>
<tr>
<td bgcolor="#236C94"><font color="#FFFFFF"><b>Apellidos:</b></font></td>
<td><input type="text" name="apellidos"></td>
</tr>
<tr>
<td bgcolor="#236C94"><font color="#FFFFFF"><b>Empresa:</b></font></td>
<td><input type="text" name="empresa"></td>
</tr>
<tr>
<td bgcolor="#236C94"><font color="#FFFFFF"><b>Teléfono:</b></font></td>
<td><input type="text" name="telefono"></td>
</tr>
<tr>
<td bgcolor="#236C94"><font color="#FFFFFF"><b>Email:</b></font></td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td bgcolor="#236C94"><b><font color="#FFFFFF">Detalles Tipo de
Servicio:</font></b></td>
<td><textarea name="detalles_tipo_servicio" cols="20" rows="8"></textarea></td>
</tr>
<tr>
<td><input type="submit" name="Enviar" value="Enviar"></td>
<td><input type="reset" name="Borrar" value="Borrar"></td>
</tr>
</table>
</form>
</body>

</html>

BUENO AMIGOS LADUDA ES COMO BIENE EL CODIGO DE LA OTRA PAGINA LA CUAL RECIVE LOS DATOS KE EL FOMULARIO MANDA ..

`POR FAVOR MIRENLO Y ME AYUDAN....

DEANTEMANO GRACIAS..

Elbrinner · #2 (**permalink**) 09/07/2005, 09:43

Solo tienes que hacer una consulta INSERT INTRO seguro que encuentras en el foro. Baje un manual de asp que eso si aprende en minutos...

tienes que hacer la conexion antes de hacer la consulta

un saludo

orharo2003 · #3 (**permalink**) 09/07/2005, 09:45

Chécate este site:

http://www.connectionstrings.com

Cortesia Trasgukabi.

El_Metallick · #4 (**permalink**) 09/07/2005, 11:37

manual basico de ASP.... http://www.asptutor.com... saludos

mrjhon · #5 (**permalink**) 09/07/2005, 11:46

disculpen la brutalidad pero como se hase un insert intro

mariano_donati · #6 (**permalink**) 09/07/2005, 11:52

Bajate los manuales, de todas formas, no veo porque no contestar esa simple pregunta:

"INSERT INTO tabla (campo1, campo2....campoN) VALUES (valor1, valor2.....valorN)"

Esa sería la sentencia SQL necesesaria. Campo1, campo2... campoN, son los campos en tu base de datos a los cuales le asignas valor1, valor2.... valorN, para hacer la inserción de un registro.
Antes de eso necesitas abrir la conexión a tu base de datos.
De todas formas, es mejor que leas los manuales, es más educativo y le vas a sacar más rédito en un futuro.
Saludos!.

mrjhon · #7 (**permalink**) 09/07/2005, 12:27

YA TENGO ALGUNOS MANUALES Y TUTORIALES

Y LA VERDAD KE ES KE TENGO ESTO PERO NO ME KIERE ENVIAR LOS ARCHIVOS A LA BASE DE DATOS Y ALGO MAS YA TENGO LA BASE DE DATOS CONECTADA AL ODBC Y ALGO MAS LA ESTOY TRABAJANDO DES DE PWS DEL WIN98SE...

ESTE ES EL CODIGO KE TENGO EL DE ENVIADO.ASP

<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<title>Celular1</title>
</head>
<body bgcolor="#A0C0C0">

<font color="#000000" size="3" ><b>Gracias por registrarse, tus datos fueron enviados con exito</b></font>

</body>
</html>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\dirdb\librovisitas.mdb"))
Conn.Open "Libro"
set rs=createobject("ADODB.Recordset")
rs.open "formularios"
rs.addnew
rs("nombres")=request.form("nombres")
rs("apellidos")=request.form("apellidos")
rs("empresa")=request.form("empresa")
rs("telefono")=request.form("telefono")
rs("mail")=request.form("mail")
rs("comentario")=request.form("comentario")
comentarios=replace(request.form("comentarios"),ch r(10),"<br>")
rs("comentarios")=comentarios
rs.close
conn.close
set rs=nothing
set conn=nothing
%>

Y LA COSA ES KE NO ME LOS MANDA A LA BASE DE DATOS Y YA TENGO TODAS LAS TABLAS HECHAS Y LA BASE DE DATOS CONECTADA AL ODBC TONSES NO SE POR KE NO ME FUNCIONA ..

SIN EMBARGO SIGO BAJANDO TUTORIALES Y EJEMPLE DE ASPTUTOR.

GRACIAS POR LA AYUDA Y POR ENTENDERME.

Elbrinner · #8 (**permalink**) 09/07/2005, 13:10

Una pregunta para contestar su duda, donde esta el insert intro?

La variable se guarda con nombres normales
tu haces eso
rs("apellidos")=request.form("apellidos")
tiene que ser
apellidos=request.form("apellidos")

te falta casi nada.
un saludo

mariano_donati · #9 (**permalink**) 09/07/2005, 13:29

no, no... estamos confundiendo. El INSERT INTO estás haciendo la inserción de registros mediante una sentencia SQL. De la forma que vos estás haciendo la inserción de registros es a través del objeto RecordSet, con lo cual no necesitas ninguna sentencia SQL. Ahí lo que te falta es guardar los cambios del RecordSet en la base de datos, es decir, le estás asignando valores a los respectivos campos, pero nunca los guardas en la fuente de datos. Hace falta agregar antes de RS.Close(), RS.Update(). Así te quedaría el código:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\dirdb\librovisitas.mdb"))
Conn.Open "Libro"
set rs=createobject("ADODB.Recordset")
rs.open "formularios"
rs.addnew
rs("nombres")=request.form("nombres")
rs("apellidos")=request.form("apellidos")
rs("empresa")=request.form("empresa")
rs("telefono")=request.form("telefono")
rs("mail")=request.form("mail")
rs("comentario")=request.form("comentario")
comentarios=replace(request.form("comentarios"),ch r(10),"<br>")
rs("comentarios")=comentarios
rs.Update()
rs.close
conn.close
set rs=nothing
set conn=nothing

Y adelantandome un poco, si haces eso seguramente te dará error que el RecordSet actual no permite actualizaciones, esto es así por el tipo de bloqueo que tiene el RS por defecto, el cual solo te permite leer registros, y no actualizarlos, modificarlos, borrarlos, o insertar nuevos. Para que no te pase eso cambia la linea en donde abrís el RS por esta:

rs.Open "formularios", Conn, 1, 3.

Cuando abrís un RS, hay que indicarle que conexión vas a utilizar (segundo parametro). El cuarto parametro, también marcado en negrita, es el tipo de bloqueo que debes usar para modificar, borrar, actualizar o insertar registros.
Además, esta linea Conn.Open "Libro" es innecesaria. A la conexión le tienes que pasar como argumento el Driver que se utiliza para conectarse, y luego le pasas el Path en donde está ubicada tu base de datos.
Una salvedad, supongo que cuando haces rs.Open "formularios", se supone que "formularios" es la tabla en donde deseas realizar la inserción de registros.
Espero que te funcione.
Saludos.

Elbrinner · #10 (**permalink**) 09/07/2005, 14:37

No sabia que se podia hacer asi.
gracia mariano_donati

un saludo

mariano_donati · #11 (**permalink**) 09/07/2005, 14:43

Si, además de poder hacer inserción de registros, también se puede hacer actualización y borrado.
Saludos!.

mrjhon · #12 (**permalink**) 09/07/2005, 14:58

hola

DE NUEVO NECESITO LA AYUDA DE USTEDES MIREN OTRA FORMA DE HASERLA PERO ME SACA ERROR EN ESTA LINEA SABEN POR KE

Set insertar = DB.Execute(Insertar)

AHY LES DEJO EL CODIGO PARA KE ME AYUDEN A RESOLVERLO
__________________________________________________ _______________________

<%@ LANGUAGE="VBSCRIPT" %>

<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<title>Celular1</title>
</head>
<body bgcolor="#A0C0C0">

<font color="#000000" size="3" ><b>Gracias por registrarse, tus datos fueron enviados con exito</b></font>
<%
nombres=request.form("nombres")
apellidosi=request.form("apellidos")
telefono=request.form("telefono")
empresa=request.form("empresa")
mail=request.form("mail")
comentario=request.form("comentario")
%>

<%
Set DB=Server.CreateObject("ADODB.Connection")
DB.Open "Libro"
Insertar = "INSERT INTO formulario (nombres,apellidos,telefono,empresa,mail,comentari o)"
Insertar = Insertar & "VALUES ('" & nombres & "','" & apellidos & "','" & telefono & "','" & empresa & "','" & mail & "','" & comentario & ")'"
Set insertar = DB.Execute(Insertar)
DB.Close
%>

</body>
</html>

Elbrinner · #13 (**permalink**) 09/07/2005, 15:05

pero ya tenias el codigo bien no? Mire la explicacion de mariano_donati

No se que linea te dio el fallo pero tiene que saber q el campo numerico solo lleva comillas normales.

ejemplo:

Insertar = "INSERT INTO formulario (nombres,apellidos,telefono,empresa,mail,comentari o)"
Insertar = Insertar & "VALUES ('" & nombres & "','" & apellidos & "'," & telefono & ",'" & empresa & "','" & mail & "','" & comentario & ")'"

mrjhon · #14 (**permalink**) 09/07/2005, 15:12

hola

DE NUEVO NECESITO LA AYUDA DE USTEDES MIREN OTRA FORMA DE HASERLA PERO ME SACA ERROR EN ESTA LINEA SABEN POR KE

ESTÁ ME DIO EL FALLO

Set insertar = DB.Execute(Insertar)

Y KE SIGNIFICA ESTO

Y adelantandome un poco, si haces eso seguramente te dará error que el RecordSet actual no permite actualizaciones, esto es así por el tipo de bloqueo que tiene el RS por defecto, el cual solo te permite leer registros, y no actualizarlos, modificarlos, borrarlos, o insertar nuevos. Para que no te pase eso cambia la linea en donde abrís el RS por esta:

rs.Open "formularios", Conn, 1, 3.

LOSIENTO SOY MUY NUEVO EN ESTO

mrjhon · #15 (**permalink**) 09/07/2005, 15:29

Y ASI TAMPOKO ME DA

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Libro
rs.open "formularios"
rs.addnew
rs("nombres")=request.form("nombres")
rs("apellidos")=request.form("apellidos")
rs("empresa")=request.form("empresa")
rs("telefono")=request.form("telefono")
rs("mail")=request.form("mail")
rs("comentario")=request.form("comentario")
comentarios=replace(request.form("comentarios"),ch r(10),"<br>")
rs("comentarios")=comentarios
rs.Update()
rs.close()
conn.close
set rs=nothing
set conn=nothing
%>

DONDE VA EL INSERT

mariano_donati · #16 (**permalink**) 09/07/2005, 15:37

Bueno, mirá, el código que tenías vos antes estaba bien, te recomiendo que por ahora pruebes con ese para ver si funciona. Te comenté que faltaba guardar los datos a la base de datos con rs.Update(), sin eso, los cambios que realices al RS no se verían reflejados en la base de datos. Eso por un lado. Y en cuanto al significado de lo que puse es que cuando uno crea un objeto RS se le pasan 4 parametros. El primero puede ser una tabla o una sentencia SQL que queres que ejecute; el segundo es la conexion activa que ese RS va a usar; el tercero es el tipo de cursor del objeto RS (un cursor te va a permitir moverte para adelante únicamente, otros te permiten moverte en ambas direcciones, etc); y el cuarto parametro que le pasas es el tipo de bloqueo que el RS tendrá. Generalmente, estos dos últimos parámetros no se ponen, debido a que podemos trabajar de manera correcta con los parametros por defecto (que son solo moverse para adelante y solo leer los registros). Pero cuando necesitas hacer una actualización, borrado o inserción de registros, el tipo de bloqueo que viene por defecto no te lo va a permitir, porque solo te permite leerlos, no modificarlos, es decir, te permite mirar, pero no tocar. Entonces hay que cambiarle ese parametro por defecto al parametro que nos permita hacer este tipo de tareas (actualización, inserción o borrado), que es el número 3 (número representantivo del tipo de bloqueo respectivo).
Entonces:

rs.Open tabla o sentencia SQL, conexion activa del RS, tipo de cursor, tipo de bloqueo

Tu código estaba bien, salvo esos comentarios que puse en mi post anterior.
Intenté explicarte lo mejor que pude a lo que me refería, espero que hayas entendido.
Tratá de usar el código como te puse anteriormente yo, y comentanos como te fue.
Saludos!.

mariano_donati · #17 (**permalink**) 09/07/2005, 15:39

Por que te falta agregarle el tipo de bloqueo y el cursor.

mariano_donati · #18 (**permalink**) 09/07/2005, 15:44

Probá este código:

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

set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "tu_tabla", Conn, 1, 3

RS.AddNew
rs("nombres")=request.form("nombres")
rs("apellidos")=request.form("apellidos")
rs("empresa")=request.form("empresa")
rs("telefono")=request.form("telefono")
rs("mail")=request.form("mail")
rs("comentario")=request.form("comentario")
comentarios=replace(request.form("comentarios"),ch r(10),"<br>")
rs("comentarios")=comentarios

RS.Update()
RS.Close()
conexion.Close()
set RS = nothing
set conexion = nothing

Copialo tal cual está, y modificale solamente tu base de datos cuando abres la conexion y tu tabla en donde insertaras los nuevos registros cuando abres el RS.
Así debería funcionar.
Saludos!.

mrjhon · #19 (**permalink**) 09/07/2005, 15:52

Y Coomo Le Agrego El Tipo De Blokeo Yel Cursor

mrjhon · #20 (**permalink**) 09/07/2005, 15:58

ME SALE ERROR EN ESTA LINEA

Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Libro.mdb")&"")

AHY DONDE DISE LIBRO LE PONGO EL NOMBRE DE LA BASE DE DATOS KE HAY EN LA CONEXION OBDC O SIMPLEMENTE EL NOMBRE DE LA BASE DE DATOS KE EN ESTE CASO ES librodevisitas.mdb

El_Metallick · #21 (**permalink**) 09/07/2005, 16:00

RS.Open "tu_tabla", Conn, 1, 3
eso lo puedes ver en las propiedades del objeto recordset...saludos

mrjhon · #22 (**permalink**) 09/07/2005, 16:09

BUENO AHORA SOLUCIONADO EL DE ARRIBA

AHORA ME SALE PROBLEMA EN ESTA LINEA

RS.Update()
__________________________________________________ ______________________

<%
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, 1, 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("comentario")=request.form("comentario")
comentarios=replace(request.form("comentarios"),ch r(10),"<br>")
rs("comentario")=comentarios

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

AHORA KE SERA LA VERDAD ES KE SOLO NESECITO KE ME FUNCIONE ESTE Y YA NO MAS...

El_Metallick · #23 (**permalink**) 09/07/2005, 16:11

prueba con RS.Open "formulario", Conn, 2, 3... saludos

mrjhon · #24 (**permalink**) 09/07/2005, 16:15

NO VIEJO NADA EL MISMO ERROR MIRA LO KE DISE

El campo 'formulario.comentario' no puede ser una cadena de longitud cero.

/Edison/enviado.asp, line 27

El_Metallick · #25 (**permalink**) 09/07/2005, 16:18

a es que estas no estas metiendo informacion en el campo comentario, osea en e form no llenaste el campo comentario.... verifica que no este vacio el campo comentario saludos

mariano_donati · #26 (**permalink**) 09/07/2005, 16:19

Bueno, ese error es porque en tu base de Access lo debes haber marcado como requerido, y ahi no le estas pasando ningún valor. Supongo que puede ser por eso.

Elbrinner · #27 (**permalink**) 09/07/2005, 16:25

Casi seguro mariano. a ver si va ahora.

mrjhon · #28 (**permalink**) 09/07/2005, 16:25

NO VIEJO NO ESTA VACIO POR KE YO LLENO TODO LOS ESPACIOS

PERO ME SALE ESE ERRO ES CUANDO LE PONGO Conn 2,3
y SI LE PONO 1,3 ME SALE ERROR

mariano_donati · #29 (**permalink**) 09/07/2005, 16:32

me parece que el tipo de cursor no tiene influencia en esto. Es indistinto en este caso que pongas 1 o 2. Podés decirnos que error te da en cada uno de los casos? es decir, si pones 2, 3, que error te da? y si pones 1, 3?. El error que mencionaste arriba es porque bien en tu tabla de access marcaste el campo comentario como requerido o sino le pusiste "no permitir longitud cero". Fijate poniendo en requerido "No" y en permitir longitud cero "Sí", haber que sale.
Saludos!.

NOTA: fijate si realmente estás recibiendo como corresponde el valor del campo comentario en la página ASP. Haz esto:

Response.Write(Request.Form("comentario"))
Response.End()

mrjhon · #30 (**permalink**) 09/07/2005, 16:35

BUENO AMIGOS LES COMENTO KE YA ME PASAN LOS DATOS A LA TABLA PERO ME SALE ERROR EN ESTA LINEA

conexion.Close()

Y DISE LO SIGUIETE

Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''

___________________________________________

<%
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")
comentario=replace(request.form("comentario"),chr( 10),"<br>")
rs("comentario")=comentario

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