recherche et connection asp / Access

**naouah** · 24/02/2008, 13h24

Bonjour

J'essaye de comprendre un peu d'ASP,
je dois faire recherche pas code postal pour afficher la localité.

je n'arrive a faire afficher le resultat de la requete, a cote de la Request.Form

merci d'avnace pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
<html>
<body bgcolor="#FEFEDA" oncontextmenu="return false">         
          <FORM name="result_cp" method="POST" action="result_cp.asp">
			<p><b>RecheRShe par code postal</b></p>
			<p>Entrez le code postal : <input name="cp" type="text" id="cp"></p>
			<p><input name="bt_envoyer" type="submit"  value="Valider"></p>			
		  </FORM>
 
<%
dim codepostal
codepostal= Request.Form("cp")
 
 
Set CN = CreateObject("ADODB.CONNECTION")
CN.Provider="Microsoft.Jet.OLEDB.4.0"
CN.ConnectionString=Server.MapPath ("cp.mdb")
 
CN.Open()
 
Set RS=CreateObject("ADODB.RECORDSET")
 
RS.OPEN "SELECT Localité FROM tbl_cp WHERE Code_Postal=" & "'" & codepostal & "'" & "ORDER BY localité",CN
 
Response.write( "Je veux convoquer des DE le " & "<b>"& Request.Form("cp"))
 
RS.Close
CN.Close
Set RS = Nothing
Set CN = Nothing
%>
 
</body>
</html>

**kaiser59** · 24/02/2008, 17h27

Salut,

Le plus simple pour se connecter à une base Access et d'exécuter une requête pour moi c'est de faire le code suivant :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "mabase.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
 
 
SQL="SELECT * FROM TABLE"
RS.Open SQL,Conn
 
'résultat à afficher ici
 
 
Set RS = Nothing
Conn.Close
Set Conn = Nothing

Ensuite, pour t'épargner une petite contrainte

les parenthèses ne servent à rien à response.write en tout cas pour ASP 3.0

Enfin, pour répondre à ta question, tu peux faire ceci :

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sql = "Select Localité "& _
        "From tbl_cp "& _
        "Where Code_Postal = '"& request.form("cp") &"' "& _
        "Order by Localité"
rs.open Sql, conn

Ceux sont tes "&" mal placé qui pose problème. Si ce n'est pas le cas (dont je doute), tu n'indique pas le cas ou il n'existe aucune localité par rapport au code postal. Donc tu dois faire plutôt ceci:

Code asp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
if not rs.eof then 'cas où il existe des enregistrement dans la table
 response.write "Voici les villes correspondant au code postal : "& request.form("cp") &" :<br>"&vbcrlf
  Do while not rs.eof 'On affiche toute les villes correspondant au code postal demandé
   response.write rs(0) &"<br>"&vbcrlf
 rs.movenext
 loop
else ' dans le cas contraire
  response.write "Aucune ville ne correspond au code postal : "& request.form("cp")
end if

PS : Tu peux vérifier depuis Access si déjà dans un premier temps ta requête fonctionne directement.

**naouah** · 24/02/2008, 21h27

merci

recherche et connection asp / Access

ASP

Vue hybride

Discussions similaires

Partager

Partager