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

problemas con el Value

Estas en el tema de problemas con el Value en el foro de ASP Clásico en Foros del Web. hola amigos del desarrollo, tengo este formulario: <form name="combo"> <p align="center">Seleccione el producto a comprar:&nbsp; <select name="Producto" onchange="nombreText.value = this.options[this.selectedIndex].value"> <% strSQL = "SELECT * ...
  #1 (permalink)  
Antiguo 24/07/2006, 14:29
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
Pregunta problemas con el Value

hola amigos del desarrollo, tengo este formulario:

<form name="combo">
<p align="center">Seleccione el producto a comprar:&nbsp;

<select name="Producto"
onchange="nombreText.value = this.options[this.selectedIndex].value">
<% strSQL = "SELECT * FROM Productos ORDER BY Productos"
Set RS = oConn.Execute(strSQL)
while not Rs.EOF%>
<option value="<%=rs("Id")%>"> <%=rs("Productos")%></option>
<%Rs.movenext
wend
Rs.close%> </select>
<input type="text" name="nombreText" size="5"></p></form>

y en la misma hoja, tengo esta linea que me esta dando problemas:
s-sql="SELECT Tipo_Producto FROM Precios WHERE id=document.combo.Producto.value"

Esa linea corresponde a una celda de una tabla donde quiero desplegar los tipos de materiables, pero mi sentencia sql no se si esta bien, o como lo puedo plantear.
tenia pensado que el value de mi combo lo puedo guardar en una variable y luego la comparo en la sentencia sql, pero no se como hacerlo. El text q tengo puesto es para verificar que el combo me este arrojando los valores que deseo. El valor que me aparse en el text es el valor que quiero compara en el where de mi sentencia sql.
Alguien me puede ayudar por favor. Gracias por todo.
  #2 (permalink)  
Antiguo 24/07/2006, 14:44
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 1 mes
Puntos: 4
s-sql="SELECT Tipo_Producto FROM Precios WHERE id=" & request.form("Producto")
  #3 (permalink)  
Antiguo 24/07/2006, 17:58
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Si, pero ...


<form name="combo"> 'por defaul es GET si mal no recuerdo.

1) Agregar Method=Post al formulario (y el action no estaría de más para que sirviera de algo)
2) Cambiar a Request.QueryString o Solo Request en lugar de request.form
  #4 (permalink)  
Antiguo 25/07/2006, 08:38
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
aun continua el problema

hola gracias por su ayuda, el problema aun continua, aqui les pongo el codigo completo de ma pagina, y lo marcare de colores como mi manejador.

<%@ Language=VBScript%>
<% Dim oConn,strSQL, objRS, var
Set oConn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./Ventas.mdb"))%>

<html> <head>
<link rel="STYLESHEET" type="text/css" href="css/letras.css">
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ventas</title> </head>

<body>

<h1 align="center">Venta de productos</h1>
<form name="combo" Method=Post>
<p align="center">Seleccione el producto a comprar:&nbsp;

<select name="Producto"
onchange="nombreText.value = this.options[this.selectedIndex].value">
<% strSQL = "SELECT * FROM Productos ORDER BY Productos"
Set RS = oConn.Execute(strSQL)
while not Rs.EOF%>

<option value="<%=rs("Id")%>"> <%=rs("Productos")%></option>
<%Rs.movenext
wend
Rs.close%>
</select>
<input type="text" name="nombreText" size="5"></p>

<table border="1" width="80%" height="58" align="center">
<tr>
<td width="25%" height="1" align="center">
<p align="center"><b>PRODUCTOS</b></p>
</td><td width="13%" height="1" align="center">
<p align="center"><b>Cantidad</b></p>
</td>
<td width="12%" height="1" align="center">
<p align="center"><b>Comprar</b></p>
</td><td width="21%" height="1" align="center">
<p align="center"><b>Precio</b></p>
</td>
<td width="29%" height="1" align="center">
<p align="center"><b>Sub-Total</b></p>
</td>
</tr>
<tr>
<td width="25%" height="1">

