none
Commet ça marche RRS feed

  • Question

  • Bonjour,

    j'ai réaliser mon code sous visul basic 2005 express. Ce code est dans form1. Je l'ai générer et il n'y a pas d'erreur. Je veut le mettre en fonctionnement, je fais comment?

    mercredi 16 janvier 2008 10:20

Réponses

Toutes les réponses

  •  harlockbaz A écrit:

    Je l'ai générer et il n'y a pas d'erreur. Je veut le mettre en fonctionnement, je fais comment?

     

    Que veut tu dires par "Mettre en fonctionnement" ? Si ce n'est que de le voir fonctionné, tu n'as qu'à faire Debug/Run ou appuyer sur F5. Sinon il faudrait avoir plus de détails.

    mercredi 16 janvier 2008 12:45
    Modérateur
  •  

    Voila mon code :

     

    Extrait de code

    Module Module1

    Sub Main()

    On Error Resume Next

    Dim objCon, strQuery, strADSPath, objUser, objrecset 'Déclaration des variables

    Dim itmX As ListItem

    Dim Interm As String, Date_Contrôle As String

    Dim Ecart_Date, lstListe

     

    strQuery = "SELECT cn, adspath FROM 'LDAP://ou=Users,ou=France,ou=Regions,dc=eu,dc=global,dc=ad' WHERE objectclass='User' AND objectcategory='Person'" 'Définition de la requête à exécuter

    objrecset = objCon.Execute(strQuery) 'Exécution de la requête

    Do While Not objrecset.EOF 'Boucle dans le recordset jusqu'à la fin du tableau

    objUser = GetObject(objrecset.Fields("adspath").Value) 'Connexion à l'objet utilisateur par le biais de son adspath

    Interm = Format(objUser.LastLogin, "dd-mm-yy") 'Récupération de la propriété "lastlogin" et formattage de type "jj-mm-aa"

    Ecart_Date = DateDiff("y", Interm, Date_Contrôle) 'Calcul du nombre de jours entre la dernière connexion et la date du jour

    If Ecart_Date >= 30 Then 'Si l'écart de date est supérieur à 30 jours :

    itmX = lstListe.ListItem.Add(, , objrecset.Fields("cn").Value) 'Ajoute le common name à la liste

    itmX.SubItems(1) = Interm 'Affichage de la date de dernière connexion dans la seconde colonne

    itmX.SubItems(2) = Ecart_Date & " jours" 'Affichage du nombre de jours sans connexion

    If objUser.AccountDisabled Then itmX.SubItems(3) = "Oui" 'Affiche si le compte est désactivé

    End If

     

    objrecset.movenext() 'passe à l'enregistrement suivant

    Loop

    objCon.Close() 'ferme la connexion à l'Active Directory

    End Sub

    End Module

     

     

     

    C'est un projet application windows. Je veut exécuter ce programme et qu'il m'affiche le résultat

    mercredi 16 janvier 2008 13:11
  • Mais es-ce que tu l'as fait exécuter(En appuyant sur F5)? Si oui, quel sont les erreurs qui sont apparues? Et si pas d'erreur (Met le On Error Resume Next en commentaire pour le faire planter, au cas ou) et nous donnez un peu plus de détails.

    mercredi 16 janvier 2008 13:34
    Modérateur
  • Ah, j'ai comme erreur Type 'listItems' non définie. C'est étrange j'avais rien ce matin. Je résoud sa comment?

     

    mercredi 16 janvier 2008 14:03
  • J'ai modifier listItem par listView et du cout j'ai comme erreur : Erreur 1 'SubItems' n'est pas un membre de 'System.Windows.Forms.ListView'. 

    Je sais pas du tout quoi faire.

     

    Merci de voter aide

    mercredi 16 janvier 2008 14:22
  • Salut,

     

    le meilleur moyen de bien comprendre, va sur cette page de MSDN et fait une recherche sur le ListView(Environ dans le milieu de la page), il y a plusieurs exemple avec un treeview (ainsi que les autres contrôles).

     

    Voici spécifiquement la page permettant d'ajouter des items dans le ListView

    mercredi 16 janvier 2008 15:33
    Modérateur