Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Combo y textbox

11/09/2003 - 22:20 por Yamil Castillo | Informe spam
Ayuda Hacer una pregunta
Hola Foro
En un combo estoy cargando la descripcion de los productos y en un texto,
quiero dejar el precio cuando le hago click en un producto del combo, el
problema es que estoy haciendo un script con el evento onchange del combo y
cargo nuevamente la tabla para que me despliegue el precio.
aca esta el codigo
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/cn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cn_STRING
Recordset1.Source = "SELECT NombreProducto FROM Productos ORDER BY
NombreProducto ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0

%>
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<SCRIPT LANGUAGE="vbscript">
OPTION EXPLICIT
Dim intSelected
Sub combo_OnChange
'intSelected = Form1.combo.selectedIndex
intSelected = Form1.combo.value
recuperar
Form1.text1.value = Valor

End Sub

sub recuperar
<%
Dim Rset1
Set Rset1 = Server.CreateObject("ADODB.Recordset")
Rset1.ActiveConnection = MM_cn_STRING
Rset1.Source = "SELECT NombreProducto, PrecioUnidad FROM Productos WHERE
NombreProducto = '" + Replace(intSelected, "'", "''") + "'"
Rset1.CursorType = 3
Rset1.CursorLocation = 3
Rset1.LockType = 3
Rset1.Open()
Valor = Rset1("PrecioUnidad")

%>
end sub
</SCRIPT>

<form name="form1" method="post" action="">
<p>
<select name="combo" id="combo"
title="<%=(Recordset1.Fields.Item("NombreProducto").Value)%>">
<%
While (NOT Recordset1.EOF)
%>
<option
value="<%=(Recordset1.Fields.Item("NombreProducto").Value)%>"><%=(Recordset1
.Fields.Item("NombreProducto").Value)%></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select>

</p>
<p>
<input type="text" name="text1">
</p>
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>




Atte.,
Yamil Castillo S.
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Matias Iacono
11/09/2003 - 22:45 | Informe spam
Y cual es el problema?



"Yamil Castillo" wrote in message
news:%
Hola Foro
En un combo estoy cargando la descripcion de los productos y en un texto,
quiero dejar el precio cuando le hago click en un producto del combo, el
problema es que estoy haciendo un script con el evento onchange del combo


y
cargo nuevamente la tabla para que me despliegue el precio.
aca esta el codigo
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/cn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cn_STRING
Recordset1.Source = "SELECT NombreProducto FROM Productos ORDER BY
NombreProducto ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0

%>
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<SCRIPT LANGUAGE="vbscript">
OPTION EXPLICIT
Dim intSelected
Sub combo_OnChange
'intSelected = Form1.combo.selectedIndex
intSelected = Form1.combo.value
recuperar
Form1.text1.value = Valor

End Sub

sub recuperar
<%
Dim Rset1
Set Rset1 = Server.CreateObject("ADODB.Recordset")
Rset1.ActiveConnection = MM_cn_STRING
Rset1.Source = "SELECT NombreProducto, PrecioUnidad FROM Productos WHERE
NombreProducto = '" + Replace(intSelected, "'", "''") + "'"
Rset1.CursorType = 3
Rset1.CursorLocation = 3
Rset1.LockType = 3
Rset1.Open()
Valor = Rset1("PrecioUnidad")

%>
end sub
</SCRIPT>

<form name="form1" method="post" action="">
<p>
<select name="combo" id="combo"
title="<%=(Recordset1.Fields.Item("NombreProducto").Value)%>">
<%
While (NOT Recordset1.EOF)
%>
<option



value="<%=(Recordset1.Fields.Item("NombreProducto").Value)%>"><%=(Recordset1
.Fields.Item("NombreProducto").Value)%></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select>

</p>
<p>
<input type="text" name="text1">
</p>
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>




Atte.,
Yamil Castillo S.



Preguntas similares

 

Busqueda sugerida :