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

Problemas para crear una lista con valores de base datos mysql

Estas en el tema de Problemas para crear una lista con valores de base datos mysql en el foro de ASP Clásico en Foros del Web. Tengo un item en un form en el cual quiero cargar una lista de numeros que estan guardados en una tabla mysql. La columna de ...
  #1 (permalink)  
Antiguo 08/06/2004, 08:31
 
Fecha de Ingreso: mayo-2004
Mensajes: 23
Antigüedad: 20 años, 1 mes
Puntos: 0
Problemas para crear una lista con valores de base datos mysql

Tengo un item en un form en el cual quiero cargar una lista de numeros que estan guardados en una tabla mysql. La columna de la tabla mysql de donde cojo los datos esta definida como int 8. En el form tambien tengo un boton.
Ahora mismo en la tabla mysql tengo tres numeros, 1, 2 y 3.
Quisiera lograr lo siguiente:

1- La primera vez que entro en el form, quisiera cargar los numeros en la lista y que quedase seleccionado el mayor numero. Para lograr esto, recorro la tabla en orden desdendente y cuando estoy tratando el primer registro, lo selecciono (escribo el texto 'selected'). Esto lo hace bien.

2- Quisiera que cuando el usuario elija un numero de los que he cargado, al pulsar el boton, se cargara la lista de la base de datos (los numeros 1, 2 y 3 adtualmente) y quedara seleccionado el numero elegido. Esto es lo que no logro hacer. Para esto, ejecuto la misma select que en el caso 1 y voy comparando cada numero de la base de datos con el request.form("rev"). El problema es que esta comparacion ->
if (request.form("rev") = ordenes_dd("revision_dd"))
nunca es true.
¿Que debo hacer?

Este es el codigo :

<% Option Explicit %> <!- Para que obligue a declarar toda variable utilizada ->




<html>
<head>
<title> Diseinurako datuak </title>



</head>
<body>

<h3 align= 'center'> DISEINURAKO ORRIAK / HOJAS DE DISEÑO </h3>

<%

'---------------------------------------------------------------------------------
' EJECUCION PRINCIPAL
'---------------------------------------------------------------------------------

Dim v_conn
Dim ordenes_dd
Dim v_rev
Dim v_veces
Dim cc_p1_dd
Dim nombre
Dim v_revision_dd
Dim indice
Dim v_elegido_sn
Dim cambio_pagina2
Dim p1_hf
Dim v_sql
Dim v_aux




response.write("<form name = 'diseno' action= 'TAR_LIST.asp' method = 'post'>")

' Dibujar lista de revisiones para esa of

response.write ("Berrik./Rev.")

set v_conn = Server.createobject ("adodb.connection")
v_conn.open "dd_hf"
set ordenes_dd = Server.createobject ("adodb.recordset")

ordenes_dd.open "select * from ordenes_dd where gpoftip_cod ='P' and n_orden=14005

order by revision_dd desc " , v_conn

v_rev = "<select name = 'rev' >"
v_veces = 0
do until ordenes_dd.eof
if (request.form("rev") <> "") then ' El usuario ha elegido una revision
if (request.form("rev") = ordenes_dd("revision_dd")) then
v_elegido_sn = "selected"
else
v_elegido_sn = ""
end if

v_rev=v_rev& "<option value = '" & ordenes_dd("revision_dd") & "'" &

v_elegido_sn & " >" & ordenes_dd("revision_dd") & "</option>"


else ' es la primera vez que entramos, visualizaremos la ultima revision
if (v_veces = 0) then
v_veces = 1
v_revision_dd = ordenes_dd("revision_dd") ' la ultima revision
v_rev=v_rev& "<option value = '" &ordenes_dd("revision_dd")& "' selected

>"&ordenes_dd("revision_dd")&"</option>"
else
v_rev=v_rev& "<option value = '" &ordenes_dd("revision_dd")&

"'>"&ordenes_dd("revision_dd")&"</option>"
end if
end if
ordenes_dd.movenext
loop

v_rev = v_rev & "</select>"


response.write(v_rev)
response.write("<input type='submit' name='b_cargar' value='Datuak kargatu'>")


ordenes_dd.close
set ordenes_dd = Nothing

v_conn.close
set v_conn = Nothing

response.write("</form>")



%>


</body>
</html>


Muchas Gracias.


Simplemente quiero añadir que no he probado a modificar la base de datos y en vez de int, definir el campo como varchar y en este caso no me da problemas. Yo necesito que el campo sea int, que puedo hacer?

Última edición por JaioneA; 08/06/2004 a las 09:07 Razón: Solo da problemas si el campo es int. Si es char no da problemas
  #2 (permalink)  
Antiguo 08/06/2004, 10:15
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á convirtiendo los dos valores a Int:


if (CInt(request.form("rev")) = CInt(ordenes_dd("revision_dd")))
  #3 (permalink)  
Antiguo 09/06/2004, 00:31
 
Fecha de Ingreso: mayo-2004
Mensajes: 23
Antigüedad: 20 años, 1 mes
Puntos: 0
Ahora funciona.
Muchisimas Gracias.
  #4 (permalink)  
Antiguo 09/06/2004, 09:47
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
de nada
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 02:13.