5 messaggi dal 07 giugno 2002
Ciao a tutti!

Ho il seguente enigma da risolvere: da un database access, ho una query che mi ricava: cliente e gruppo a cui appartiene. (es a,b,c gruppo alfabeto. 1,2,4 gruppo numero)
Dal web tramite form voglio valorizzare dei progetti effettuati sul cliente.

Quello che volevo è che in automatico quando dalla select, scelgo il cliente, mi venga aggiornato il gruppo.

Il codice per visualizzare il cliente è questo:



quote:
--------------------------------------------------------------------------------

<td>
<select name="CLIENTE">
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:/inetpub/wwwroot/mdb/progetti.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
Set objRs = objConn.Execute("QCLIENTI")
Do while NOT objRs.EOF
%>
<option value="objRS('clienti')"><%=objRS("clienti")%></option>
<%
objRs.Movenext
loop

ObjRs.Close
Set objRs=Nothing
ObjConn.close
Set ObjConn=Nothing
%>
</select>

--------------------------------------------------------------------------------



... e mi genera la select.

Mentre per l'altra pensavo di fare così:


quote:
--------------------------------------------------------------------------------

<td>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:/inetpub/wwwroot/mdb/progetti.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
Set objRs = objConn.Execute("SELECT gruppo FROM QCLIENTI")
%>
<input type="text" name="gruppo" size="60" value='<%=objRS("gruppo")%>'>
<%
ObjRs.Close
Set objRs=Nothing
ObjConn.close
Set ObjConn=Nothing
%>
</td>

--------------------------------------------------------------------------------

ma blocca solo il primo gruppo (non aggiorna).
Come posso fare per aggiornare il campo dinamicamente?

MSchievano

MSchievano
164 messaggi dal 27 novembre 2001
Non ho capito. Repeat please

 Marco "Scetticus"

Marco "Scetticus"
5 messaggi dal 07 giugno 2002
Volevo fare in modo che quando da una form ( campo a tendina)scelgo il cliente, mi aggiorni in automatico anche il gruppo al quale il cliente appartiene.
Es: A => gruppo alfabeto
es: 1 => gruppo numerico

Questi dati sono presenti su un database nel quale vi è cliente-gruppo.

MSchievano

MSchievano
2.907 messaggi dal 15 maggio 2001
Contributi
Fai un'unica query per ricavare tutti e due i dati delle Select così ti risparmi una connessione superflua .......

esempio :

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:/inetpub/wwwroot/mdb/progetti.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
Set objRs = objConn.Execute(query)
%>

<select name="CLIENTE">
<%
Do while not objRs.EOF
%>
<option value="objRS('clienti')"><%=objRS("clienti")%></option>
<%
objRs.Movenext
loop
%>
<% if Not objRs.EOF then %>
<input type="text" name="gruppo" size="60" value='<%=objRS("gruppo")%>'>
<%
ObjRs.Close
Set objRs=Nothing
ObjConn.close
Set ObjConn=Nothing
%>

Per far sì che si modifichi devi fare in questo modo :

Devi usare un javascript
<script language="javascript">
function invia(){
document.nomeform.action='stessa_pagina.asp?scelto=self.document.nomeform.CLIENTE.options[self.document.nomeform.CLIENTE.selectedIndex].value'
}
</script>

<select name="CLIENTE" OnChange="invia()">


Poi in alto ad inizio pagina ricavi la variabile scelto con il Request.QueryString

<%
if Request.QueryString("scelto")="" then

query="SELECT gruppo,clienti FROM QCLIENTI"

Else

query="Select gruppo,clienti FROM QCLIENTI Where clienti='"&Request.QueryString("scelto")&"'"

end if

%>

Rome Webmaster







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.