premetto che uso dreamweaver e di solito l'operazione di compilare un combo dispetto al valore selezionato su un'altro mi è sempre riuscita ....... ma i valori erano sempre presenti sulla stessa tabella access.
ho risistemato il bd lavorando con indici cosa migliore per non appesantirlo ed ora non riesco più a farlo funzionare .......
VI SPIEGO COSA DEVO FARE .
TRABELLE DB :
Nome db : Archivio_Storico
tabelle :
-------------------------------------------------------------
1. TipoBranca
ID - Branca
1 - L/C
2 - E/G
--------------------------------------------------------------
2. TipoUnita
IDUnita - Unita - ID_Branca
1 - reparto - 1
2 - reparto1 - 1
3 - reparto3 - 2
--------------------------------------------------------------
questa è la mia pagina io devo selezionare il conmo branche e di conseguenza si deve popolare il relativo combo unità
ma non funziona
GRAZIE PER L'AIUTO
codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Anno Dim Anno_numRows Set Anno = Server.CreateObject("ADODB.Recordset") Anno.ActiveConnection = MM_ArchivioStorico_STRING Anno.Source = "SELECT * FROM Anno ORDER BY Anno ASC" Anno.CursorType = 0 Anno.CursorLocation = 2 Anno.LockType = 1 Anno.Open() Anno_numRows = 0 %> <% Dim Branca Dim Branca_numRows Set Branca = Server.CreateObject("ADODB.Recordset") Branca.ActiveConnection = MM_ArchivioStorico_STRING Branca.Source = "SELECT * FROM TipoBranca ORDER BY ID ASC" Branca.CursorType = 0 Branca.CursorLocation = 2 Branca.LockType = 1 Branca.Open() Branca_numRows = 0 %> <% Dim Unita__VarBranca Unita__VarBranca = "1" If (Request.QueryString("Branca") <> "") Then Unita__VarBranca = Request.QueryString("Branca") End If %> <% Dim Unita Dim Unita_numRows Set Unita = Server.CreateObject("ADODB.Recordset") Unita.ActiveConnection = MM_ArchivioStorico_STRING Unita.Source = "SELECT TipoUnita.Unita FROM TipoBranca INNER JOIN TipoUnita ON TipoBranca.ID=TipoUnita.ID_Branca WHERE (((TipoUnita.ID_Branca)=" + Replace(Unita__VarBranca, "'", "''") + "));" Unita.CursorType = 0 Unita.CursorLocation = 2 Unita.LockType = 1 Unita.Open() Unita_numRows = 0 %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Documento senza titolo</title> <style type="text/css"> <!-- .Stile3 { color: #FFFFFF; font-weight: bold; font-size: 24px; } .Stile4 {color: #FFFFFF} .Stile6 {color: #FFFFFF; font-size: 12px; } --> </style> </head> <body> </p> </p> <table width="430" height="248" border="1" align="center"> <tr> <td width="420" height="228" bgcolor="#AA060D"><form action="" method="post" name="Ins_campi" id="Ins_campi"> <table width="315" border="0" align="center"> <tr> <td colspan="3"><div align="center" class="Stile3">Inserimento campi </div></td> </tr> <tr> <td width="110"><div align="right"><span class="Stile4">Anno : </span></div></td> <td colspan="2"><span class="Stile4"> <select name="Anno" id="Anno"> <% While (NOT Anno.EOF) %> <option value="<%=(Anno.Fields.Item("ID_anno").Value)%>"><%=(Anno.Fields.Item("Anno").Value)%></option> <% Anno.MoveNext() Wend If (Anno.CursorType > 0) Then Anno.MoveFirst Else Anno.Requery End If %> </select> </span></td> </tr> <tr> <td><div align="right"><span class="Stile4">Branca : </span></div></td> <td colspan="2"><span class="Stile4"> <select name="Branca" id="Branca" onChange="submit()"> <% While (NOT Branca.EOF) ' ########IN QUESTO MODI LA SELEZIONE RIMANE NEL COMBO ####### %> <option value="<%=(Branca.Fields.Item("ID").Value)%>" <%if Branca.Fields.Item("Branca").Value = Unita__Var then%> selected="selected"<%end if%> ><%=(Branca.Fields.Item("Branca").Value)%></option> <% ' ##### FINE ###### Branca.MoveNext() Wend If (Branca.CursorType > 0) Then Branca.MoveFirst Else Branca.Requery End If %> </select> </span></td> </tr> <tr> <td><div align="right"><span class="Stile4">Unità :</span></div></td> <td colspan="2"><span class="Stile4"> <select name="Unita" id="Unita"> <% While (NOT Unita.EOF) %> <option value="<%=(Unita.Fields.Item("Unita").Value)%>"><%=(Unita.Fields.Item("Unita").Value)%></option> <% Unita.MoveNext() Wend If (Unita.CursorType > 0) Then Unita.MoveFirst Else Unita.Requery End If %> </select> </span></td> </tr> <tr> <td><div align="right"><span class="Stile4">Tipo Campo : </span></div></td> <td><span class="Stile4"> <select name="TipoCampo" id="TipoCampo"> </select> </span></td> <td></td> </tr> <tr> <td><div align="right"><span class="Stile4">Luogo : </span></div></td> <td width="89"><span class="Stile4"> <select name="Luogo" id="Luogo"> </select> </span></td> <td width="102"></td> </tr> <tr> <td><div align="right"><span class="Stile4">Sq. Vincitrice </span></div></td> <td colspan="2"><span class="Stile4"> <select name="SQ" id="SQ"> </select> </span></td> </tr> <tr> <td><div align="right"></div></td> <td colspan="2"><span class="Stile4"> </span></td> </tr> <tr> <td colspan="3"><div align="center"> <input type="submit" name="Submit" value="Inserisci"> </div></td> </tr> </table> </form> </td> </tr> </table> </p> </p> </p> </body> </html> <% Anno.Close() Set Anno = Nothing %> <% Branca.Close() Set Branca = Nothing %> <% Unita.Close() Set Unita = Nothing %>
ho creato il mio recordset con le JOIN relative alle due tabelle e al posto del valore mumerico ho uinserito una varBranche che varia nel combo branche
ed ha riferimento alla sua select :codice:<% Dim Unita__VarBranca Unita__VarBranca = "1" If (Request.QueryString("Branca") <> "") Then Unita__VarBranca = Request.QueryString("Branca") End If %>
ma non va ???????codice:Set Unita = Server.CreateObject("ADODB.Recordset") Unita.ActiveConnection = MM_ArchivioStorico_STRING Unita.Source = "SELECT TipoUnita.Unita FROM TipoBranca INNER JOIN TipoUnita ON TipoBranca.ID=TipoUnita.ID_Branca WHERE (((TipoUnita.ID_Branca)=" + Replace(Unita__VarBranca, "'", "''") + "));" Unita.CursorType = 0 Unita.CursorLocation = 2 Unita.LockType = 1 Unita.Open()
Rispondi quotando