declarer nom table comme variable

**naouah** · 27/08/2007, 16h41

Bonjour

J'ai creé page ASP qui recupere des données depuis un fichier excel ou access, pour afficher un tableau

lors de selection

Select * from table1

j'ai une liste deroulante avec nom des table ( table1, table2 ...)

et je voudrais déclaerer nom table en tant que varaible"

Select * from Request.Form("nom dans form")

est t'il possible de faire ça?

et merci d'avance

**marabout** · 27/08/2007, 16h52

Oui, tout à fait mais tu dois construire ta querystring:

Code :

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

strSQL="SELECT * FROM " & Request.Form("champForm")

**naouah** · 27/08/2007, 17h02

merci pour votre reponse, mais je ne suis pas sur c'est acadimique ce que je fais, parceqe j'ai le menu deroulante et resultat sur meme page, en fait j'ai besoin d'avoir les deux même page.
et merci encore

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
<%Option Explicit%>
<html>
	<title>Les resultats par ville</title>
	<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#0000FF" alink="#FF0000">
 
	<form method="POST" action="--WEBBOT-SELF--">
 
		<p>
		<select size="1" name="D1">
			<option>choisir une ville</option>
			<option>Lyon</option>
			<option>nancy</option>
			<option>paris</option>
			</select>
		</p>
	</form>
	<%
		Dim FichierExcel, MaConn, MonObjRs, MonSQL, CompteurColonne
 
		FichierExcel = "test1.xls"
 
 
		Set MaConn = Server.CreateObject("ADODB.Connection")
		MaConn.Open "DBQ=" & Server.MapPath(FichierExcel) & ";DRIVER={Microsoft Excel Driver (*.xls)};"
		Set MonObjRs = Server.CreateObject("ADODB.Recordset")
 
		MonSQL = "SELECT * FROM " & Request.Form("D1")	
		MonObjRs.Open MonSQL, MaConn
	%>
		<p>&nbsp;</p>
	<p>&nbsp;</p>
		<table border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#000000">
 
			<tr>
			<%For CompteurColonne = 0 To (MonObjRs.Fields.Count - 1)%>
				<td bgcolor="#C0C0C0"><b><font face="Verdana" size="2"><% 
				' Le nom des champs
				%><%=MonObjRs.Fields.Item(CompteurColonne).Name%></font></b></td>
			<%Next%>
			</tr>
			<%Do While Not MonObjRs.EOF%>
			<tr><%
			For CompteurColonne = 0 To (MonObjRs.Fields.Count - 1)%>
				<td align="center"><font face="Arial" size="2">
					<%=MonObjRs.Fields.Item(CompteurColonne).Value %></font></td>
			<%Next %>
			</tr>
			<%MonObjRs.MoveNext
			Loop%>
		</table>
<%
	' On vide tous les objets tout bien comme il faut :)
	MonObjRs.close
	Set MonObjRs = Nothing
	MaConn.close
	Set MaConn = Nothing
%>
	</body>
</html>

**pc75** · 28/08/2007, 08h15

Bonjour,

Envoyé par naouah

en fait j'ai besoin d'avoir les deux même page.

Tu veux dire quoi là ?

Tu veux une première page avec ta liste déroulante et afficher le résultat dans une deuxième page ?

**naouah** · 28/08/2007, 15h51

j'ai reussi a creer une page en html et qui envoie vers une page asp, et ça fonctionne.

mais j'arrive pas a faire fonctionner ça ,quant je mis le code html ( formulaire avec request) et le code asp dans la même page. c'est à dire le menu deroulant en haut de la page et en bas le tableau qui suit le choix de menu deroulante.

merci d'avance

**pc75** · 28/08/2007, 17h01

Re,

Peux tu essayer d'être un peu plus clair ?

Quand tu écris "j'arrive pas a faire fonctionner ça ", ça veut dire quoi ? il ne se passe rien, as-tu un message d'erreur ?

Donne nous plus de précisions.

**kaiser59** · 29/08/2007, 17h25

Salut,

d'après ce que j'ai compris ce que tu souhaites c'est faire ceci :

Mapage.asp :

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
17
18
 
Response.write "<select name=""liste"" onChange=""location = this.options[this.selectedIndex].value"">"
'je sais pas si tu listes les tables manuellement ou avec le code mais avec le code c'est possible de les lister
Response.write "<option value=""tbl1"">table 1"
Response.write "<option value=""tbl2"">table 2</option>"
Response.write "</select>"
 
Response.write "<br/>"
 
'affichage seulement si une valeur est retournée
if request.querystring("liste") <> "" then
'connexion bd
'recordset
Sql="Select * from "& request.form("liste") &""
 
'affichage des champs
'fermeture bd
end if

declarer nom table comme variable

ASP

Discussions similaires

Partager

Partager