Require un objeto

alberto_gc · #1 (**permalink**) 10/10/2008, 10:18

HOLa aqui estoy de nuevo molestando mi error es este

<body>

Código PHP:

  <&#37; 
 
  
Nombre = Request.Form("Nombre") 
Paterno = Request.Form("Paterno") 
Materno= Request.Form("Materno") 
Edad = Request.Form("Edad") 
Sexo = Request.Form("Sexo") 
Entidad = Request.Form("Entidad") 
Correo = Request.Form("Correo") 
Telefono = Request.Form("Telefono") 
Colonia = Request.Form("Colonia") 
Domicilio = Request.Form("Domicilio") 
Codigo = Request.Form("Codigo") 
 
if Nombre = "" then Nombre = "-" 
if Apellido = "" then Apellidos = "-" 
if Materno = "" then Materno = "-" 
if Edad = "" then Edad = "-" 
if Sexo = "" then Sexo = "-" 
if Entidad = "" then Entidad = "-" 
if Correo = "" then Telefono = "-" 
if Colonia = "" then Colonia = "-" 
if Domicilio = "" then Domicilio = "-" 
if Codigo = "" then Codigo = "-"  
 
Dim oConn,strSQL, objRS  
 
Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\mibase.mdb")  
 
 
 
     sql= "INSERT INTO mitabla(Nombre, Paterno, Materno, Edad, Sexo, Entidad, Telefono,Correo, Colonia, Domicilio, Codigo)" 
     sql = sql & "VALUES('"&Nombre&"','"&Paterno&"','"&Materno&"','"&Edad&"','"&Sexo&"','"&Entidad&  "','"&Correo&"','"&Colonia&"','"&Domicilio&"','"&Codigo&"')" 
     
 
     con.Execute(sql) 
 
%> 
 
 <b>He recibido tu mensaje <%= Request("Nombre") %></b>

</body>
</html>

bueno este es mi codigo al momento de enviar los datos del formulario me manda este error

David · #2 (**permalink**) 10/10/2008, 10:22

Es que estás asignando el objeto ADODB a la variable "oCon" mientras que la que estás definiendo y tratando de usar posteriormente es "oConn".

alberto_gc · #3 (**permalink**) 10/10/2008, 10:49

bueno el error es en el

Sexo=Sexo = Request.Form("Sexo")

me lo amnda en esta linea diciendo error no especificado
a que se debe eso

alberto_gc · #4 (**permalink**) 10/10/2008, 11:04

una pregunta el orden d mi codigo esta bien lo que debe de hacer el codigo que cuando envie datos del formulario este verifique si hay campos vacios y los llene "-" y despues inserte los valores que hay en el formualrio nose si me explico

David · #5 (**permalink**) 10/10/2008, 11:11

Sí, el código parece bien, ¿seguro que es en la línea que mencionaste en la que te da error?. Porque otra cosa que veo es ese "con", ¿dónde está declarado?.

alberto_gc · #6 (**permalink**) 10/10/2008, 11:44

pues si y lo declare como oConn

David · #7 (**permalink**) 10/10/2008, 11:48

Me refiero a esto:

Código vb:

Ver originalcon.Execute(sql)

¿No debería ser oConn?

Adler · #8 (**permalink**) 10/10/2008, 11:54

Hola

Primero corrige lo que te comenta David

. Corrige el nombre que le has asignado a ADODB

Cita:

Iniciado por alberto_gc

una pregunta el orden d mi codigo esta bien lo que debe de hacer el codigo que cuando envie datos del formulario este verifique si hay campos vacios y los llene "-" y despues inserte los valores que hay en el formualrio nose si me explico

Tal y como lo tienes montado en caso que el campo no esté vació no insertaría nada en bd

Prueba así

