mettre le résultat d'une requete dans une combobox

[benjamindu42]

Bonjour, Voila j'ai un soucis pour récupéré les contacts que j'ai sur ma base de donnée. En faite je souhaiterai que tout mes contacts présent sur ma base de donnée puisse être récupéré dans une combobox.
Mais la je bloque cela me dit qu'une variable de ma boucle for n'est pas valide.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Window_OnLoad
	Set objConnection = CreateObject("ADODB.Connection")
	Set objRecordset = CreateObject("ADODB.Recordset")
	objConnection.Open "DRIVER={MySql ODBC 5.1 Driver};SERVER=localhost;DATABASE=nom base;UID=*****;PASSWORD=password;"
	strSQLQuery = "SELECT nom FROM personne"
	objRecordset.Open strSQLQuery , objConnection
 
	For Each objRecordset.Fields(nom) In personne
		Set objOption = Document.createElement("OPTION")
        objOption.Text = objRecordset.Fields.Description
		personnel.Add(objOption)
	Next
 
	objRecordset.Close
	objConnection.Close
End Sub

que je fais correspondre dans mon hta à:

Code :

<select name="personnel" id="personnel"/></select>

je ne comprend pas ou est mon erreur donc si vous avez une idée

PS: je me suis basé sur le code suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub NetName_OnSubLoad
	strComputer = "."
 
	Set objWMIService = GetObject("winmgmts:" _
    	& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
	Set colAdapters = objWMIService.ExecQuery _
    	("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
	For Each objAdapter in colAdapters
        Set objOption = Document.createElement("OPTION")
        objOption.Text = objAdapter.Description
        objOption.Value = objAdapter.Description
        NetName.Add(objOption)
	Next
 
    Name = NetName.Value
    Dim NCListing
    Set NCListing = New NetworkCardListing
	NCListing.NetGetIP(Name)
End Sub

[nsanabi]

je m'excuse si je sors du sujet : avec du vbscript on peut accéder à des DB?? (endehors du vbscript sur une page asp )

[tsuji]

[0] D'abord, élément select-one dans html n'est pas tout à fait un combobox. Mais, brief...

[1] Pour identifier l'objet personnel, je prefèrerais beaucoup mieux d'une façon explicit. Je sais vous pouvez faire comme vous faite en IE, mais je ne regarde avec un bon oeil; plutôt le faire proprement à la façon html.

Code :

1
2
3
4
 
set personnel=document.getElementById("personnel")
'ou
'set personnel=document.forms(0).personnel

[2] Le code central devrait s'écrire comme ça.

Code :

1
2
3
4
5
6
7
8
 
            do while not objRecordset.eof
               Set objOption = Document.createElement("OPTION")
               objOption.Text = objRecordset.Fields("nom").value
               objOption.value = objRecordset.Fields("nom").value
               personnel.Add(objOption)
               objRecordset.movenext
            loop

[benjamindu42]

Envoyé par nsanabi

je m'excuse si je sors du sujet : avec du vbscript on peut accéder à des DB?? (endehors du vbscript sur une page asp )

oui il est possible d’accéder a une DB en VBScript.
Si tu as besoin d'aide n'hésite pas.

[benjamindu42]

Merci encore tsuji, cela faisai un paquet d'heure que je cherchais et la je ne voyais plus trop se qui n'allais pas.
Finalement je me compliquai vraiment la vie.

Je n'ai ps compris l'interet de ce code ci:

Envoyé par tsuji

Code :

C'est pourquoi je ne l'ai pas réutilisé.

Envoyé par tsuji

Code :

Par contre le code fonctionne niquel, je l'ai adapter à mes besoin puisque
objOption.value doit correspondre a un numero de fax.
En tout cas cela fonctionne a merveille.

Merci donc pour tout, mon developpement est donc fini pour la partie VBScript ( enfin jusqu'a ce que mon patron me demande plus de fonctionnalité).
Je vais donc maintenant m'attelé à la création d'un executable pour l'installation.

Merci tsuji

[nsanabi]

Merci Benjamin
à mes connaissance le code vbscript est exécuté coté client, le seule vbscript qui pourra utiliser des ressources serveurs (comme une base de données) est celui qu'on met dans des pages asp (plus d'actualité maintenant avec asp.net).

Comment le code vbs d'une page html qu'on affiche sur le navigateur d'un client pourra t il accéder à un serveur de BD ..?? Je trouve cela juste incohérent