Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 No consigo insertar datos en una tabla
 Foro Bloqueado  Tema Bloqueado


Autor Temas
begoña
Starting Member

España
41 Posts
Mensajes - 23 Mar 2005 :  10:33:27  Ver Perfil  Enviar Email
Hola a todos, ¿alguien me puede ayudar?
Estoy trabajando una página sobre un inmobiliaria.
Tengo un formulario en el que pido al cliente que introduzca unos criterios de búsqueda y quiero dos cosas.
1.-Que me muestre los resultados de la búsqueda en una tabla---Que lo hace perfectamente
2.-Que me guarde todos esos datos en una tabla llamada demandasinternet que utilizaré para ponerme en contacto con el cliente.
Mi problema es que no graba y no sé el por qué.
El error que me da es: ADODB.Recordset error '800a0cc1'

No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.

Os copio y pego parte del documento
<body>
<%
Dim Conn, sSector, sPrice, sOperation, sTipo
Dim str, strSQL, SQLInsertar, objRS, i
Dim bSector, bPrice, bOperation, bTipo, iPrecio
str=Server.MapPath("proyecto\ficheroFM.mdb")
set Conn=server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & str
Conn.Open
set objRS=server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection= Conn%>

<%sSector = Request.Form("tSector")
if ltrim(rtrim(sSector)) = "Todos" then
bSector = false
else
bSector = true
End if

sPrice = Request.Form("tPrice")
if ltrim(rtrim(sPrice)) = "" then
bPrice = false
else
bPrice = true
End if

sOperation = Request.Form("tOperation")
if ltrim(rtrim(sOperation)) = "Todos" then
bOperation = false
else
bOperation = true
End if

sTipo = Request.Form("tTipo")
if ltrim(rtrim(sTipo)) = "Todos" then
bTipo = false
else
bTipo = true
End if


strSQL = "select ficha, tipo, operacion, superficie, precio, sector, calle, pesetas from inmuebles where Fechabaja =#01/01/1999#"

if bOperation then
strSQL = strSQL & " and operacion ='" & sOperation & "'"
End if
if bSector then
'if bOperation then
strSQL = strSQL & " and sector ='" & sSector & "'"
'else
'strSQL = strSQL & " sector ='" & sSector & "'"
'End if
End if

if bTipo then
'if bOperation or bSector or bPrice then
strSQL = strSQL & " and Tipo ='" & sTipo & "'"
'else
'strSQL = strSQL & " Tipo ='" & sTipo & "'"
'End if
End if

strSQL = strSQL & " order by precio"


'Response.Write strSQL %>
<table width="100%" border="0" align="center">
<tr bgcolor="#DFDFFF">
<td><b>Ficha</b></td>
<td><b>Tipo</b></td>
<td><b>Operación</b></td>
<td><b>Sup.</b></td>
<td><b>Precio</b></td>
<td><b>Ptas.</b></td>
<td><b>Sector</b></td>
<td><b>Calle</b></td>
<td><b>+Info</b></td>
</tr>
<tr>


<% Response.Buffer
i = 0
Set objRS = Conn.Execute(strSQL)

if objRS.Bof then
Response.Write "<br><b><font size=""4"">La consulta propuesta no contiene datos.</font><br><br></b>"
End if
do while not objRS.Eof
Response.Write "<tr>"
Response.Write "<td align=""center"" bgcolor="""
if i = 0 then Response.Write color1 else Response.Write color2 End if
Response.Write """>" & objRS("ficha") & "</td>"
Response.Write "<td bgcolor="""
.
.
.
Response.Write "</tr>"
objRS.MoveNext
i = i + 1
if i > 1 then
i = 0
End if
loop
'objRS.close
'set objRS = nothing
%>
</tr>
</table>

<% SQLInsertar="INSERT INTO DemandasInternet (Nombre,Telefono,Tipo, Operacion, Sector, Precio) "
SQLInsertar=SQLInsertar+ "VALUES ('" & Request.Form("tNombre") & "','" & Request.Form("tTelefono") & "','" & Request.Form("tTipo") & "','" & Request.Form("tOperation") & "','" & Request.Form("tSector") & "','" & Request.Form("tPrecio") & "')"
Conn.Execute(SQLInsertar)

Conn.Close
set Conn = nothing %>


</body>
Muchas gracias adelantadas

