Discussion :

[vanou]

Bonjonr a tous!

Voila j'ai un problème qd j'affiche le résultat de ma requête car cela ne me
donne pas tte a fait le bon résultat!

En fait je veux voir tous les pc d'un utilisateur avc leurs logiciels, le probleme
c'est que ca ne maffiche que le premier pc mais avc ts les logiciels de ts ces pcs

ca m'affiche ca comme resultat

'toto' a le pc 'machin' <--------------J'ai que le premier
WORD <-----------------------[tableau des logiciels de ts ces pcs]
access
excel

...

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
set rs=Server.CreateObject("ADODB.Recordset")
varSQL = "SELECT computers.computer_name" & _ 	
	",software_name" & _
	" FROM computers LEFT JOIN software ON computers.computer_name = software.computer_name" & _
	" LEFT JOIN local_users ON computers.computer_name = local_users.computer_name"&_
  	" WHERE software.software_name not like 'Correctif%'"&_
	" AND software.software_name not like 'Security Update%'"&_
	" AND software.software_name not like 'Mise à jour%'"&_
	" AND software.software_name not like 'Update for Windows%'"&_
	" AND software.software_name not like '%Hotfix %'"&_
  	" AND software.software_name not like 'Aggiornamento%'"&_
  	" AND computers.operating_system_name not like '%Server'" 	
 
if pc="" then
       varSQL  = varSQL  &  "AND local_users.user_name='" & util & "'" & _	
       	"group by computers.computer_name,software.software_name"&_
       ";"
 
   rs.open varSQL, "Provider=SQLOLEDB.1;Password=sqlinfo;Persist Security Info=True;User ID=info;Initial Catalog=york_tn;Data Source=FRCARFS13"
 
	response.write "'"&util&"' a le pc '"&rs("computer_name")&"'"
	response.write "<table border bordercolor=#000000 cellpadding=2>"
	response.write"<tr>"
	response.write"<th>Logiciel</th>"
	response.write"</tr>"
 
 
do while not rs.eof	
	response.write "<tr align=center>"
	response.write "<td>"
	response.write rs("software_name")
	response.write"</td>"
	response.write "</tr>"
	rs.MoveNext	
loop
response.write "</table>"
 
rs.close
end if

Comment faire pour afficher

'toto' a le pc 'machin1'
Access
word
....

'toto' a le pc 'machin2'
frontpage
excel
....

[phoenix1998]

tu recupere le nom de tes pc, tu fais une boucle pour les afficher et tu imbrique une boucle pour l'affichage des logiciels

[vanou]

merci je vais essayer mais c'est pas gagné

[phoenix1998]

fais signe si t'as des soucis....

[vanou]

j'avoue que je ne connais pratiquement rien de l'asp ca fais juste un peu plus d'une semaine que je l'apprend en stage!

[phoenix1998]

je sais pas trop comment sont construites tes tables mais tu dois faire un truc du genre :

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
 
SQL1 = "select NomOrdi from tableOrdi Where conditions"
Set Rs=Server.CreateObject("ADODB.Recordset")
 
Rs.open SQL1, "Provider=SQLOLEDB.1;Password=sqlinfo;Persist Security Info=True;User ID=info;Initial Catalog=york_tn;Data Source=FRCARFS13"
 
While not Rs.eof
response.write Rs.fields("NomOrdi")
SQL2 = "select logiciel from tableLogiciel Where nomOrdi=Rs.fields("NomOrdi")
Rs2.open SQL2, "Provider=SQLOLEDB.1;Password=sqlinfo;Persist Security Info=True;User ID=info;Initial Catalog=york_tn;Data Source=FRCARFS13"
 
while not Rs2.eof
Response.write Rs2.fields("logiciel")
rs2.movenext
wend
 
rs1.movenext
wend

voila j'espere que ca t'aidera