<table width="100%" border="1">
<thead>
</thead>
<tbody>
<!--webbot bot="DatabaseRegionStart" startspan
s-columnnames="Tipo_Producto" s-columntypes="202"
s-dataconnection="Base_de_datos4" b-tableformat="TRUE"
b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="TRUE"
b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE"
b-listseparator="TRUE" i-ListFormat="0" b-makeform="TRUE" s-recordsource
s-displaycolumns="Tipo_Producto" s-criteria s-order
s-sql="SELECT Tipo_Producto FROM Precios WHERE id=" & Request.QueryString("nombreText")******
b-procedure="
clientside SuggestedExt=" s-DefaultFields
s-NoRecordsFound=" registro devuelto." i-MaxRecords="256"
i-GroupSize="5" BOTID="0" u-dblib="_fpclass/fpdblib.inc"
u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc"
tag="TBODY"
local_preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;No se puede mostrar una vista previa de las regiones de resultados de base de datos a menos que se busque esta página desde un servidor Web con un explorador de Web. La siguiente fila de tabla se repetirá una vez por cada registro devuelto por la consulta.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"
preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Éste es el principio de una región de resultados de base de datos. Debe buscarse en la página desde un servidor Web con un explorador de Web para que se vea correctamente; el Web actual está almacenado en su disco local o en la red.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" ' nombreText")' FALSE" b-procedure Producto") asp" Producto")'" '& '&request.form("Producto")' Producto") Ningún s-DefaultFields s-NoRecordsFound &Request.Form("nombre_checkbox")&")" &Request.Form("nombre_checkbox")&")" &Producto.value 'Producto.value' &nombreText.value&"%' & --><!--#include file="_fpclass/fpdblib.inc"-->

<%
fp_sQry="SELECT Tipo_Producto FROM Precios WHERE id=" ************
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=1 align=left width=""100%""> registro devuelto.</td></tr>"
fp_sDataConn="Base_de_datos4"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=5
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=1
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>

<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan -->

<tr>
<td><!--webbot bot="DatabaseResultColumn" startspan
s-columnnames="Tipo_Producto" s-column="Tipo_Producto"
b-tableformat="TRUE" b-hasHTML="FALSE" clientside
local_preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Tipo_Producto&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;"
preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Tipo_Producto&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" --><%=FP_FieldVal(fp_rs,"Tipo_Producto")%><!--webbot
bot="DatabaseResultColumn" i-CheckSum="36918" endspan -->

</td>
</tr>
<!--webbot bot="DatabaseRegionEnd" startspan b-tableformat="TRUE"
b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="5"
clientside tag="TBODY"
local_preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Éste es el final de una región de resultados de base de datos.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;&lt;TR&gt;&lt;TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=64&gt;&lt;FORM&gt;&lt;NOBR&gt;&lt;INPUT TYPE=Button VALUE=&quot; |&lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt;| &quot;&gt; [1/5]&lt;/NOBR&gt;&lt;/FORM&gt;&lt;/td&gt;&lt;/tr&gt;"
preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Éste es el final de una región de resultados de base de datos.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;&lt;TR&gt;&lt;TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=64&gt;&lt;NOBR&gt;&lt;INPUT TYPE=Button VALUE=&quot; |&lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt;| &quot;&gt; [1/5]&lt;/NOBR&gt;&lt;BR&gt;&lt;/td&gt;&lt;/tr&gt;" --><!--#include file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" i-CheckSum="62730" endspan -->

</tbody>
</table>
<p>&nbsp;


</td>
<td width="13%" height="1">
</td>
<td width="12%" height="1" align="center">
<p align="center"><input type="checkbox" name="Copolvo" value="ON"></p>
</td>
<td width="21%" height="1">

</td>
<td width="29%" height="1">
<p align="center"></td>
</tr>
</table></form></body>

los asteriscos azules marcan mis lineas donde me da problemas, solo puedo cambiar la instruccion sql de color gris, la otra parte roja se actualiza solo de acuerdo a la gris.