ce
Average Member

España
523 Posts
Posted - 23 Mar 2005 :  10:45:15  Ver perfil  Enviar e-mail  Visit ce's Homepage
Buenas, asi a bote pronto, el mensaje de error que te da "No se encontró el elemento en la colección..." indica que hay algun campo que no coincide. Revisa uno a uno los campos con los que trabajas en el asp, tanto al leer como al grabar que seguro es eso.
suerte

Inicio Pagina

begoña
Starting Member

España
41 Posts
Posted - 23 Mar 2005 :  12:25:09  Ver perfil  Enviar e-mail
Gracias por tu ayuda, pero he comprobado los campos y sigue sin salirme.
Me has dado la pista y el problema creo que está en las comillas, el campo precio es numerico ahora he puesto la consulta de la siguiente forma:

<% SQLInsertar="INSERT INTO DemandasInternet (Nombre, Telefono, Tipo, Operacion, Sector, Precio) "
SQLInsertar=SQLInsertar+ "VALUES (' " & Request.Form("tNombre") & " ',' " & Request.Form("tTelefono") & " ',' " & Request.Form("tTipo") & " ',' " & Request.Form("tOperation") & " ',' " & Request.Form("tSector") & " ', " Request.Form("tPrecio")")"
Conn.Execute(SQLInsertar)

pero debe estar mal el tema de las comillas en el precio.

No veo el error

Gracias

Inicio Pagina

diengo
Starting Member

