PDA

View Full Version : [ASP] Salvare valore COMBO


OrcaAssassina
12-01-2009, 17:04
Popolo una combo con i dati di una tebella

Set RsCitta = Server.CreateObject("ADODB.Recordset")
SqlCitta = "Select Citta from Case group by Citta"
RsCitta.Open SqlCitta, MyConn, 3,3


<% Do While Not RsCitta.EOF ' define the ListBox OPTIONs %>
<OPTION VALUE="<%= RsCitta("Citta") %>"> <%= RsCitta("Citta") %>
<% RsCitta.MoveNext %>
<% Loop %>
<% RsCitta.Close %>


Ora se vado a salvare il valore in un'altra tabella, mi scrive in questo caso il nome della città
Io invece vorrei che mi scrivesse l'ID a cui corrisponde quella città


Quindi quando premo INVIA, mi apre una nuova pagina dove mi esegui il codice:

dim strCitta
strCitta = request.form("T3")
T3 è la combo, in pratica assegno il valore della combo a questa variabile

sql = "SELECT * FROM Dati"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

rs.addnew
rs("Città") = strCitta
rs.update

Cosi facendo mi scrive la città e non l'ID, dove sbaglio???

Ciao e grazie

Kralizek
12-01-2009, 18:42
ma non è più facile ed intuitivo fare qualcosa tipo


<% Do While Not RsCitta.EOF ' define the ListBox OPTIONs %>
<OPTION VALUE="<%= RsCitta("ID") %>"> <%= RsCitta("Citta") %>
<% RsCitta.MoveNext %>
<% Loop %>
<% RsCitta.Close %>


dove "ID" è il codice della città che hai nel database.

o forse ho capito male il problema...

OrcaAssassina
12-01-2009, 20:20
ma non è più facile ed intuitivo fare qualcosa tipo


<% Do While Not RsCitta.EOF ' define the ListBox OPTIONs %>
<OPTION VALUE="<%= RsCitta("ID") %>"> <%= RsCitta("Citta") %>
<% RsCitta.MoveNext %>
<% Loop %>
<% RsCitta.Close %>


dove "ID" è il codice della città che hai nel database.

o forse ho capito male il problema...



ok ottimo

dopo lo provo