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 ... %>
Marsh Posté le 10-03-2014 à 10:03:51
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>
Merci de votre aide