Aiuto ComboBox

**LaFleur** · 30-01-2012, 20:49

Salve ragazzi

Devo fare un progetto per un esame, che riguarda un sito web collegato a un databse per la gestione di un catalogo di scarpe. La pagina principale deve avere tra combo box una contiene i modelli delle scarpe, l'altra il colore e l'ultima i numeri. Sono riuscito a caricare le combo al database ora devo mostrare quello che ce nel catalogo selezionando o il tipo di scarpa o il colore o il numero nelle combo box, mi potete spiegare come posso fare??? quale metodo usare???

**lucavizzi** · 30-01-2012, 22:46

Io farei tre tabelle nel DB:

1) Scarpe (ID,Modello,IDColore,IDNumero)
2) Colori (ID,Colore)
3) Numeri (ID,Numero)

<select name="modelli">
<option value="1">Nome del modello con ID 1</option>
...
</select>
SQL="Select * From Scarpe Where ID="&Request.Form("modelli")

<select name="colori">
<option value="1">Rosso (Nome del colore con ID 1)</option>
...
</select>
SQL="Select * From Scarpe Where IDColore="&Request.Form("colori")

<select name="numeri">
<option value="1">42 (Numero associato all'ID 1)</option>
...
</select>
SQL="Select * From Scarpe Where IDNumero="&Request.Form("numeri")

**LaFleur** · 30-01-2012, 23:39

Originariamente inviato da lucavizzi
Io farei tre tabelle nel DB:

1) Scarpe (ID,Modello,IDColore,IDNumero)
2) Colori (ID,Colore)
3) Numeri (ID,Numero)

<select name="modelli">
<option value="1">Nome del modello con ID 1</option>
...
</select>
SQL="Select * From Scarpe Where ID="&Request.Form("modelli")

<select name="colori">
<option value="1">Rosso (Nome del colore con ID 1)</option>
...
</select>
SQL="Select * From Scarpe Where IDColore="&Request.Form("colori")

