Listes et bases de données...
Résolu
Chris_LaFouine
Messages postés
109
Date d'inscription
mardi 13 avril 2004
Statut
Membre
Dernière intervention
4 juin 2008
-
18 févr. 2005 à 09:37
Chris_LaFouine Messages postés 109 Date d'inscription mardi 13 avril 2004 Statut Membre Dernière intervention 4 juin 2008 - 18 févr. 2005 à 11:48
Chris_LaFouine Messages postés 109 Date d'inscription mardi 13 avril 2004 Statut Membre Dernière intervention 4 juin 2008 - 18 févr. 2005 à 11:48
A voir également:
- Listes et bases de données...
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Base de données javascript - Conseils pratiques -Javascript
- Nomenclature base de données - Conseils pratiques -PHP
- Connexion base de données - Conseils pratiques -PHP
- Base de données marques - Forum PHP
1 réponse
Chris_LaFouine
Messages postés
109
Date d'inscription
mardi 13 avril 2004
Statut
Membre
Dernière intervention
4 juin 2008
18 févr. 2005 à 11:48
18 févr. 2005 à 11:48
Ça y est, je me suis débloqué tout seul... j'ai trouvé une feinte de fouine pour remplir ce champ sans recharger la page... voilà le code... si ça peut donner des idées à des gens!
Dans le programme principal :
<select size="1" name="cboQF" onChange="calculQF()">
<%Dim i
For i=1 to 9
Response.write("<option value="&i&">"&i&"</option>&vbcrlf)
Next
%>
</select>
Le Code Javascript de la fonction calculQF()
window.open("recherche_QF.asp?qf="+document.personne_ajout_form.cboQF.value+"&ville="+document.personne_ajout_form.cboVille.value)
Et le contenu de la page rechercheQF.asp :
<% 'Récupération des valeurs
Dim fQF
Dim fTarif
fTarif=0
fQF=Request.QueryString("qf")
If fQF<>"0" then
If Request.QueryString("ville")="191" Then
Call recSelect(rsTarif,"select to_char(TAR_NIORT) from GIMS_TARIF where TAR_CODEORG='SC' and TAR_QF="&fQF)
Else
Call recSelect(rsTarif,"select to_char(TAR_HNIORT) from GIMS_TARIF where TAR_CODEORG='SC' and TAR_QF="&fQF)
End If
fTarif=rsTarif(0)
rsTarif.close
set rsTarif=Nothing
End If
%><% Dim fQF
Dim fTarif
fQF=Request.QueryString("qf")
IF Request.QueryString("Ville")="NIORT" THEN
'Requete de sélection du tarif de Niort dans la table Tarif
'...affecté dans la variable RecordSet "rsQuery"
ELSE
'Requete de sélection du tarif Hors Niort dans la table Tarif
'...affecté dans la variable RecordSet "rsQuery"
END IF
fTarif=rsQuery(0)
rsQuery.close
set rsQuery=Nothing
%>
<html>
onLoad="window.opener.document.forms['personne_ajout_form'].elements['txtMontant'].value='<%=fTarif%> €';self.close()">
</html>
Voila, j'espere que ça va servir!!!
Dans le programme principal :
<select size="1" name="cboQF" onChange="calculQF()">
<%Dim i
For i=1 to 9
Response.write("<option value="&i&">"&i&"</option>&vbcrlf)
Next
%>
</select>
Le Code Javascript de la fonction calculQF()
window.open("recherche_QF.asp?qf="+document.personne_ajout_form.cboQF.value+"&ville="+document.personne_ajout_form.cboVille.value)
Et le contenu de la page rechercheQF.asp :
<% 'Récupération des valeurs
Dim fQF
Dim fTarif
fTarif=0
fQF=Request.QueryString("qf")
If fQF<>"0" then
If Request.QueryString("ville")="191" Then
Call recSelect(rsTarif,"select to_char(TAR_NIORT) from GIMS_TARIF where TAR_CODEORG='SC' and TAR_QF="&fQF)
Else
Call recSelect(rsTarif,"select to_char(TAR_HNIORT) from GIMS_TARIF where TAR_CODEORG='SC' and TAR_QF="&fQF)
End If
fTarif=rsTarif(0)
rsTarif.close
set rsTarif=Nothing
End If
%><% Dim fQF
Dim fTarif
fQF=Request.QueryString("qf")
IF Request.QueryString("Ville")="NIORT" THEN
'Requete de sélection du tarif de Niort dans la table Tarif
'...affecté dans la variable RecordSet "rsQuery"
ELSE
'Requete de sélection du tarif Hors Niort dans la table Tarif
'...affecté dans la variable RecordSet "rsQuery"
END IF
fTarif=rsQuery(0)
rsQuery.close
set rsQuery=Nothing
%>
<html>
onLoad="window.opener.document.forms['personne_ajout_form'].elements['txtMontant'].value='<%=fTarif%> €';self.close()">
</html>
Voila, j'espere que ça va servir!!!