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

Cargar y Luego recuperar el valor

Estas en el tema de Cargar y Luego recuperar el valor en el foro de ASP Clásico en Foros del Web. Amigos: Soy novato en esta programación y mi problema es cargar datos de un DB a un combo box y luego en cualquier momento seleccionar ...
  #1 (permalink)  
Antiguo 30/03/2011, 15:20
 
Fecha de Ingreso: marzo-2011
Mensajes: 5
Antigüedad: 13 años
Puntos: 0
Cargar y Luego recuperar el valor

Amigos:
Soy novato en esta programación y mi problema es cargar datos de un DB a un combo box y luego en cualquier momento seleccionar algun dato de ese combobox para generar alguna accion.

muchas gracias
  #2 (permalink)  
Antiguo 30/03/2011, 18:20
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 16 años, 4 meses
Puntos: 54
Respuesta: Cargar y Luego recuperar el valor

el primer paso es crear un algoritmo, más aun si eres novato te ayudará bastante crearte un diagrama de flujo que contenga el funcionamiento de tu aplicacion.

de lo que puedo leerte te voy haciendo un algoritmo basico:

Código ASP:
Ver original
  1. Conectamos a la base de datos
  2. |_ Cargamos los datos en un combobox
  3.     |_ Usuario selecciona un item del combobox
  4.         |_ Generamos una accion en el servidor
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"
  #3 (permalink)  
Antiguo 30/03/2011, 20:55
 
Fecha de Ingreso: marzo-2011
Mensajes: 5
Antigüedad: 13 años
Puntos: 0
Respuesta: Cargar y Luego recuperar el valor

Muchas gracias por la respuesta, el paso 1 y 2 estan listos, lo que no se es como gatillar un evento al seleccionar alguna opcion desde del combobox, como por ejemplo tomar el valor del item e ir a buscar alguna informacion y llenar algunos edit en la pantalla.

muchas gracias
  #4 (permalink)  
Antiguo 30/03/2011, 21:01
Avatar de Joch_pa  
Fecha de Ingreso: octubre-2009
Ubicación: Pachuca De Soto, Hidalgo, Mexico, Mexico
Mensajes: 122
Antigüedad: 14 años, 5 meses
Puntos: 7
Respuesta: Cargar y Luego recuperar el valor

Con el evento onchange del <select>

osea
Código HTML:
Ver original
  1. <select name="cbo1" id="cbo1" onchange="document.form[0].submit();">
  2.  ....

en el evento onchange puedes decirle que llame una funcion de javascript o vbscript (se ejecuta del lado del cliente) yo le puse que enviara el form al servidor, para ahi procesar la respuesta, (como en el asp le pondria cbo1=request.form("cbo1"))
  #5 (permalink)  
Antiguo 31/03/2011, 06:42
 
Fecha de Ingreso: marzo-2011
Mensajes: 5
Antigüedad: 13 años
Puntos: 0
Respuesta: Cargar y Luego recuperar el valor

el problema que al cargar la pagina se me pierden los datos ingresados anteriormente.

Sub MostrarTipoCamion()
Dim rs2, cx2
Dim SQL2
Dim aux3
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set cx2 = Server.CreateObject("ADODB.Connection")
cx2.Open Application("Inv")
SQL2 = " SELECT * "
SQL2 = SQL2 & " FROM Exit_TipoCamionFlete"
SQL2 = SQL2 & " order by DescripcionCamion"
'response.write" " &sql2
'response.write scamion
'response.end
rs2.open SQL2 ,cx2
Response.Write "<select name=""scamion"" onchange=""javascript:id_TipCamion();"" >"
Response.Write "<option value=0>Seleccionar</option>"

Do While Not rs2.EOF
If scamion = (rs2("CodigoCamion"))then
aux3 = rs2("DescripcionCamion")
Response.Write "<option value='" & rs2("CodigoCamion") & "' selected>" & aux3 & "</option>" & vbCrLf
Else
Response.Write "<option value='" & rs2("CodigoCamion") & "'>" & rs2("DescripcionCamion") &"</option>" & vbCrLf
End If
rs2.MoveNext
Loop
Response.Write "</select>"
rs2.Close
cx2.Close
Set rs2 = Nothing
Set cx2 = Nothing
' Tipo = TipoCamion.Value


End Sub

Response.Write "" & vbCrLf
Response.Write " function id_TipCamion()" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " var oForm = document.FormObs;" & vbCrLf
Response.Write " var Tipo =document.FormObs.scamion[ document.FormObs.scamion.selectedIndex ].value;" & vbCrLf
Response.Write " location.href = 'Exit_DespachoOrdenCompraBodegaCentral.asp?lUsuari oID=" & lUsuarioID & "CodBodega="& lBodega &"&EmpId="& IdEmpresa & "&Folio="& Folio &"&NroDoc="& NroDocumento &"&FechaDocRec="& sFechaInicio & "&lidOC="& lNumeroOc & "&NumGuiaDes="& NumGuiaDes & "&Param="& Parametro & "&scamion=' + document.FormObs.scamion[ document.FormObs.scamion.selectedIndex ].value;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "</script>"

gracias
  #6 (permalink)  
Antiguo 31/03/2011, 18:26
Avatar de Joch_pa  
Fecha de Ingreso: octubre-2009
Ubicación: Pachuca De Soto, Hidalgo, Mexico, Mexico
Mensajes: 122
Antigüedad: 14 años, 5 meses
Puntos: 7
Respuesta: Cargar y Luego recuperar el valor

seria algo asi?

Código ASP:
Ver original
  1. Sub MostrarTipoCamion()
  2.     Dim rs2, cx2
  3.     Dim SQL2
  4.     Dim aux3
  5.     Set rs2 = Server.CreateObject("ADODB.Recordset")
  6.     Set cx2 = Server.CreateObject("ADODB.Connection")
  7.     cx2.Open Application("Inv")
  8.     SQL2 = " SELECT * "
  9.     SQL2 = SQL2 & " FROM Exit_TipoCamionFlete"
  10.     SQL2 = SQL2 & " order by DescripcionCamion"
  11.  
  12.     scamion = request.form("scamion")
  13.     if scamion= "" then scamion = 0
  14.     rs2.open SQL2 ,cx2
  15.     Response.Write "<select name=""scamion"" onchange=""javascript:id_TipCamion();"" >"
  16.     Response.Write "<option value=0>Seleccionar</option>"
  17.  
  18.     Do While Not rs2.EOF
  19.         tmpCC = rs2("CodigoCamion")
  20.         aux3 = rs2("DescripcionCamion")
  21.         selected  = ""
  22.  
  23.         if isnull(tmpCC) then tmpCC= -1
  24.         if not isnumeric(tmpCC) then tmpCC= -1
  25.         If cdbl(scamion) = cdbl(tmpCC) then selected = "selected"
  26.  
  27.         Response.Write "<option value=""" & tmpCC & """ "& selected &">" &_
  28.                                   server.htmlencode(aux3) & "</option>"
  29.  
  30.         rs2.MoveNext
  31.         response.flush
  32.     Loop
  33.     Response.Write "</select>"
  34.  
  35.     rs2.Close
  36.     cx2.Close
  37.     Set rs2 = Nothing
  38.     Set cx2 = Nothing
  39.  
  40. End Sub

creo que te hacia falta scamion = request.form("scamion") scamion es el nombre de la variable que le envia el navegador; cambie unas cosas para que funcionara mejor.

no abuses del response.write porque el server tarda mas en escribir
seria mejior que utilizaras %>HTML<% o <%=variable%>

Etiquetas: recuperar
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

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 12:07.