ASP-ACCESS 2 liste deroulante dependante

philemmon

20 Juin 2006 09:45:14

bonjour messieur

j'utilise le code fourni par un autre site (www.ASP-PH.net) (merci) pour faire une liste deroulante avec les champs de ma base de donnee

apres moulte perigrination je n arrive pas a afficher une seconde liste en fonction de l item selectionne dans la 1er

exemple . (dans mon cas precis)

j ai une base de donnee avec 2 tables

1er table PRIMA // champs "Categorie" remplie avec differente ligne // clef primaire "ID-prim"
2eme table "Categorie" // champs tout les champs corresponde au categrie de la table PRIMA

exemple table prima dans categorie j ai bricolage
alors dans table categorie j ai un champs bricolage....

je voudrais pouvoir avec 2 liste

1liste je liste le champs categorie de la table PRIMA (ca marche)
2liste je liste le champs de la table Categorie correspondant a la selection de la liste PRIMA (ca ne marche pas)

voila ce que j ai essayer de produire et qui ne fonctionne pas a souhait

<html><body>

<% if request.form("pass") = "toto" then

%>

 
<%URL = _

request.serverVariables("List-PRIMA")%>

<!-- #include file="_connexion.asp"-->

 
<% ' au réaffichage, on récupère la sélection

if request.form("liste") <> "" then

' traîtement éventuel,

' redirection, etc ...

end if%>

 
<%SQL="SELECT * FROM [PRIMA]"

Set RS = server.createobject("ADODB.Recordset")

RS.Open SQL,Conn , 3, 3%>

<form name="myform" method="post"

action="<%=URL%>">

<select name="prim">

<option></option>

<%while not RS.eof%>

<option><%=RS("Categorie")%></option>

<% RS.moveNext

wend %>

</select>

 
<%SQL="SELECT * FROM [Categorie]"

Set RS2 = server.createobject("ADODB.Recordset")

RS2.Open SQL,Conn , 3, 3%>

<select name="Cat">

<option></option>

<%while not RS.eof%>

<option><%=RS2(request.form("prim"))%><

/

option>

<% RS2.moveNext

wend %>

</select>

 
<input type="Submit" value="Envoyer">

</form>

<% conn.close : Set conn=nothing %>

 
<% else

' sinon, le formulaire s'affiche

%>

<br><br><br><br><br><br><br

 
><br><br><br><br>

<center>

<form method="post">

<table><tr>

<td><input type="password" name="pass"></td>

<td><input type="Submit" value="Entrer"></td>

</tr></table>

</form>

</center> 

<% end if %>

 
</body></html>

Autres pages sur : asp access liste deroulante dependante

| Etre averti des réponses
| Alerter

Répondre à philemmon

zeb

Expert Programmation

20 Juin 2006 10:20:01

Au lieu de Citation: écris [code] et à la fin [/code ]. C'est un bon moyen de bien se faire voir, même si ...

Citation :

j'utilise le code fourni par un autre site

;)

| Alerter

Répondre à zeb

philemmon

20 Juin 2006 12:12:35

je tien a te dire que je l utilise j ai pas completement pompé le truc je l ai modifier travailler comprit ... mais bon ca marche pas alors je solicite voter aide

| Alerter

Répondre à philemmon

zeb

Expert Programmation

20 Juin 2006 12:20:46

Merci pour les balises. (Sinon, je n'aime pas les mails qui commencent par Messieurs, on dirait que tu dénigres les geekettes :love:

)

Il est interdit de ne pas aller voir partout, de réfléchir et d'adapter ce qu'on trouve avant de poster ici. Alors je t'en prie, ne te justifie pas, tu as bien raison.

Euh, sinon, moi, en ASP, j'suis zéro... :hello:

houhou, les autres, on a un ptit gars plein de bonne volonté ici.

| Alerter

Répondre à zeb

philemmon

20 Juin 2006 12:58:43

ok alors j en suis arrive a la

<html><body>

<% if request.form("pass") = "toto" then%>

 
<%URL = _

request.serverVariables("List-PRIMA")%>

<!-- #include file="_connexion.asp"-->

 
<html><body>

<% if request.form("pass") = "toto" then%>

 
<%URL = _

request.serverVariables("List-PRIMA")%>

<!-- #include file="_connexion.asp"-->

 
<%SQL="SELECT * FROM [PRIMA]"

RS.Open SQL,Conn , 3, 3

response.write("<form name='myform' method='post' action=URL>")

    response.write("<select name='prim'>")

response.write("<option></option>")

    WHILE NOT RS.EOF

        response.write("<option value='" & rs("Categorie") & "'>" & rs("PRIMA") & "</option>")

        RS.MOVENEXT

    WEND

    response.write("</select>")

RS.CLOSE

 
SQL="SELECT * FROM [CATEGORIE] WHERE CATEGORIE = '" & request.form("prim") & "';"

RS.Open SQL,Conn , 3, 3

    response.write("<select name='cat'>")

    response.write("<option></option>")

    WHILE NOT RS.EOF

        response.write("<option value='" & rs("ID-cat") & "'>" & rs("Categorie") & "</option>")

        RS.MOVENEXT

    WEND

    response.write("</select>")

RS.CLOSE

response.write("<input type='Submit' value='Envoyer'>")

response.write("</form>")%>

 
<% conn.close : Set conn=nothing %>

 
<% else

' sinon, le formulaire s'affiche

%>

<br><br><br><br><br><br><br

 
><br><br><br><br>

<center>

<form method="post">

<table><tr>

<td><input type="password" name="pass"></td>

<td><input type="Submit" value="Entrer"></td>

</tr></table>

</form>

</center> 

<% end if %>

 
</body></html> 

 
<% conn.close : Set conn=nothing %>

 
<% else

' sinon, le formulaire s'affiche

%>

<br><br><br><br><br><br><br

 
><br><br><br><br>

<center>

<form method="post">

<table><tr>

<td><input type="password" name="pass"></td>

<td><input type="Submit" value="Entrer"></td>

</tr></table>

</form>

</center> 

<% end if %>

 
</body></html>

avec cette erreur attention c est en italien mais tres comprehensible

Tipo di errore:

Errore di run-time di Microsoft VBScript (0x800A01A8)

Necessario oggetto: ''

/index.asp, line 16

donc la je bloque vraiment beaucoup

| Alerter

Répondre à philemmon