Discussion :

[rfernandez]

Je cherche a savoir si il est possible de créer un tableau associatif en asp
Qqch du genre mon_tableau("nom")="jean"
Ca doit etre possible vu que lors d'un recordset sur une bdd, les résultat sont stocké dans un tableau associatif:rs("identifiant") par exemple.

Merci

[m-mas]

oui c'est possible de créer des tableaux en ASP. c'est du VB si tu en connais.

[rfernandez]

non, je ne connais pas très bien, pouurrais tu me donné un exemple??

Merci

[m-mas]

voici comment créer un tableau à partir d'une base de données

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
<table border="0" align="center" ID="Tab_questions" width="100%" >
    <tr>
        <td>titreChamp1</td>
        <td>titreChamp2</td>
    </tr>
<%
Set Connatt = Server.CreateObject("ADODB.Connection")
Connatt.Open connection
sql1 = "SELECT * FROM Matable"
set rs = server.CreateObject("ADODB.Recordset")
rs.Open sql1, connatt, 3, 3
rs.MoveFirst
dim selectStatus()
dim selectreponse()
do while not rs.EOF
'--lecture des données et création de la ligne du tableau
qst_id = rs.fields("mon_fields").value%>
<tr>
<td align=center><% =rs.fields("mon_fields").value %></td>
<td><% =rs.fields("mon_fields_2").value %></td>
</tr>
<%loop%>
</table>
<% rs.close
set rs = nothing
connatt.close
set connat=nothing %>

[rfernandez]

Je crois quon a du mal se comprendre:
je cherche à avoir une variable de type tableau mais dont l'index est une chaine de caracteres a la place d'un entier:
ex: je voudrait pouvoir faire:mon_tablo("nom")="pierre" a la place mon_tablo(1)="pierre"

[jérôme]

Non, les tableaux associatifs n'existent pas en vbscript. Mais tu peux soit utiliser l'objet scripting.dictionary, soit encore plus simple utiliser des constantes.

Code :

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

1
2
3
4
5
6
const NOM = 0
const AGE = 1
 
dim personne(1) 
personne(NOM) = "toto"
personne(AGE) = 10

[zoltar]

Salut,

En effet, un objet Dictionary EST un tableau associatif. On parle pas d'indices mais de clés (keys).
Voilà un exemple simple :

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
 
<%
Dim dict,adresse,nom,liste,i
 
Set dict=createObject("Scripting.Dictionary")
dict.Add "Yahoo", "www.yahoo.fr"
dict.Add "Msn", "www.msn.fr"
dict.Add "Ask-jeeves", "www.aj.com"
nom=dict.Keys
adresse=dict.Items
 
For i=0 to dict.Count-1
liste = liste +  "<a href =" & "http:// & adresse(i) ">" &  nom(i) & "</a>" + "<br>"
Next
Response.Write liste
 
Set dict=Nothing
%>

Zr.