Problemas con valores

jbco · #1 (**permalink**) 19/07/2006, 14:23

Hola de nuevo amigos del Desarrollo Wed, aqui estoy de nuevo, aqui les presente este formulario. Verifiquen las lineas rojas para ver mi problema y evitar tanto royo.

<%@ Language=VBScript%>
<% Dim oConn,strSQL, objRS
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>

<body>
<h1 align="center">Venta de productos</h1>
<p align="center">Seleccione el producto a comprar: 

<select size="1" name="Producto" >
<% strSQL = "SELECT * FROM Productos ORDER BY Productos"
Set RS = oConn.Execute(strSQL)
while not Rs.EOF%>
<option value="<%var=rs.Fields("IdProductos")%>"> <%=rs.Fields("Productos")%></option>
<% Rs.movenext
wend
Rs.close %> </select> </p>

<table border="1" width="80%" height="79" 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">

<p> 
<table width="100%" border="1">
<thead>
</thead>
<tbody>
<!--webbot bot="DatabaseRegionStart" startspan
s-columnnames="NombreProducto" 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="NombreProducto" s-criteria s-order
s-sql="SELECT NombreProducto FROM Precios WHERE Precios.IDProductos=var"
b-procedure="FALSE" clientside SuggestedExt="asp"
s-DefaultFields="IdProductos="
s-NoRecordsFound="Ningún 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"
<%
fp_sQry="SELECT NombreProducto FROM Precios WHERE Precios.IDProductos=1"
fp_sDefault="IdProductos="
fp_sNoRecords="<tr><td colspan=1 align=left width=""100%"">Ningún 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
%>
</tbody>
</table>

</td>
<td width="13%" height="1">
<form method="POST" action="compras.asp" webbot-action="--WEBBOT-SELF--">
<p align="center"><input type="text" name="Cpolvo" size="15"></p>
</form>
</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">

<p align="center">

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

</body>

Lo que necesito por el momento es que value del Sect que se encuentre activo o seleccionado sea el valor condicional del Where, claro en lugar de var que tengo puesto, es algo mas o menos asi:
s-sql="SELECT NombreProducto FROM Precios WHERE Precios.IDProductos=Select.value"
ó
s-sql="SELECT NombreProducto FROM Precios WHERE Precios.IDProductos='var'",
pero asi no funciona, alguien sabe como.

Gracias por su ayuda.

SandraLl · #2 (**permalink**) 20/07/2006, 05:43

A ver, el problema esta aqui:
<option value="<%var=rs.Fields("IdProductos")%>"> <%=rs.Fields("Productos")%></option>

en el value no tienes que poner var=rs.Fields("IdProductos"), sino solamente asi:
<option value="<%rs.Fields("IdProductos")%>"> <%=rs.Fields("Productos")%></option>

no tienes que guardar el valor en la variable var, sino q ya lo guardas en el value.
Lo que ahora tienes q hacer es recoger el valor que tiene la opcion q has seleccionado y ese valor es el que le tienes que pasar en la select.
Seria algo asi:

for (i=0; i<=document.NombreFormulario.Producto.length-1; i++)
{
if(document.NombreFormulario.Producto.options[i].selected)
{
var = document.NombreFormulario.Producto.options[i].text;
}
}

Esto lo que hace es ir recorriendo todas las opciones que tu has cargado en el combo (que has llamado Producto), mira a ver cual es la que esta seleccionada, y coge el valor de esa.
Y luego con ese valor, que lo hemos guardado en var se le pasas a la select.

Lo unico que fallaria es que tu no tienes un formulario donde este contenido el combo. No se como se recogen los datos si no estan dentro de un formulario pero lo que si que puedes hacer es poner el form.
seria, donde empieza el body poner:
<form name="NombreFormulario">
y al terminar el body:
</form>

Espero que te ayude.

jbco · #3 (**permalink**) 20/07/2006, 14:49

Hola SandraLl,
Muchas gracias por tu ayuda, pero aun fallo, hice lo que me dijiste pero me marca erro de un aDODB. He verificado y mi comparacion despues del WHERE no es un variables es un campo, asi q por ese lado ya no tengo problema. el Problema ahora es que no actualiza auntomaticamente la tabla cuando seleccion algun material o producto, en el combo si se selecciona, pero la tabla no cambia. Gracias por todo, Espero continuen subienco sus comentarios que me son de mucha ayuda, he puesto otro tema con el mismo formulario, exponiendo el problema.