Este es el erro que me arroja:
Database Results Error
Description: [Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'id='. Number: -2147217900 (0x80040E14)
Source: Microsoft OLE DB Provider for ODBC Drivers


A lo mejor me estoy matando con esta forma y alguien tenga una mejor idea de como reflejar los resultados, Espero su ayuda, gracias por todo orharo2003 y Myakire.
  #5 (permalink)  
Antiguo 26/07/2006, 10:33
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
comparacion del WHERE

hola gracias por su ayuda, el problema aun continua, aqui les pongo el codigo completo de mi pagina, y lo he marcado de colores como mi manejador.

<%@ Language=VBScript%>
<% Dim oConn,strSQL, objRS, var
Set oConn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./Ventas.mdb"))%>

<html> <head>
<link rel="STYLESHEET" type="text/css" href="css/letras.css">
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ventas</title> </head>

<body>

<h1 align="center">Venta de productos</h1>
<form name="combo" Method=Post>
<p align="center">Seleccione el producto a comprar:&nbsp;

<select name="Producto"
onchange="nombreText.value = this.options[this.selectedIndex].value">
<% strSQL = "SELECT * FROM Productos ORDER BY Productos"
Set RS = oConn.Execute(strSQL)
while not Rs.EOF%>

<option value="<%=rs("Id")%>"> <%=rs("Productos")%></option>
<%Rs.movenext
wend
Rs.close%>
</select>
<input type="text" name="nombreText" size="5"></p>

<table border="1" width="80%" height="58" align="center">
<tr>
<td width="25%" height="1" align="center">
<p align="center"><b>PRODUCTOS</b></p>
</td><td width="13%" height="1" align="center">
<p align="center"><b>Cantidad</b></p>
</td>
<td width="12%" height="1" align="center">
<p align="center"><b>Comprar</b></p>
</td><td width="21%" height="1" align="center">
<p align="center"><b>Precio</b></p>
</td>
<td width="29%" height="1" align="center">
<p align="center"><b>Sub-Total</b></p>
</td>
</tr>
<tr>
<td width="25%" height="1">

<table width="100%" border="1">
<thead>
</thead>
<tbody>
<!--webbot bot="DatabaseRegionStart" startspan
s-columnnames="Tipo_Producto" s-columntypes="202"
s-dataconnection="Base_de_datos4" b-tableformat="TRUE"
b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="TRUE"
b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE"
b-listseparator="TRUE" i-ListFormat="0" b-makeform="TRUE" s-recordsource
s-displaycolumns="Tipo_Producto" s-criteria s-order
s-sql="SELECT Tipo_Producto FROM Precios WHERE id=" & Request.QueryString("nombreText")******
b-procedure="
clientside SuggestedExt=" s-DefaultFields
s-NoRecordsFound=" registro devuelto." i-MaxRecords="256"
i-GroupSize="5" BOTID="0" u-dblib="_fpclass/fpdblib.inc"
u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc"
tag="TBODY"
local_preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;No se puede mostrar una vista previa de las regiones de resultados de base de datos a menos que se busque esta página desde un servidor Web con un explorador de Web. La siguiente fila de tabla se repetirá una vez por cada registro devuelto por la consulta.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"
preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Éste es el principio de una región de resultados de base de datos. Debe buscarse en la página desde un servidor Web con un explorador de Web para que se vea correctamente; el Web actual está almacenado en su disco local o en la red.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" ' nombreText")' FALSE" b-procedure Producto") asp" Producto")'" '& '&request.form("Producto")' Producto") Ningún s-DefaultFields s-NoRecordsFound &Request.Form("nombre_checkbox")&")" &Request.Form("nombre_checkbox")&")" &Producto.value 'Producto.value' &nombreText.value&"%' & --><!--#include file="_fpclass/fpdblib.inc"-->

<%
fp_sQry="SELECT Tipo_Producto FROM Precios WHERE id=" ************
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=1 align=left width=""100%""> registro devuelto.</td></tr>"
fp_sDataConn="Base_de_datos4"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=5
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=1
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>

<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan -->

<tr>
<td><!--webbot bot="DatabaseResultColumn" startspan
s-columnnames="Tipo_Producto" s-column="Tipo_Producto"
b-tableformat="TRUE" b-hasHTML="FALSE" clientside
local_preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Tipo_Producto&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;"
preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Tipo_Producto&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" --><%=FP_FieldVal(fp_rs,"Tipo_Producto")%><!--webbot
bot="DatabaseResultColumn" i-CheckSum="36918" endspan -->

