Discussion :

[atomusk]

Bonjour,

C'est mon premier message ici. Je suis developpeur SAP sur Paris et accessoirement developpeur en VBScript/Javascript quand j'ai un peu de temps

Je suis entrain d'essayer de faire une page pour Windows Home server (IIS7 & Windows Desktop Search 3 inclus) qui va me récuperer l'ensemble des tags des images du système en Vbscript (coté serveur) en faisant des requettes sur WDS.

Mes premiers tests donnent de bon résultats (et surtout des perfs acceptables :p), mais au moment d'afficher un tag, j'ai de gros problèmes

Voici mon code :

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
<script language="Vbscript" runat="server">
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
 
objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
 
'requette : ensemble des fichiers images
objRecordSet.Open "SELECT System.FileName,System.ItemFolderPathDisplay,System.Photo.DateTaken, System.Keywords FROM SYSTEMINDEX  where system.kind = 'Picture'", objConnection
 
objRecordSet.MoveFirst
 
Do Until objRecordset.EOF
 
 response.write objRecordset.Fields.Item("System.FileName") 
 response.write objRecordset.Fields.Item("System.Keywords")
 response.write "<BR>"
 
 objRecordset.MoveNext
Loop
 
</script>

Voila, rien de bien compliqué. Donc cette requette récupere l'ensemble des noms/tags &co de WDS et me les affichent.
Voila le résulat :

