Pb query de tag depuis Windows Desktop search en VBS

Version imprimable

Bonjour, :hola:

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 :frenchy:

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 :oops:

Voici mon code :
Code:

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 :

Citation:

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 :

Citation:

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.:ave:

04/02/2008, 14h54
ced600
essayes :

Code:

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

ou :
Code:

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:

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

Je te conseille quand même de regarder l'aide msdn pour l'objet en question.
04/02/2008, 21h15
atomusk
Citation:

Envoyé par ced600

essayes :

Code:

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

Ca me donne ça :
Code:

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é.
Citation:
Code:

1 2 set toto = objRecordset.Fields.Item("System.Keywords") toto(0)
Ce me donne ça

Citation:

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 :lol:

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

Je repasserai si on me donne une réponse la bas :aie:
05/02/2008, 09h26
ced600

Citation:

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é :D 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
05/02/2008, 10h48
atomusk

Citation:

Envoyé par ced600

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é :D 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 :oops:
Mais c'est vrai que j'ai pas trouvé d'autre solution pour lister l'ensemble des tags des images :( ...
05/02/2008, 13h53
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.
05/02/2008, 14h16
atomusk

Citation:

Envoyé par 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.

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)")

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

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 :aie: (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 :cry:)
Donc j'ai "converti" mon script ASP en un vrai VBscript pour pouvoir l'executer directement depuis mon Vista :
Code:

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 :

http://totolelex.free.fr/debug.png

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 :oops:

je demande donc (encore) votre aide :hola:

11/02/2008, 09h47
ced600

pour voir, essaye :

Code:

v_keyword("Mot clé.")

et :

Code:

v_keyword.Value("Mot clé.")
11/02/2008, 20h37
atomusk

Citation:

Envoyé par ced600

pour voir, essaye :

Code:

v_keyword("Mot clé.")

et :

Code:

v_keyword.Value("Mot clé.")

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

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 :evilred:
11/02/2008, 20h45
SfJ5Rpw8
peu-être avec une boucle for each ...
Code:

1 2 3 For Each v In v_keywords.Value MsgBox v Next
12/02/2008, 09h52
ced600
Citation:
Envoyé par bbil

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

Code:

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)
12/02/2008, 10h35
atomusk
Citation:
Envoyé par bbil

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

Code:

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.

Citation:

Envoyé par ced600

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:

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:

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:

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 :aie:).

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

merci encore ;)

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:

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

Citation:

Envoyé par 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:

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:

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

14/02/2008, 09h35
ced600

un dernier truc :
item.value.keywords(0)
14/02/2008, 20h48
atomusk

Citation:

Envoyé par ced600

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 :oops:

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 :oops:

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