</td>
</tr>
<!--webbot bot="DatabaseRegionEnd" startspan b-tableformat="TRUE"
b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="5"
clientside tag="TBODY"
local_preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Éste es el final de una región de resultados de base de datos.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;&lt;TR&gt;&lt;TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=64&gt;&lt;FORM&gt;&lt;NOBR&gt;&lt;INPUT TYPE=Button VALUE=&quot; |&lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt;| &quot;&gt; [1/5]&lt;/NOBR&gt;&lt;/FORM&gt;&lt;/td&gt;&lt;/tr&gt;"
preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Éste es el final de una región de resultados de base de datos.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;&lt;TR&gt;&lt;TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=64&gt;&lt;NOBR&gt;&lt;INPUT TYPE=Button VALUE=&quot; |&lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &lt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt; &quot;&gt;&lt;INPUT TYPE=Button VALUE=&quot; &gt;| &quot;&gt; [1/5]&lt;/NOBR&gt;&lt;BR&gt;&lt;/td&gt;&lt;/tr&gt;" --><!--#include file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" i-CheckSum="62730" endspan -->

</tbody>
</table>
<p>&nbsp;


</td>
<td width="13%" height="1">
</td>
<td width="12%" height="1" align="center">
<p align="center"><input type="checkbox" name="Copolvo" value="ON"></p>
</td>
<td width="21%" height="1">

</td>
<td width="29%" height="1">
<p align="center"></td>
</tr>
</table></form></body>

los asteriscos azules marcan mis lineas donde me da problemas, solo puedo cambiar la instruccion sql de color gris, la otra parte roja se actualiza solo de acuerdo a la gris.

