Boucle infinie help svp.

**momoh** · 17/04/2009, 11h33

Bonjour à tous,
voilà j'ai un petit problème, j'ai écrit un code qui va chercher des informations dans l' Active Directory et les met dans une DB sous SQL server 2000. Lorsque j'exécute le code il me met deux fois la même information dans ma DB, et je ne comprends pas pourquoi ?

Quelqu'un peut-il jeter un coup d'oeil à mon code et me dire ce qui ne va pas s'il vous plait ?
Bien à vous.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
 
<%@ Page Language="VB" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI" Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral, PublicKeyToken=6f763c9966660626" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Web.Mail" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.DirectoryServices" %>
<%@ import Namespace="System.Configuration" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Net.DNS" %>
<%@ import Namespace="System.ComponentModel" %>
<%@ import Namespace="System.Management" %>
<%@ import Namespace="System.Runtime.InteropServices" %>
<%@ import Namespace="System" %>
<%@ import Namespace="ActiveDs" %>
<%@ import Namespace="System.Text" %>
<%@ import Namespace="System.Net.NetworkInformation" %>
<%@ import Namespace="System.Net.Sockets" %>
<script runat="server">
 
    ' Insert page code here
    '
 
 
    Sub Page_Load()
 
    Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://scoot.local", "toto", "toto")
                  Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
                  searcher.Filter = "(objectClass=computer)"
                  Dim DirEntry As DirectoryEntry
                  Dim nom As String
                  Dim OsVersion As String
                  Dim Os As String
                  Dim ServicePack As String
                  Dim Ip As String
                  Dim largeInteger As Object
                  Dim lastLoggedOnDate As Date
                  Dim reboot As Date
                  Dim rebootTime As Object
                  Dim datejour As Date
                  datejour = Date.Now
 
                  SqlDataSourceControl1.ConnectionString="server='(local)'; trusted_connection=true; database='pspintranet'"
                  SqlDataSourceControl1.SelectCommand="Select * from Helpdesk"
 
 
 
                  For Each result As SearchResult In searcher.FindAll
 
                   DirEntry = result.GetDirectoryEntry
 
                    nom = DirEntry.Properties("Name").value
                   'insertion des ip dans la DB.
                   Dim IPHost As IPHostEntry = Dns.Resolve(DirEntry.Properties("Name").value)
                   Dim addressList As IPAddress() = IPHost.AddressList
                   Dim b As IPAddress = addressList(0) ' récupère la première adresse
                   Ip = b.ToString()
 
 
 
                    call SQLExecuteQuery("INSERT INTO Helpdesk (Ip,nom) VALUES('"& Ip &"','" & nom & "')")
 
 
                    Next
 
 
 
 
 
 
                   'MxDataGrid1.DataBind()
 
 
 
 
 
    End Sub
 
    Function SQLExecuteQuery(ByVal sqlQuery As String) As String
 
                  Dim a As String
 
                  Dim objConnect As New SqlConnection("server='(local)'; trusted_connection=true; database='pspintranet'")
                  objConnect.Open()
 
                  Dim objCommand As New SqlCommand(sqlQuery, objConnect)
                  a = objCommand.ExecuteNonQuery()
                  Return a
 
         End Function
 
</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <wmx:SqlDataSourceControl id="SqlDataSourceControl1" runat="server" ConnectionString="server='(local)'; trusted_connection=true; database='pspintranet'" DeleteCommand="" SelectCommand="SELECT * FROM [Helpdesk]" UpdateCommand=""></wmx:SqlDataSourceControl>
        <wmx:MxDataGrid id="MxDataGrid1" runat="server" AllowPaging="True" AllowSorting="True" CellPadding="3" DataKeyField="helpdesk_id" DataSourceControlID="SqlDataSourceControl1" DataMember="Helpdesk" BackColor="White" BorderColor="#CCCCCC" BorderWidth="1px" BorderStyle="None">
            <FooterStyle backcolor="White" forecolor="#000066"></FooterStyle>
            <HeaderStyle backcolor="#006699" font-bold="True" forecolor="White"></HeaderStyle>
            <ItemStyle forecolor="#000066"></ItemStyle>
            <PagerStyle mode="NumericPages" horizontalalign="Center" backcolor="White" forecolor="#000066"></PagerStyle>
            <SelectedItemStyle backcolor="#669999" font-bold="True" forecolor="White"></SelectedItemStyle>
        </wmx:MxDataGrid>
        <!-- Insert content here -->
    </form>
</body>
</html>

**samworld** · 17/04/2009, 15h22

Si la requête SQL d'insertion s'exécute deux fois de suite, peux-tu alors confirmer que :
- la base de données source, à savoir l'Active Directory, contient bien deux fois la même entrée, ou alors
- ton outil "searcher" doit être mieux configuré pour éviter les doublons.

Boucle infinie help svp.

VB.NET

Discussions similaires

Partager

Partager