Retroceder   Foros del Web > Programación para sitios web > ASP Clásico

Respuesta
 
Herramientas Desplegado
Antiguo 18-abr-2008, 00:42   #1 (permalink)
FlashO ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2008
Mensajes: 27
select from where

Hola ¡¡¡

Tengo un select múltiple en el cual quiero recoger los valores que se pulsan del siguiente modo:

Si el usuario pulsa dos registros, quiero que se introduzca en mi tabla dos registros haciendo referencia a esos dos por una tabla de relación.
En el código que pongo más abajo con la línea comentada he conseguido que si por ejemplo el usuario pulsaba tres registros, se introdujera en mi tabla tres registros con el campo IDorig con valor 2.
Pero yo lo que quiero es que el valor de IDorig lo coja del campo id de una tabla llamada CATEGORIA donde el campo nombre de la tabla CATEGORIA sea el que el usuario ha seleccionado en el Select.

Por ejemplo:
El usuario selecciona en el select por ejemplo el equipo Valencia y Barcelona. Tendría que buscar en la tabla CATEGORIA los id's de Valencia y Barcelona, supongamos que son 10, 15.
Me introduciría dos registros en TABLANUEVA, uno con el campo IDorig 10 y otro con el campo IDorig 15.


Código:
<% Sub muestraArray(datos)
For i = LBound(datos) To UBound(datos) Step 1

'conexion.Execute ( "INSERT INTO TABLANUEVA (IDorig) VALUES ('2')" )

conexion.Execute ( "INSERT INTO TABLANUEVA (IDorig) SELECT id FROM CATEGORIAS where (nombre="&request.form("datos(i)")&")" )


Next
End Sub

equipo=request.form("equipo")

Dim equipos(), I 
I = 0 
For Each Valor In Request.Form("equipo") 
    Redim Preserve equipos(I) 
    equipos(I) = Valor 
    I = I + 1 
Next 

muestraArray(equipos)
%>

Un saludo ¡ ¡ ¡ ¡ ¡
FlashO está desconectado   Responder Citando
Antiguo 18-abr-2008, 05:47   #2 (permalink)
FlashO ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2008
Mensajes: 27
Re: select from where

Bien al final lo he hecho de la siguiente manera:

set rs = oConn.execute("select MAX(ID) from agenda")

tipo="0"
For Each Valor In Request.Form("seleccion")
oConn.Execute ("INSERT INTO TABLANUEVA (IDorig, IDcat, Tipo) VALUES ('"&rs(0)&"', '"&valor&"', '"&tipo&"')")
Next

En el select seleccion se carga la lista de productos con sus respectivas id's, por lo que aquí solo queda recorrerlo con el For Each.
FlashO está desconectado   Responder Citando
Respuesta
No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 05:34.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93