Este es el erro que me arroja:
Database Results Error
Description: [Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'id='. Number: -2147217900 (0x80040E14)
Source: Microsoft OLE DB Provider for ODBC Drivers


A lo mejor me estoy matando con esta forma y alguien tenga una mejor idea de como reflejar los resultados, Espero su ayuda, gracias por todo.
  #6 (permalink)  
Antiguo 26/07/2006, 11:47
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 1 mes
Puntos: 4
este post ya lo habia visto antes

Error de sintaxis (falta operador) en la expresión de consulta 'id='.

El error parece ser muy descriptivo, falta el valor de la comparación, Request.QueryString("nombreText") Q se supone q es este cierto ?
pero en tu form tienes el metodo POST, por lo tanto usa Request.form("nombreText") .

  #7 (permalink)  
Antiguo 26/07/2006, 12:03
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
simplemente no queda

Si efectivamente compañero orharo2003, ya lo habias visto, esta es la tercera ves que lo pongo y aun asi, nada. Ya hice lo que me respondiste y el problema que da de esta forma:
En el codigo:
s-sql="SELECT Tipo_Producto FROM Precios WHERE id=" & Request.form("nombreText")
fp_sQry="SELECT Tipo_Producto FROM Precios WHERE id="

y en la parte de la pagina cuando lo corro me arroja el error:
Database Results Error
Description: [Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'id='. Number: -2147217900 (0x80040E14)
Source: Microsoft OLE DB Provider for ODBC Drivers.

Si en lugar de & Request.form("nombreText") lo sustituyo por un numero, si ma arroja el resultado, me da perfectamente los campos que deseo ver en mi tabla, pero no con esa comparacion, Alguna idea o sugerencia.
  #8 (permalink)  
Antiguo 26/07/2006, 12:22
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Cita:
Iniciado por jbco
Si efectivamente compañero orharo2003, ya lo habias visto, esta es la tercera ves que lo pongo
Bueno, tratá de no colocarlo 3 veces . Con una sola es suficiente.
Uní tus dos mensajes de éste foro en este mismo tema y este que colocaste en el foro javascript lo reporté para que lo eliminen


Con respecto a tu problema, la verdad que ni sé como ayudarte porque desconozco qué hace frontpage y su maldito código basura encerrado dentro de los "webbot bot"
__________________
...___...
  #9 (permalink)  
Antiguo 26/07/2006, 13:19
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
Continuan las ideas y el problema

Pues muchas gracias Al Zuwaga, ya me pase toda la mañana intentando hacer esto y no sale, me pensado en guerdar el valor en elguna variable, o en ves de insertar una consulta dentro de esa celda podría inservar un select y de ahi, ver los registros que necesito. Voy a checar las FAQ's a ver que encuentro gracias. Y si hay algunas sugerencias, se los agradesco.
  #10 (permalink)  
Antiguo 26/07/2006, 14:04
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
Buen, pues depues de lo anterior he decidio cambiar la insercion de una consulta sql en la tabla por un menu desplegable, me quedo de esta manera:
<select size="5" name="Tipo">
<% strSQL = "SELECT * FROM Precios Where id=" & Request.Form("Producto")
Set RS = oConn.Execute(strSQL)
while not Rs.EOF%>
<option value="<%=rs("Id")%>"> <%=rs("Tipo_Producto")%></option>
<%Rs.movenext
wend
Rs.close%></select>

Y de nuevo me marca error al en el WHERE, es este error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'id='.

Y ahora que estoy haciendo mal? alguien me puede decir? ya lo he intentado de todas las maneras que me han dicho anteriormente, asi como me lo ponen en sus respuestas, que pasa?
  #11 (permalink)  
Antiguo 26/07/2006, 14:23
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
probá de cambiar todas las apariciones de...
Código:
fp_sQry="SELECT Tipo_Producto FROM Precios WHERE id="
primero por...
Código:
fp_sQry="SELECT Tipo_Producto FROM Precios WHERE id=" & Request.QueryString("nombreText")
y si no funciona por...
Código:
fp_sQry="SELECT Tipo_Producto FROM Precios WHERE id=" & Request.Form("nombreText")
__________________
...___...
  #12 (permalink)  
Antiguo 27/07/2006, 13:21
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
como les dije, cambie todo el codigo basura por un select, un combo, pero aun asi me sigue dando el mismo error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'Id='.
/compras.asp, línea 54


donde la linea 54 es: Set RS = oConn.Execute(strSQL)

y la parte del codigo es la siguiente:

<select size="5" name="Tipo" onchange="nombreText.value">
<% strSQL = "SELECT * FROM Precios Where Id=" & Request.Form("nombreText")
Set RS = oConn.Execute(strSQL)
while not Rs.EOF%>
<option value="<%=rs("Id")%>"> <%=rs("Tipo_Producto")%></option>
<%Rs.movenext
wend
Rs.close%></select>


Les comento q aparte de este menu desplegable, tengo otro, sera el nombre del RS que debo cambiar, pero el problema principal me lo sigue dando la sentencia sql en la condicion de WHERE. Espero su ayuda.
  #13 (permalink)  
Antiguo 27/07/2006, 14:18
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Qué tipo de dato es ese campo Id?
Puedes poner la estructura de tu tabla?

saludos
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #14 (permalink)  
Antiguo 27/07/2006, 14:45
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Ahhh... pasa que nombreText es un input text que está en la misma página del script! Por eso no recoge nada, puesto no se ha efectuado ningún submit.

Yo no sé qué hace exactamete tu código ni qué debería hacer, pero veamos si al menos esto funciona:

Código:
<select size="5" name="Tipo" onchange="nombreText.value">
<%
strSQL = "SELECT * FROM Precios"
if Request("nombreText") <> "" then
strSQL = strSQL & " Where Id=" & Request.Form("nombreText")
end if
Set RS = oConn.Execute(strSQL)
while not Rs.EOF
%>
<option value="<%=rs("Id")%>"> <%=rs("Tipo_Producto")%></option>
<%
Rs.movenext
wend
Rs.close
%></select>

Lo que está en rojo es lo que modifiqué. Probalo y comentanos
__________________
...___...
  #15 (permalink)  
Antiguo 28/07/2006, 13:52
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
hola, Al Zuwaga el codigo que me mandaste si filtra esa opcion y no me manda error, pero tampoco me imprime nada, y hasta donde estuve checando hoy el error no es el value, ni la sentencia, esta en la concatenacion de & Request.Form("nombreText") o & Request.Form("Producto"), ya que esto no tiene ningun valor, no tiene nada y cuando lo imprimo, no me improme ningun valor.
Este es mi codigo actual:
Código HTML:
<%@ Language=VBScript%>
<% Dim oConn,strSQL, objRS, var
Set oConn = Server.CreateObject("ADODB.Connection") 
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./Ventas.mdb"))%>

<html> <head>
<link rel="STYLESHEET" type="text/css" href="css/letras.css">
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ventas</title> </head>

<body>

<h1 align="center">Venta de productos</h1>
<form name="combo" Method="POST">
<p align="center">Seleccione el producto a comprar:&nbsp;

<select name="Producto"
onchange="nombreText.value = this.options[this.selectedIndex].value">
<% strSQL = "SELECT * FROM Productos ORDER BY Productos"
Set RS = oConn.Execute(strSQL)
while not Rs.EOF%> 
	<option value="<%=rs("Id")%>"> <%=rs("Productos")%></option> 
<%Rs.movenext 
wend
Rs.close%> </select>
<input type="text" name="nombreText" size="5">

<table border="1" width="80%" height="58" align="center">
  <tr>
    <td width="25%" height="1" align="center">
      <p align="center"><b>PRODUCTOS</b></p>
    </td><td width="13%" height="1" align="center">
      <p align="center"><b>Cantidad</b></p>
    </td>
    <td width="12%" height="1" align="center">
      <p align="center"><b>Comprar</b></p>
    </td><td width="21%" height="1" align="center">
      <p align="center"><b>Precio</b></p>
    </td>
    <td width="29%" height="1" align="center">
      <p align="center"><b>Sub-Total</b></p>
    </td>
  </tr>
  <tr>
    <td width="25%" height="1">
    
      <select size="5" name="Tipo"
      onchange="nombre.value = this.options[this.selectedIndex].value">
      var = nombre.value
	<% strSQL = "SELECT * FROM Precios WHERE id=1" 
	Set RS = oConn.Execute(strSQL)%>
<%while not Rs.EOF%> 
<option value="<%=rs("Id")%>"> <%=rs("Tipo_Producto")%></option> -->
<%Rs.movenext 
wend
Rs.close%></select>
    <p>&nbsp;
    
    </td>
    <td width="12%" height="1" align="center">
      <p align="center"><input type="checkbox" name="Copolvo" value="ON"></p>
    </td>
    <td width="21%" height="1">
       jesus
<input type="text" name="nombre" size="5"><%Response.write Request.Form(nombre)%>
    </td>
    <td width="29%" height="1">
      <p align="center"></td>
  </tr>
</table></Form></body> 
mis tabala por el momento esta asi:
BD: Ventas
Tablas: Precio y Productos:
*-------------------------*
l............Precios...............l ........Id=Numérico
*-------------------------*........Tipo_Producto=Texto
l Id lTipo_Producto.lPreciosl ........Precios=Moneda
*---*-------------*------*
l 1 lPolvo Fino......l 1.50...l
l 1 lPolvo labado...l 1.23...l
l 2 lGrava............l 2.00...l
l 3 lGravilla..........l 1.36...l
*--*--------------*------*

Espero me hay explicado, gracias por su ayuda. Y disculpen las molestias.

Última edición por jbco; 28/07/2006 a las 13:57
  #16 (permalink)  
Antiguo 31/07/2006, 14:34
 
Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años
Puntos: 1
No me va a ganar

Hola, creo q ya fastidio un poco con esto pero aqui continuo dandole con el mismo problema, ahora leyendo un poco mas encontre esto y modifique.

<select size="5" name="Tipo" onchange="nombre.value = this.options[this.selectedIndex].value">
<% strSQL = "select * from Precios where Id='" & Request.QueryString("Producto") & "'"
Set RS = oConn.Execute(strSQL)%>
<%while not Rs.EOF%>
<option value="<%=rs("Id")%>"> <%=rs("Tipo_Producto")%></option>
<%Rs.movenext
wend
Rs.close%></select>

Pero ahora el erro es este:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.
/compras.asp, línea 53

y la 53 es: Set RS = oConn.Execute(strSQL)%>

Alguna ayudita?....
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 13:12.