if Nombre = "" then Nombre = "-" else Nombre = Request.Form("Nombre)

Por último el error que comentas no puede ser, esa linea es correcta

Suerte

alberto_gc · #9 (**permalink**) 10/10/2008, 12:02

Cita:

Iniciado por Adler

Hola

Primero corrige lo que te comenta David

. Corrige el nombre que le has asignado a ADODB

Tal y como lo tienes montado en caso que el campo no esté vació no insertaría nada en bd

Prueba así

if Nombre = "" then Nombre = "-" else Nombre = Request.Form("Nombre)

Por último el error que comentas no puede ser, esa linea es correcta

Suerte

Bueno gracia adler ya hice todo me marca este erro

Cita:

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access] Instrucción SQL no válida; se esperaba 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' o 'UPDATE'.
/bolsa.asp, línea 28

Código PHP:

  <% 
 
if Nombre = "" then Nombre = "-" else Nombre = Request.Form("Nombre") 
 
Dim oConn, strSQL, objRS  
 
 
Set oConn = Server.CreateObject("ADODB.Connection") 
 
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\canteras.mdb")  
 
 
 
     strSQL = "inset into bolsat(Nombre, Paterno, Materno, Edad, Sexo, Entidad, Telefono, Correo, Colonia, Domicilio, Codigo) VALUES ('"&Nombre&"','"&Paterno&"','"&Materno&"','"&Edad&"','"&Sexo&"','"&Entidad&  "','"&Telefono&"','"&Correo&"','"&Colonia&"','"&Domicilio&"','"&Codigo&"')" 
      
      
      
     oConn.Execute(strSQL) [B]linea 28 ests es[/B] 
     oConn.Close  
     set oConn = nothing 
     Response.Redirect("inserbol.asp") 
      
%>

Adler · #10 (**permalink**) 10/10/2008, 12:06

Fijate en que no has escrito insert sino inset

strSQL = "inset into bolsat

Suerte

David · #11 (**permalink**) 10/10/2008, 12:12

Cita:

Iniciado por Adler

Prueba así

if Nombre = "" then Nombre = "-" else Nombre = Request.Form("Nombre)

Creo que es esa forma la que no va a insertar nada en la base de datos, creo que estaba bien como estaba en un principio. Porque Nombre siempre valdrá "" al entrar a la página y siempre será reemplazado por "-".

.

Adler · #12 (**permalink**) 10/10/2008, 12:18

Hola

Cita:

Iniciado por David el Grande

Creo que es esa forma la que no va a insertar nada en la base de datos, creo que estaba bien como estaba en un principio. Porque Nombre siempre valdrá "" al entrar a la página y siempre será reemplazado por "-".

.

Tienes razón, lo copié, le añadí el else pero no lo cambié la variable

if Request.Form("Nombre) = "" then Nombre = "-" else Nombre = Request.Form("Nombre)

alberto_gc · #13 (**permalink**) 10/10/2008, 12:21

ok ya esta listo

Response.Redirect("inserbol.asp")

ahora cuando redirecciono a esta pagina lo que quiero hacer es
recoger su nombre de la base de datos que ingreso y por ejemplo decirle un ejemplo

Gracias Adler su solicitud fue enviada exitosamente
nosotros nos ponpremos en contacto contigo

volver

Adler · #14 (**permalink**) 10/10/2008, 12:47

Hola

Necesitarías crear una sesión

Código asp:

Ver originalsession("nombre") = Nombre
Response.Redirect("inserbol.asp")

en iserbol

Cita:

Gracias <%=session("nombre")%> su solicitud fue enviada exitosamente
nosotros nos ponpremos en contacto contigo

volver

Esto siempre y cuando no tengas muchas sesiones concurrente, para no saturar al servidor

Otra manera menos "elegante"

Código asp:

Ver originalResponse.Redirect("inserbol.asp?u='"&Nombre&"'")

en iserbol

Cita:

Gracias <%=request.querystring("u")%> su solicitud fue enviada exitosamente
nosotros nos ponpremos en contacto contigo

volver

Suerte

alberto_gc · #15 (**permalink**) 10/10/2008, 13:04

hola probe los dos el de sesiones tarda un buen en abrir mi pagina y no la abre y
la segun la puese si funciona bien pero me manda en el inserbol "" y no me manda el nobre
qu hago

alberto_gc · #16 (**permalink**) 10/10/2008, 13:12

y en la base de datos me almacena en blanco

David · #17 (**permalink**) 10/10/2008, 13:18

¿Puedes poner nuevamente el código como lo tienes ahora?.

alberto_gc · #18 (**permalink**) 10/10/2008, 13:28

<%

Dim oConn, strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\canteras.mdb")

strSQL = "insert into bolsat(Nombre, Paterno, Materno, Edad, Sexo, Entidad, Telefono, Correo, Colonia, Domicilio, Codigo) VALUES ('"&Nombre&"','"&Paterno&"','"&Materno&"','"&Edad& "','"&Sexo&"','"&Entidad& "','"&Telefono&"','"&Correo&"','"&Colonia&"','"&Do micilio&"','"&Codigo&"')"

oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
Response.Redirect("inserbol.asp?u='"&Nombre&"'")

%>

y en iserbol.asp
<%=request.querystring("u")%>

alberto_gc · #19 (**permalink**) 10/10/2008, 13:29

y ya no puese la funcion de validacion de campos en blanco xq me marca error

JuanRAPerez · #20 (**permalink**) 10/10/2008, 13:52

Cita:

Iniciado por alberto_gc

y ya no puese la funcion de validacion de campos en blanco xq me marca error

ummmm pero estas seguro que traes datos?

alberto_gc · #21 (**permalink**) 10/10/2008, 14:14

si de echo puse la validacion que tu me aconsejaste pero me marca error JuanRAPerez

alberto_gc · #22 (**permalink**) 10/10/2008, 14:26

Bueno en si quiero que al enviar el formulario te diga esto

gracia juanperez tu solicitud fue enviada nosotros nos pondremos en contacto contigo

volver

noce si me explico

JuanRAPerez · #23 (**permalink**) 10/10/2008, 14:43

pero no inserta nada dices?????

prueba esto

Cita:

strSQL = "insert into bolsat(Nombre, Paterno, Materno, Edad, Sexo, Entidad, Telefono, Correo, Colonia, Domicilio, Codigo) VALUES ('"&Nombre&"','"&Paterno&"','"&Materno&"','"&Eda d& "','"&Sexo&"','"&Entidad& "','"&Telefono&"','"&Correo&"','"&Colonia&"',' "&Do micilio&"','"&Codigo&"')"

response.write "<p>Mi SQL trae: " & strSQL
response.end

dado que si nombre no trae mas que un guion (-)

al hacer

<%=request.querystring("u")%>

solo mostraras

gracia - tu solicitud fue enviada nosotros nos pondremos en contacto contigo

volver

Suerte
y lo que te muestre el navegador nos lo pegas aqui

oConn.Execute(strSQL)
oConn.Close

alberto_gc · #24 (**permalink**) 10/10/2008, 15:15

Mi SQL trae: insert into bolsat(Nombre, Paterno, Materno, Edad, Sexo, Entidad, Telefono, Correo, Colonia, Domicilio, Codigo) VAadorLUES ('','','','','','','','','','','')

esto es lo que me muestr en el naveg

David · #25 (**permalink**) 10/10/2008, 15:19

Eso significa que no se está trayendo ningún dato del formulario

. ¿Dónde traes los datos del formulario?.

alberto_gc · #26 (**permalink**) 10/10/2008, 15:26

listo
ya funciona cambie puse otra condicion

recojo datos Nombre = Request.Form("Nombre")

despues comparo datos if Nombre = "" then Nombre = "-"
despues ago mi conexion

depues la insercion de datos

despues de la insercion puse esto
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
Response.Redirect("inserbol.asp?u='"&Nombre&"'")

y listoooooooooo

ahora en inserbol.asp ahi cierro la conexion o como