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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
<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 : 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
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