voilà mon code, je ne comprends pas pourquoi il ne marche pas, il me met l'erreur sur la ligne:

reader = cmd.ExecuteReader

Pourtant, la requête sql marche (je l'ai testé moimême dans la bas de données) ainsi que la string de connexion est bonne....

quelqu'un poura m'aider???

Merçi d'avance..


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
    Sub verifier_db2()
 
        Dim conn As New SqlConnection
        Dim reader As SqlDataReader
        Dim serverName As String = "basemaster"
 
        conn.ConnectionString = "packet size=4096;user id=wpmreports;pwd=welcome;data source=""" & serverName & """;persist security info=False;initial catalog=WPMDB"
 
        conn.Open()
 
        Dim cmd As SqlCommand
        cmd = Nothing
 
        cmd = New SqlCommand("SELECT technical_body.TB_KEY1 FROM(technical_body) GROUP BY technical_body.TB_KEY1 ORDER BY technical_body.TB_KEY1;", conn)
 
        reader = cmd.ExecuteReader
 
        Dim i As Integer = 0
 
        While reader.Read
            dropdownlist1.Items.Add(reader.GetString(i))
            i = i + 1
        End While
 
        reader.Close()
        conn.Close()
 
    End Sub