I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Luca1317
Luca1317
il 30 ottobre 2008 alle 00:56
23 messaggi dal 01 maggio 2006
Ho la necessità di recuperare dei valori dal database in 2 campi di testo quando seleziono un valore da una select (valore che viene sempre pescato dal database).

in pratica nella select pesco il valore "nome" per es. del terzo record e i due campi di testo nello stesso form devono restituirmi il valore "indirizzo" e "partita iva" dello stesso record.

il valore della prima select lo pesco così
        <%
'Scrivo la query sql
sql = "SELECT * FROM Rubrica order by ID DESC"

'creo il recordset
Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.Open sql, Conn, 3, 3
do while not Rec.eof 
valore=Rec("nome") 
nome=Rec("nome") 
response.write("<option value=" & nome &">" & valore &"</option>") 
Rec.movenext 
loop %>
        <option value="ND" selected>SELEZIONA...</option>
      </select>


..ma purtroppo non riesco a passare i valori alle 2 textarea

Qualcuno può darmi una mano?
RispondiQuoting
SUPERPIPPO2005
SUPERPIPPO2005
il 2 novembre 2008 alle 20:33
308 messaggi dal 13 luglio 2005
Ciao Luca1317,
ti posto il codice che dovrebbe fare al caso tuo ...
Ho modificato qualcosa qua e là: ho inserito una funzione in javascript che, come l'auto postback di ASP.NET, al modificare (onChange) della selezione nella select provoca un reload della pagina (la pagina l'ho chiamata prova.asp, ma devi mettere il nome della tua pagina!). Ricaricandosi la pagina viene passato l'ID del nome selezionato e un secondo recordset (che ho chiamato Rec1) cerca i dati relativi a quell'ID ... ... è più facile a farsi che a dirsi ...

Guardati il codice e se hai dubbi fammi sapere.
... e soprattutto dimmi se funziona!

Ciao

Umb

<head>
<title></title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args = MM_goToURL.arguments; document.MM_returnValue = false;
for (i = 0; i < (args.length - 1); i += 2) eval(args[i] + ".location='" + args[i + 1] + "'");
}
//-->
</script>
</head>
<body>
<%
IDSelezionato = "-1"
If Request("Nome") <> "" AND Request("Nome") <> "ND" Then IDSelezionato = CStr(Request("Nome"))

'Scrivo la query sql per la ricerca dei dati del nome selezionato
sql1 = "SELECT * FROM Rubrica WHERE ID = " & IDSelezionato

'creo il recordset
Set Rec1 = Server.CreateObject ("ADODB.Recordset")
Rec1.Open sql1, Conn, 3, 3

Indirizzo=""
PartIVA=""
If not Rec1.eof Then
If NOT IsNull(Rec1("Indirizzo")) Then Indirizzo=Rec1("Indirizzo")
If NOT IsNull(Rec1("PartIVA")) Then PartIVA=Rec1("PartIVA")
End If
%>

<select name="ElencoNomi" id="ElencoNomi" onchange="MM_goToURL('parent','Prova.asp?Nome=' + this.options[this.selectedIndex].value + '');return document.MM_returnValue">
<option value="ND" selected="selected">SELEZIONA...</option>
<%
'Scrivo la query sql
sql = "SELECT * FROM Rubrica order by ID DESC"

'creo il recordset
Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.Open sql, Conn, 3, 3
do while not Rec.eof
valore=CStr(Rec("ID"))
nome=Rec("nome")
response.write("<option value=" & valore &">" & nome &"</option>")
Rec.movenext
loop
%>
</select>

<textarea id="Indirizzo" cols="20" name="Indirizzo" rows="2"><%=(Indirizzo) %></textarea>
<textarea id="PartIVA" cols="20" name="PartIVA" rows="2"><%=(PartIVA) %></textarea>
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.