evatimlu
Messages postés10Date d'inscriptionlundi 3 mars 2014StatutMembreDernière intervention18 mars 2014
-
Modifié par jordane45 le 10/03/2014 à 10:08
eprospection
Messages postés2Date d'inscriptionlundi 9 février 2015StatutMembreDernière intervention23 février 2015
-
23 févr. 2015 à 09:17
Bonjour.
Sur mon formulaire, je dois saisir un code [PAT] pour obtenir un affichage résultant de ma requête sql. Quand je saisi (114140402) en "dur" mon code PAT dans ma requête sql, j'obtiens le résultat voulu ; Mon problème est que je ne sais pas comment "écrire" le "request.form" qui me donnerai le même résultat.
Pouvez-vous m'aider ?
Voici mon code :
<html><head></head><body>
<form method="post" name="formulaire" action="NOMPAT.asp">
<table align="Center" width="80%"><tr>
<td><span id="txtPat" class="Verd8Norm">n° de séjour</span>
<input type="text" size="10" name="PAT" VALUE=""></td></tr></table>
<%
'=== Connexion à la base
...
'=== Création de l'objet recordset - recPat
Set recPat = Server.CreateObject("ADODB.Recordset")
SQL = "select a.sipnom, a.sippren, a.patsex, a.patnaisd from hvipat a, hrdos b where a.patnum = b.patnum and b.dosnum = '114140402'"
recPat.Open sql, conHexagone 'Exécution de la requête
Do until recPat.eof
Response.Write recPat("sipnom") & " "
Response.Write recPat("sippren") & " "
Response.Write "(Sexe : " & recPat("patsex") & " - "
Response.Write "Date de Naissance : " & recPat("patnaisd") & ")"
recPat.MoveNext
loop
'Fermeture des objets recordset ; Fermeture de la connexion
...
%>
</form></body></html>
yann_lo_san
Messages postés1137Date d'inscriptionlundi 17 novembre 2003StatutMembreDernière intervention23 janvier 201626 11 mars 2014 à 20:55
Salut,
Exemple sur un seul champ : sipnom
Rajoute un btn submit
mets target = _self sur le form
Récupère la saisie a chaque submit (le champ form s'appelle PAT comme le textbox)
Rajoutes la saisie dans la requete
et affiche le résultat dans le même textbox de saisie
Ici, la même page s'auto appelle
au premier chargement, la requete ne renvoi rien, donc le textbox est vide
<%
patSaisie = Request.Form("PAT")
patResultat = ""
%>
<%
' Connexion à la base
' Création de l'objet recordset - recPat
Set recPat = Server.CreateObject("ADODB.Recordset")
SQL = "select a.sipnom, a.sippren, a.patsex, a.patnaisd from hvipat a, hrdos b where a.patnum = b.patnum and b.dosnum = '" & patSaisie & "'"
recPat.Open sql, conHexagone
if not recPat.eof then
patResultat = recPat("sipnom")
end if
'Fermeture des objets recordset ; Fermeture de la connexion
%>
<html>
<head></head>
<body>
<form method="post" name="formulaire" action="NOMPAT.asp" target="_self">
<table align="Center" width="80%">
<tr>
<td><span id="txtPat" class="Verd8Norm">n° de séjour</span>
<input type="text" size="10" name="PAT" VALUE="<%=patResultat %>">
<input type="submit" value="Valider" />
</td></tr></table>
</form>
</body>
</html>