Discussion :

[ludo24]

Bonjours,

je vais pas vous le cacher, je ne comprend pas comment fonctionne les tableaux en asp, mais j'en ai besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sql="select * from PROJECT_MODULE where PROJECT_ID ="& vProjectID  
RS.Open sql, cnSave  '
Dim Project_Module()  'declaration
i=0 'initialisation du compteur
do while not RS.eof
    response.write("<br>" & RS("PROJECT_MODULE_ID"))  ' pour verifier si il y a une valeur et y'en a une
    Project_Module(i)=RS("PROJECT_MODULE_ID") 'insertion
    i=i+1  'incrementation du compteur
loop

mon problème se situe au niveau de l'insertion le browser me repond:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'Project_Module'

avant d'aller plus loin je tien a vous precisé que j'aimerai trouver une solution avec tableau dynamique (se que j'ai essayer de faire).

je pense ne rien avoir oublier

merci d'avance
ludo

[ludo24]

oups, je croit que j'ai "parlé" trop vite, je vien de tomber sur un petit truc bien simpas qui me donne l'impression de fonctionner

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sql="select * from PROJECT_MODULE where PROJECT_ID ="& vProjectID  
RS.Open sql, cnSave  '
i=0 'initialisation du compteur
do while not RS.eof
    response.write("<br>" & RS("PROJECT_MODULE_ID"))  ' pour verifier si il y a une valeur et y'en a une
    taille=i : Dim Project_Module(): redim Project_Module(taille) 'redimenssionement
       Project_Module(i)=RS("PROJECT_MODULE_ID") 'insertion
    i=i+1  'incrementation du compteur
loop

voila, j'ai trouvé sa sur => http://www.wikituto.org/index.php/ASP:Tableaux si sa interresse des gens

[ludo24]

sa aurait été beau que sa marche mais moin drole donc oui, en effet, sa ne fonctionne pas lors du 2ieme redimensionement sa plante et me retourne

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'Project_Module'

please help

[ludo24]

cette fois je croit que c'est la bonne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
sql="select * from PROJECT_MODULE where PROJECT_ID ="& vProjectID  
RS.Open sql, cnSave  '
Dim Project_Module() 'declaration
i=0 'initialisation du compteur
do while not RS.eof
    response.write("<br>" & RS("PROJECT_MODULE_ID"))  ' pour verifier si il y a une valeur et y'en a une
    taille=i : redim Project_Module(taille) 'redimenssionement
       Project_Module(i)=RS("PROJECT_MODULE_ID") 'insertion
    i=i+1  'incrementation du compteur
loop

je suis donc désolé d'avoir ouvert un post pour si peu mais bon, sait on jamais sa peu servir à quelqu'un d'autre car franchement j'ai eu dû mal a trouver une info claire sur se sujet

sur ce bonne continuation
ludo

[Immobilis]

Salut,

En ce qui concerne les tableaux, il faut penser à les redimensionner en utilisant "Redim Preserve" pour éviter de perdre des données.

Sinon, si tu veux récupérer un tableau à partir d'un recordset tu peux utiliser: Recordset.GetRows().

A+

[kaiser59]

Bonjours,

je vais pas vous le cacher, je ne comprend pas comment fonctionne les tableaux en asp, mais j'en ai besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sql="select * from PROJECT_MODULE where PROJECT_ID ="& vProjectID  
RS.Open sql, cnSave  '
Dim Project_Module()  'declaration
i=0 'initialisation du compteur
do while not RS.eof
    response.write("<br>" & RS("PROJECT_MODULE_ID"))  ' pour verifier si il y a une valeur et y'en a une
    Project_Module(i)=RS("PROJECT_MODULE_ID") 'insertion
    i=i+1  'incrementation du compteur
loop

mon problème se situe au niveau de l'insertion le browser me repond:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'Project_Module'

avant d'aller plus loin je tien a vous precisé que j'aimerai trouver une solution avec tableau dynamique (se que j'ai essayer de faire).

je pense ne rien avoir oublier

merci d'avance
ludo

Salut,

Tu veux faire quoi un tableau 2D ??

Dans les commentaires de ton code il y a une erreur

Code asp :

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

1
2
3
4
5
do while not RS.eof
    response.write("<br>" & RS("PROJECT_MODULE_ID"))  ' pour verifier si il y a une valeur et y'en a une <= A aucun moment celui ci vérifie s'il la valeur existe il entre directement dans la boucle
    Project_Module(i)=RS("PROJECT_MODULE_ID") 'insertion
    i=i+1  'incrementation du compteur
loop

Ensuite les tableaux se font de cette manière :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
sql="select * "& _
      "from PROJECT_MODULE "& _
       "where PROJECT_ID ="& vProjectID  
RS.Open sql, cnSave
 
if not rs.eof then 'ici on vérifie qu'on est pas directement à la fin de la table ce qui évite d'entrée inutilement dans la boucle
 
cpteur = 1
 
 response.write "<table>"&vbcrlf _
                     "<tr>"
'affichage des entete des colonnes :
response.write "<td>"& cpteur &"</td>"
  for each i in rs.fields
     response.write "<td>"& i.name &"</td>"
  next
  response.write "</tr>"&vbcrlf
 
'affichage des valeurs des colonnes
 do while not rs.eof then
  response.write "<tr>"
   for each n in rs.fields
    response.write "<td>"& n.value &"</td>"
   next
  response.write "</tr>"&vbcrlf
cpteur = cpteur + 1
rs.movenext '<= tu l'as oublié dans ton code
loop
response.write "</table>"
else
 response.write "La table ne contient aucun enregistrement"
end if

Voila

[ludo24]

a yes, je connaissais pas redim preserv, sa aurai pu bien me serivir car je me suis embêté avec un tableau temporaire mais bon, sa marche.

mon petit kaiser... je ne pense pas avoir fait d'erreur dans mes commentaires, vu que response.write permet d'envoyer des infos dans ton browser cela ma permis de voir avec mes yeux si il y a une valeur ou pas contenu dans la variable RS("PROJECT_MODULE_ID")) et donc je considère sa comme une verification.
Pour ce qui est du tableau, c'était juste un tableau 1D. De plus je ne cherchais pas a faire un tableau html a partir de asp mais seulement un tableau en interne, si tu vois se que je veux dire (en gros comme un tableau en C ou autre)

merci de votre aide

[kaiser59]

a yes, je connaissais pas redim preserv, sa aurai pu bien me serivir car je me suis embêté avec un tableau temporaire mais bon, sa marche.

mon petit kaiser... je ne pense pas avoir fait d'erreur dans mes commentaires, vu que response.write permet d'envoyer des infos dans ton browser cela ma permis de voir avec mes yeux si il y a une valeur ou pas contenu dans la variable RS("PROJECT_MODULE_ID")) et donc je considère sa comme une verification.
Pour ce qui est du tableau, c'était juste un tableau 1D. De plus je ne cherchais pas a faire un tableau html a partir de asp mais seulement un tableau en interne, si tu vois se que je veux dire (en gros comme un tableau en C ou autre)

merci de votre aide

ok autant pour moi alors Cepdt comme je t'ai dit response.write ne fait en aucun une vérification, au contraire il applique bêtement ce que tu veux. Une vérification se fait par une condition, jusqu'à preuve du contraire, si tu voie ce que je veux dire

[ludo24]

je suis tout à fait d'accord. C'etait juste pour moi la "verification", une fois reglé mon probleme j'ai tout simplement supprimé cette ligne.