1175192143987.jpg
DSC00102.JPG
[... liste d'image...]
DSC00104.JPG
P1010264.JPG
Objet Response erreur 'ASP 0106 : 80020005'

Erreur de type

/photo/test/test.asp, ligne 0

Un type de données non pris en charge a été détecté.

En fait P1010264 est la toute premiere image de la liste à avoir des tags !

C'est donc la premiere fois que le code :
response.write objRecordset.Fields.Item("System.Keywords")
ne retourne pas la valeur vide.

J'ai donc fait quelques tests et j'ai trouvé la fonction
varType(objRecordset.Fields.Item("System.Keywords"))
qui me retourne '8200' pour toutes les images avec Tags.

La fonction IsArray(objRecordset.Fields.Item("System.Keywords")) me retourne "true" pour toutes les images avec tags.

Et Ubund(objRecordset.Fields.Item("System.Keywords")) me retourne bien le nombre de tags appliqués sur l'image.

Mais quand j'essaye de faire :
objRecordset.Fields.Item("System.Keywords")(0)

Il me retourne :

Erreur d'exécution Microsoft VBScript erreur '800a01c2'

Nombre d'arguments ou affectation de propriété incorrects: '[object]'

/photo/test/test.asp, ligne 20

Donc je ne sais pas trop quoi faire, il me dit bien que c'est un array d'element, mais je ne sais pas trop comment faire pour savoir un array de "quoi" et surtout comment l'afficher!

Merci de votre aide.

[ced600]

essayes :

Code :

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

(objRecordset.Fields.Item("System.Keywords"))(0)

ou :

Code :

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

1
2
set toto = objRecordset.Fields.Item("System.Keywords")
toto(0)

Je suis loin d'être sur de moi.
Dernièrement j'ai utilisé une librairie d'une appli en c#, et je n'ai que des exemples en vbs.
Donc j'ai dû m'efforcer à faire de la traduction. Pas facile mais je crois avoir mieux compris le vbs maitenant.

Dans ton cas Fields ressemble à un dictionnaire, et pour accéder à un élement de celui tu utilises la méthode Item.
Et cela te renvois un object en général.
Maintenant c'est soit une valeur, soit un tableau, soit un autre objet.

Cela pourrait être un autre dictionnaire non ? Et dans ce cas là tu devrais faire un truc du genre (je reprends mon deuxième exemple) :

Code :

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

toto.Items("quelque chose peut être un keyword")

Je te conseille quand même de regarder l'aide msdn pour l'objet en question.

[atomusk]

essayes :

Code :

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

(objRecordset.Fields.Item("System.Keywords"))(0)

Ca me donne ça :

Code :

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

1
2
3
4
5
6
7
Objet Response erreur 'ASP 0106 : 80020005' 
 
Erreur de type 
 
/photo/test/default.asp, ligne 20 
 
Un type de données non pris en charge a été détecté.

Code :

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

1
2
set toto = objRecordset.Fields.Item("System.Keywords")
toto(0)

Ce me donne ça

P1010264.JPG

Erreur d'exécution Microsoft VBScript erreur '800a01c2'

Nombre d'arguments ou affectation de propriété incorrects: 'toto'

/photo/test/default.asp, ligne 24

Apres, j'ai bien cherché dans MSDN, mais le problème c'est chercher quoi

Je vais essayer de voir sur le forum de developpeur WDS de Ms.

Je repasserai si on me donne une réponse la bas

[ced600]

Apres, j'ai bien cherché dans MSDN, mais le problème c'est chercher quoi

Bah la description des arguments et de methodes de l'objet recordset, et plus précisement de fields, et de item.

Edit :
Je t'ai retrouvé http://forums.microsoft.com/MSDN/Sho...91446&SiteID=1

Edit2 :
j'ai fait une recherche et je n'ai pas trouvé grand chose, sauf une chose, tu sembles être le seul dans le monde à faire : Item("System.Keywords")

Voici quelques liens :
http://support.microsoft.com/kb/166277
http://www.microsoft.com/technet/scr...6/hey0504.mspx
http://msdn2.microsoft.com/en-us/library/ms974559.aspx
http://www.tek-tips.com/viewthread.c...435847&page=10

[atomusk]

Bah la description des arguments et de methodes de l'objet recordset, et plus précisement de fields, et de item.

Edit :
Je t'ai retrouvé http://forums.microsoft.com/MSDN/Sho...91446&SiteID=1

Edit2 :
j'ai fait une recherche et je n'ai pas trouvé grand chose, sauf une chose, tu sembles être le seul dans le monde à faire : Item("System.Keywords")

Voici quelques liens :
http://support.microsoft.com/kb/166277
http://www.microsoft.com/technet/scr...6/hey0504.mspx
http://msdn2.microsoft.com/en-us/library/ms974559.aspx
http://www.tek-tips.com/viewthread.c...435847&page=10

j'avais remarqué que j'était le seul
Mais c'est vrai que j'ai pas trouvé d'autre solution pour lister l'ensemble des tags des images ...

[ced600]

si je te faisais remarquer cela c'est juste pour mettre en cause l'existence d'une clé system.keywords.
Si la clé n'existe pas, mais que la fonction te renvois quand même un tableau, je crois que ton erreur peut survenir.

[atomusk]

si je te faisais remarquer cela c'est juste pour mettre en cause l'existence d'une clé system.keywords.
Si la clé n'existe pas, mais que la fonction te renvois quand même un tableau, je crois que ton erreur peut survenir.

Le truc étant que la clé devrait exister vu que ubound me retourne exactement le nombre de tags appliqués à mon image

De plus dans la selection, il accepte le System.keywords (chose qu'il n'avait pas accepté quand j'avais rentré "Keyword" ou "Tag(s)")

[atomusk]

Allez un petit retour sur ce thread pour donner mes pistes (et faire un petit bump pendant que j'y suis ).

Donc la demande sur le forum Microsoft ne m'a pas donné grand chose, si ce n'est le lien sur MSDN
http://msdn2.microsoft.com/en-us/lib...19(VS.85).aspx

Ainsi qu'un lien vers un thread d'une personne ayant le même problème que moi, mais pour l'objet "Author" :
http://forums.microsoft.com/MSDN/Sho...09665&SiteID=1

Thread sans réponse.

Mais vu que je ne comprend pas tout à ce qu'il se passe ici (et en particulier si c'est vraiment le bug couvert par : http://support.microsoft.com/kb/237536 )

J'ai continué mes recherches, et j'ai trouvé un débugger pour VBscript (en shareware, j'ai pas trouvé ici de debugger dans les outils )
Donc j'ai "converti" mon script ASP en un vrai VBscript pour pouvoir l'executer directement depuis mon Vista :

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
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
 
objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
 
 
objRecordSet.Open "SELECT top 3 System.FileName,System.ItemFolderPathDisplay,System.Photo.DateTaken, System.Keywords FROM SYSTEMINDEX  where system.kind = 'Picture' and System.ItemFolderPathDisplay like '" + v_path + "%'", objConnection
 
 
Do Until objRecordset.EOF
 
 if IsArray(objRecordset.Fields.Item("System.Keywords")) = true then
 
  MsgBox objRecordset.Fields.Item("System.ItemFolderPathDisplay") + objRecordset.Fields.Item("System.FileName").value
  set v_keywords = objRecordset.Fields.Item("System.Keywords")
 
  MsgBox v_keywords
 end if
 
 objRecordset.MoveNext
Loop

J'ai toujours la même erreur, mais avec le débugger j'ai trouvé quelquechose qui pourrait être interessant :



Donc mes 3 tags y sont bien proprement rangés dans un "Value", mais il refuse toujours que j'appelle : v_keyword.value ou v_keyword.value(0) ou v_keyword("Value").

Encore une fois, mon manque d'experience dans VBscript m'empeche de trouver ce que je pourrais faire avec çe truc

je demande donc (encore) votre aide

[ced600]

pour voir, essaye :

Code :

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

v_keyword("Mot clé.")

et :

Code :

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

v_keyword.Value("Mot clé.")

[atomusk]

pour voir, essaye :

Code :

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

v_keyword("Mot clé.")

et :

Code :

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

v_keyword.Value("Mot clé.")

Je ne sais pas trop ce que change le "." (j'ai donc testé avec et sans )

1er
Wrong number of arguments or invalid property ssignment : 'v_Keywords
CODE : 800A01C2

2ème
Wrong number of arguments or invalid property ssignment : 'v_Keywords.value
CODE : 800A01C2

(et ce avec et sans le .)

C'est rageant de l'avoir comme ça au bout des doigts

[SfJ5Rpw8]

peu-être avec une boucle for each ...

Code :

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

1
2
3
   For Each v In v_keywords.Value
     MsgBox v
   Next

[ced600]

peu-être avec une boucle for each ...

Code :

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

1
2
3
   For Each v In v_keywords.Value
     MsgBox v
   Next

Hum je suis sceptique, si le v_keywords.Value(0) ne passe pas le foreach ne devrait pas.

Au fait voir ton code lorsque tu fais v_keywords.Value(0) (quelque lignes avant et quelque lignes après, + la ligne en question)

[atomusk]

peu-être avec une boucle for each ...

Code :

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

1
2
3
   For Each v In v_keywords.Value
     MsgBox v
   Next

J'ai essayé aussi, j'ai eut un message du genre : pas autorisé sur cet objet, mais je vous mettrais le message exact ce soir.


Pareil pour ced600, je te donnerai ça ce soir.

[atomusk]

Hum je suis sceptique, si le v_keywords.Value(0) ne passe pas le foreach ne devrait pas.

Au fait voir ton code lorsque tu fais v_keywords.Value(0) (quelque lignes avant et quelque lignes après, + la ligne en question)

Donc pour le v_keywords.value(0), voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
[...]
	Do Until objRecordset.EOF
 
	 if IsArray(objRecordset.Fields.Item("System.Keywords")) = true then
 
	  MsgBox objRecordset.Fields.Item("System.ItemFolderPathDisplay") + objRecordset.Fields.Item("System.FileName").value
	  set v_keywords = objRecordset.Fields.Item("System.Keywords")
 
	  MsgBox v_keywords.Value(0)
 
	 end if
 
	 objRecordset.MoveNext
	Loop

et avec ce code j'ai l'erreur : Wrong number of argument or invalid property assignment.

et j'ai le même résultat dans mon débug que dans la capture que j'ai envoyé.


Pour le For Each voici le code :

Code :

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

1
2
3
4
5
6
7
[...]
	  Set v_keywords = objRecordset.Fields.Item("System.Keywords")
 
	  For Each v_key In v_keywords	
	     MsgBox "test"
	  next
[...]

il me sort une erreur object don't support this property or method quand il arrive au for each

et quand j'essaye :

Code :

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

1
2
3
4
5
6
7
[...]
	  Set v_keywords = objRecordset.Fields.Item("System.Keywords")
 
	  For Each v_key In v_keywords.value
	     MsgBox "test"
	  next
[...]

il me retourne mon erreur initiale :
Error : Type mismatch
Code : 800A000D
System : The data is invalid

Donc tous ces tests sont faits avec le VBscript de Vista (SP1 accessoirement), et j'ai testé avec le VBscript de II6 de mon Windows Home Server (un WinServeur 2003) les résultats sont les mêmes (mais en français vu que mon vista est US ).

Je vais me retourner encore vers le forum microsoft avec mes dernieres "trouvailles" (en particulier le debug qui montre que je suis pas fou ) pour voir si ils ont une idée ...

merci encore

[ced600]

Ce qu'il faut c'est trouver le descriptif de item pour l'objet objRecordset.Fields

C'est bizzare, toutes les erreurs te dises en gros que la methode value n'existe pas ou que tu l'emploies mal.
Mais vu ce que montre le débug c'est bizzare.

Bon essayons un truc bizzare :

Code :

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

1
2
3
4
5
6
7
 
objRecordset.Fields.Item("System.Keywords")
for each item in objRecordset.Fields
    msgbox item
    ' essaye aussi :   msgbox item(0)
    ' et :             msgbox item.value ou item.value(0)
next item

[atomusk]

Ce qu'il faut c'est trouver le descriptif de item pour l'objet objRecordset.Fields

C'est bizzare, toutes les erreurs te dises en gros que la methode value n'existe pas ou que tu l'emploies mal.
Mais vu ce que montre le débug c'est bizzare.

Bon essayons un truc bizzare :

Code :

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

1
2
3
4
5
6
7
 
objRecordset.Fields.Item("System.Keywords")
for each item in objRecordset.Fields
    msgbox item
    ' essaye aussi :   msgbox item(0)
    ' et :             msgbox item.value ou item.value(0)
next item

Donc j'ai legerement modifié mon code pour que ça marche :

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
Set objConnection = CreateObject("ADODB.Connection")
	Set objRecordSet = CreateObject("ADODB.Recordset")
 
	objConnection.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
 
	'requette : ensemble des fichiers images
	objRecordSet.Open "SELECT top 3 System.Keywords FROM SYSTEMINDEX where system.kind = 'Picture'", objConnection
 
 
	Do Until objRecordset.EOF
 
	 if IsArray(objRecordset.Fields.Item("System.Keywords")) = true then
 
	  for each item in objRecordset.Fields
   	             msgbox item
                          'msgbox item(0)
                          'msgbox item.value
                          'msgbox item.value(0)
                 next 
 
	 end if
 
	 objRecordset.MoveNext
	Loop

Mais logiquement j'ai :

1)Type mismatch
2)Wrong number of arguments
3)Type mismatch
4)Wrong number of arguments

[ced600]

un dernier truc :
item.value.keywords(0)

[atomusk]

un dernier truc :
item.value.keywords(0)

Object Required : "Item.value"

Bon, je vais sans doute attendre ce week end et essayer de faire ce que je veux faire en ASP.Net ... mais vu que j'y connais pas grand chose


Sinon, je vais peut être tenter de jouer mon kevin en envoyant des messages dans le forum MS Vbscript ou des mails à la team DesktopSearch

Merci beaucoup et je repasserai une fois que j'aurai trouvé la solution