Dominican Republic
2 Posts
Posted - 19 Aug 2012 :  22:29:44  Ver perfil  Enviar e-mail  Visit diengo's Homepage  Enviar diengo un Mensaje ICQ
&#1044;&#1072;&#1085;&#1085;&#1099;&#1077; &#1089;&#1080;&#1089;&#1090;&#1077;&#1084;&#1099; &#1086;&#1095;&#1080;&#1089;&#1090;&#1082;&#1080; &#1089;&#1090;&#1086;&#1095;&#1085;&#1099;&#1093; &#1074;&#1086;&#1076; &#1084;&#1086;&#1078;&#1085;&#1086; &#1087;&#1086;&#1076;&#1082;&#1083;&#1102;&#1095;&#1080;&#1090;&#1100;, &#1082;&#1072;&#1082; &#1082; &#1089;&#1090;&#1088;&#1086;&#1103;&#1097;&#1080;&#1084;&#1089;&#1103; &#1080;&#1085;&#1076;&#1080;&#1074;&#1080;&#1076;&#1091;&#1072;&#1083;&#1100;&#1085;&#1099;&#1084; &#1082;&#1072;&#1092;&#1077;, &#1086;&#1090;&#1076;&#1077;&#1083;&#1100;&#1085;&#1099;&#1084; &#1087;&#1086;&#1089;&#1105;&#1083;&#1082;&#1072;&#1084; &#1080; &#1076;&#1088;&#1091;&#1075;&#1080;&#1084; &#1086;&#1073;&#1098;&#1077;&#1082;&#1090;&#1072;&#1084;, &#1090;&#1072;&#1082; &#1080; &#1082; &#1076;&#1077;&#1081;&#1089;&#1090;&#1074;&#1091;&#1102;&#1097;&#1080;&#1084;, &#1074;&#1084;&#1077;&#1089;&#1090;&#1086; &#1074;&#1099;&#1075;&#1088;&#1077;&#1073;&#1085;&#1099;&#1093; &#1080; &#1085;&#1072;&#1082;&#1086;&#1087;&#1080;&#1090;&#1077;&#1083;&#1100;&#1085;&#1099;&#1093; &#1103;&#1084;, &#1092;&#1080;&#1083;&#1100;&#1090;&#1088;&#1091;&#1102;&#1097;&#1080;&#1093; &#1087;&#1086;&#1083;&#1077;&#1081;, &#1095;&#1090;&#1086; &#1087;&#1086;&#1079;&#1074;&#1086;&#1083;&#1103;&#1077;&#1090; &#1080;&#1089;&#1087;&#1086;&#1083;&#1100;&#1079;&#1086;&#1074;&#1072;&#1090;&#1100; &#1091;&#1089;&#1090;&#1072;&#1085;&#1086;&#1074;&#1082;&#1091; &#1076;&#1072;&#1078;&#1077; &#1085;&#1072; &#1085;&#1077; &#1073;&#1086;&#1083;&#1100;&#1096;&#1080;&#1093; &#1042;&#1072;&#1096;&#1080;&#1093; &#1091;&#1095;&#1072;&#1089;&#1090;&#1082;&#1072;&#1093;.
[url=http://august-ecolog.ru/]&#1084;&#1072;&#1083;&#1099;&#1077; &#1086;&#1095;&#1080;&#1089;&#1090;&#1085;&#1099;&#1077; &#1091;&#1089;&#1090;&#1072;&#1085;&#1086;&#1074;&#1082;&#1080;[/url]
&#1091;&#1076;&#1072;&#1095;&#1080; &#1042;&#1089;&#1077;&#1084;!

1GBInicio Pagina

diengo
Starting Member

Dominican Republic
2 Posts
Posted - 20 Aug 2012 :  00:49:35  Ver perfil  Enviar e-mail  Visit diengo's Homepage  Enviar diengo un Mensaje ICQ
&#1044;&#1072;&#1085;&#1085;&#1099;&#1077; &#1086;&#1095;&#1080;&#1089;&#1090;&#1085;&#1086;&#1077; &#1089;&#1086;&#1086;&#1088;&#1091;&#1078;&#1077;&#1085;&#1080;&#1077; &#1084;&#1086;&#1078;&#1085;&#1086; &#1087;&#1086;&#1076;&#1082;&#1083;&#1102;&#1095;&#1080;&#1090;&#1100;, &#1082;&#1072;&#1082; &#1082; &#1089;&#1090;&#1088;&#1086;&#1103;&#1097;&#1080;&#1084;&#1089;&#1103; &#1080;&#1085;&#1076;&#1080;&#1074;&#1080;&#1076;&#1091;&#1072;&#1083;&#1100;&#1085;&#1099;&#1084; &#1082;&#1072;&#1092;&#1077;, &#1086;&#1090;&#1076;&#1077;&#1083;&#1100;&#1085;&#1099;&#1084; &#1087;&#1086;&#1089;&#1105;&#1083;&#1082;&#1072;&#1084; &#1080; &#1076;&#1088;&#1091;&#1075;&#1080;&#1084; &#1086;&#1073;&#1098;&#1077;&#1082;&#1090;&#1072;&#1084;, &#1090;&#1072;&#1082; &#1080; &#1082; &#1076;&#1077;&#1081;&#1089;&#1090;&#1074;&#1091;&#1102;&#1097;&#1080;&#1084;, &#1074;&#1084;&#1077;&#1089;&#1090;&#1086; &#1074;&#1099;&#1075;&#1088;&#1077;&#1073;&#1085;&#1099;&#1093; &#1080; &#1085;&#1072;&#1082;&#1086;&#1087;&#1080;&#1090;&#1077;&#1083;&#1100;&#1085;&#1099;&#1093; &#1103;&#1084;, &#1092;&#1080;&#1083;&#1100;&#1090;&#1088;&#1091;&#1102;&#1097;&#1080;&#1093; &#1087;&#1086;&#1083;&#1077;&#1081;, &#1095;&#1090;&#1086; &#1087;&#1086;&#1079;&#1074;&#1086;&#1083;&#1103;&#1077;&#1090; &#1080;&#1089;&#1087;&#1086;&#1083;&#1100;&#1079;&#1086;&#1074;&#1072;&#1090;&#1100; &#1091;&#1089;&#1090;&#1072;&#1085;&#1086;&#1074;&#1082;&#1091; &#1076;&#1072;&#1078;&#1077; &#1085;&#1072; &#1084;&#1072;&#1083;&#1077;&#1085;&#1100;&#1082;&#1080;&#1093; &#1042;&#1072;&#1096;&#1080;&#1093; &#1091;&#1095;&#1072;&#1089;&#1090;&#1082;&#1072;&#1093;.
[url=http://august-ecolog.ru/]&#1089;&#1080;&#1089;&#1090;&#1077;&#1084;&#1099; &#1086;&#1095;&#1080;&#1089;&#1090;&#1082;&#1080; &#1089;&#1090;&#1086;&#1095;&#1085;&#1099;&#1093; &#1074;&#1086;&#1076;[/url]
&#1091;&#1076;&#1072;&#1095;&#1080;

1GBInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar