problemas con el Value

jbco · #1 (**permalink**) 24/07/2006, 14:29

hola amigos del desarrollo, tengo este formulario:

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

<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.

orharo2003 · #2 (**permalink**) 24/07/2006, 14:44

s-sql="SELECT Tipo_Producto FROM Precios WHERE id=" & request.form("Producto")

Myakire · #3 (**permalink**) 24/07/2006, 17:58

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

jbco · #4 (**permalink**) 25/07/2006, 08:38

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: 

<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>

<%
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
%>


<tr>
<td><%=FP_FieldVal(fp_rs,"Tipo_Producto")%>
</td>
</tr>


</tbody>
</table>
<p> 

</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.

jbco · #5 (**permalink**) 26/07/2006, 10:33

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: 

<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>

<%
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
%>


<tr>
<td><%=FP_FieldVal(fp_rs,"Tipo_Producto")%>
</td>
</tr>


</tbody>
</table>
<p> 

</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 · #6 (**permalink**) 26/07/2006, 11:47

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") .

jbco · #7 (**permalink**) 26/07/2006, 12:03

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.

AlZuwaga · #8 (**permalink**) 26/07/2006, 12:22

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"

jbco · #9 (**permalink**) 26/07/2006, 13:19

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.

jbco · #10 (**permalink**) 26/07/2006, 14:04

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?

AlZuwaga · #11 (**permalink**) 26/07/2006, 14:23

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")

jbco · #12 (**permalink**) 27/07/2006, 13:21

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.

u_goldman · #13 (**permalink**) 27/07/2006, 14:18

Qué tipo de dato es ese campo Id?
Puedes poner la estructura de tu tabla?

saludos

AlZuwaga · #14 (**permalink**) 27/07/2006, 14:45

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

jbco · #15 (**permalink**) 28/07/2006, 13:52

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.

jbco · #16 (**permalink**) 31/07/2006, 14:34

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?....