<select name="numeri">
<option value="1">42 (Numero associato all'ID 1)</option>
...
</select>
SQL="Select * From Scarpe Where IDNumero="&Request.Form("numeri")

Il database me lo ha dato il professore lo ha fatto lui ed è così:

Items(ID_Items,ModelloScarpa,Colore,Numero,Prenota ti)
Numero(ID,Descrizione)
Colore(ID,Descrizione)
ModelloScarpa(ID,Descrizione)

Questo è il codice di quello che ho fatto fino adesso vedi se ci riesci a capire qualcosa

:

codice:

<html>
	<body>
		<%
			on error resume next
			
			Set cn=Server.CreateObject("ADODB.Connection")
            
			cn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ= " & Server.MapPath("Calzaturificio.mdb")
			
			if Err.Number <> 0 then
				Response.Write "Errore= " & Err.Description
			else
				Set rs=Server.CreateObject("ADODB.RecordSet")
				
				rs.Open "SELECT * FROM Impresa",cn

				Response.Write "<TABLE align=center border=10>"
				Response.Write "<TR>"
				Response.Write "<TH>" & "Denominazione" & "</TH>"
				Response.Write "<TH>" & "Via" & "</TH>"
                Response.Write "<TH>" & "CAP" & "</TH>"
                Response.Write "<TH>" & "Citta" & "</TH>"
                Response.Write "<TH>" & "Telefono" & "</TH>"
               	Response.Write "<TH>" & "Fax" & "</TH>"
                Response.Write "<TH>" & "e-Mail" & "</TH>"
				Response.Write "</TR>"
				Response.Write "<TR>"
				Response.Write "<TD align=center>" & rs.Fields("Denominazione") & "</TD>"
	           	Response.Write "<TD align=center>" & rs.Fields("Via") & "</TD>"
                Response.Write "<TD align=center>" & rs.Fields("CAP") & "</TD>"
            	Response.Write "<TD align=center>" & rs.Fields("Citta") & "</TD>"
                Response.Write "<TD align=center>" & rs.Fields("Telefono") & "</TD>"
                Response.Write "<TD align=center>" & rs.Fields("Fax") & "</TD>"
                Response.Write "<TD align=center>" & rs.Fields("e-Mail") & "</TD>"
				Response.Write "</TR>"
                Response.Write "</TABLE>"
                Response.Write "<CENTER>" & "

" & "" & "<H2>" & "CATALOGO" & "</H2>" & "" & "</CENTER>"   
                rs.Close
				rs.Open "SELECT ID, Descrizione FROM ModelloScarpa",cn
				Response.Write "<TABLE align = center border=10>"
				Response.Write "<TR>"
                Response.Write "<TH align=center>" & "Sel. Modello" & "</TH>"
                Response.Write "<TH align=center>" & "Sel. Colore" & "</TH>"
                Response.Write "<TH align=center>" & "Sel. Numero" & "</TH>"
                Response.Write "</TR>"
                Response.Write "<TR>"
                Response.Write "<TD>"
				Response.Write  "<Select Name=cmbScarpe>"
                Response.Write "<option>" &"Nessuna Scelta"& "</option>"
				    DO UNTIL rs.EOF
					  
					Response.Write"<option value="&rs(0)&">" & rs(1) &  "</option>"
					rs.MoveNext
				LOOP
				Response.Write"</select>"
                Response.Write "</TD>"
                
                
				rs.Close
				rs.Open "SELECT * FROM Colore"
                
                Response.Write "<TD>"
				Response.Write "<Select size=1 Name=cmbColore>" 
				Response.Write "<option>"  & "Nessuna Scelta" &  "</option>"
                	DO WHILE NOT rs.EOF
					    Response.Write "<option value="& rs(0)&">"  & rs.Fields("Descrizione") &  "</option>"
					    rs.MoveNext
					
				    LOOP
				Response.Write"</select>"
                
                Response.Write "</TD>"
                
				rs.Close
				rs.Open "SELECT ID, Descrizione FROM Numeri" 
                Response.Write "<TD>"
				Response.Write "<Select size=1 Name=cmbNumeri>" 
				Response.Write "<option>"  & "Nessuna Scelta" &  "</option>"
                	DO WHILE NOT rs.EOF
					    Response.Write "<option value="& rs(0)&">"  & rs.Fields("Descrizione") &  "</option>"
					    rs.MoveNext
					LOOP
				Response.Write"</select>"
                Response.Write"</TR>"
                Response.Write"</TABLE>"
				rs.Close
                
                rs.Open "SELECT ModelloScarpa.Descrizione, Colore.Descrizione, Numeri.Descrizione, Items.Quantita, Items.Prenotati FROM ModelloScarpa, Colore, Numeri, Items WHERE ModelloScarpa.ID=Items.ModelloScarpa AND Colore.ID=Items.Colore AND Numeri.ID = Items.Numeri"
                Response.Write"
"
                Response.Write"<TABLE align = center border=10>"
                Response.Write"<TR>"
                Response.Write"<TH align= center>" &"Modello Scarpa"&"</TH>" 
                Response.Write"<TH align=center>" &"Colore"& "</TH>"
                Response.Write"<TH align=center>" &"Numero Scarpa"& "</TH>"
                Response.Write"<TH align=center>" &"Quantita'"& "</TH>"
                Response.Write"<TH align = center>" &"Prenotati"& "</TH>"
                Response.Write"</TR>"
                DO WHILE NOT rs.EOF
                        Response.Write"<TR>"
					    Response.Write "<TD>" & rs(0) & "</TD>"
                        Response.Write "<TD>" & rs(1) & "</TD>"
                        Response.Write "<TD>" & rs(2) & "</TD>"
                        Response.Write "<TD>" & rs(3) & "</TD>"
                        Response.Write "<TD>" & rs(4) & "</TD>"
                        Response.Write"</TR>"
					    rs.MoveNext
				LOOP
                Response.Write"</TABLE>"
                rs.Close
			end if
			cn.Close %>
		
		
	</body>
</html>

**cavicchiandrea** · 31-01-2012, 00:30

Originariamente inviato da LaFleur
Salve ragazzi

Devo fare un progetto per un esame ...
...

Questo è il codice di quello che ho fatto fino adesso vedi se ci riesci a capire qualcosa

:

Dovendo fare un l'esame dovresti essere tu a capire qualcosa, altrimenti a cosa serve l'esame

**LaFleur** · 31-01-2012, 09:15

Originariamente inviato da cavicchiandrea
Dovendo fare un l'esame dovresti essere tu a capire qualcosa, altrimenti a cosa serve l'esame

Guarda che il codice che ho scritto l'ho capito, siccome è tanto lungo per uno che lo va a leggere potrebbe essere complicato...
poi io stò chiedendo aiuto sulle proprietà delle combo box perché non le trovo online quindi che vuoi??? se non ti interessa darmi una mano non ce bisogno di scrivere certe cose

**cavicchiandrea** · 31-01-2012, 10:22

Originariamente inviato da LaFleur
Guarda che il codice che ho scritto l'ho capito, siccome è tanto lungo per uno che lo va a leggere potrebbe essere complicato...
poi io stò chiedendo aiuto sulle proprietà delle combo box perché non le trovo online quindi che vuoi??? se non ti interessa darmi una mano non ce bisogno di scrivere certe cose

Stai calmo, ho solo espresso un opinione educatamente che buoi benissimo ignorare

**LaFleur** · 31-01-2012, 11:01

Originariamente inviato da cavicchiandrea
Stai calmo, ho solo espresso un opinione educatamente che buoi benissimo ignorare

Scusa non volevo offendere nessuno, volevo solo dire che il codice che ho inserito l'ho fatto io e so quello che fa, girando per il forum ho visto che rispondi a diverse domande su asp, quindi mi potresti dare una mano???

**cavicchiandrea** · 31-01-2012, 11:17

Numero(ID,Descrizione)
Colore(ID,Descrizione)
ModelloScarpa(ID,Descrizione)
L'id è uguale per tutte e tre le tabelle?

**LaFleur** · 31-01-2012, 11:32

Originariamente inviato da cavicchiandrea
Numero(ID,Descrizione)
Colore(ID,Descrizione)
ModelloScarpa(ID,Descrizione)
L'id è uguale per tutte e tre le tabelle?

le seguenti tabelle
Numero(ID,Descrizione)
Colore(ID,Descrizione)
ModelloScarpa(ID,Descrizione)

l'ID è la loro chiave primaria e non sono collegate fra loro, sono invece collegate con la tabella Items:
Items(ID_Items,ModelloScarpa,Colore,Numero,Prenota ti)
dove Items.ModelloScarpa è uguale a ModelloScarpa.ID della tabella ModelloScarpa
Items.Colore è uguale a Colore.ID e così via

**Grambo** · 31-01-2012, 12:15

Originariamente inviato da LaFleur
Salve ragazzi

Devo fare un progetto per un esame, che riguarda un sito web collegato a un databse per la gestione di un catalogo di scarpe. La pagina principale deve avere tra combo box una contiene i modelli delle scarpe, l'altra il colore e l'ultima i numeri. Sono riuscito a caricare le combo al database ora devo mostrare quello che ce nel catalogo selezionando o il tipo di scarpa o il colore o il numero nelle combo box, mi potete spiegare come posso fare??? quale metodo usare???

ad esempio vuoi che se seleziono il n° 42 deve apparire tutto ciò che c'è nel db con n°=42?

se si è una semplicissima WHERE .. non capisco dov'è il tuo problema

Discussione: Aiuto ComboBox

Strumenti discussione

Ricerca discussione

Visualizza

Aiuto ComboBox

Re: Aiuto ComboBox

Permessi di invio