Bonjour à tous,

Décidément je collection les soucis de connexion en ce moment.

Je ne comprend pas cette erreur, j'ai tous essayé mais rien ne change.

Voici ma fonction source d'erreur :

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
  Public Function listerTest(Optional ByVal id As Integer = Nothing) As ArrayList Implements ImyService.listerTest
        Dim cxString As String = "Data Source=JEROME-PC\SQLEXPRESS;Initial Catalog=MonAlbum;Integrated Security=True"
        Dim Connexion As SqlConnection
        Connexion = New SqlConnection
        Connexion.ConnectionString = cxString
        Dim query As String
        Dim tab As New ArrayList
        Try
 
            Connexion.Open()
            If id <> Nothing Then
                query = " SELECT * FROM  image WHERE id = " & id
            Else
                query = "SELECT * FROM image"
            End If
 
            Dim commande As SqlCommand = New SqlCommand(query, Connexion)
            Dim images As New ArrayList
 
            Dim myreader As SqlDataReader = commande.ExecuteReader
 
            'Propriété de la classe image ( Transtypage )
            Dim CG As String
            Dim CM As String
            Dim Titre As String
            Dim idUser As Integer
            Dim idNiveau As Integer
 
            While myreader.Read
                CG = myreader.GetString(1)
                CM = myreader.GetString(2)
                Titre = myreader.GetString(3)
                idUser = CType(myreader(4), Integer)
                idNiveau = CType(myreader(5), Integer)
                Dim img As New MonAlbumLibrairie.Image(CG, CM, Titre, idUser, idNiveau)
                tab.Add(img)
            End While
 
            Return tab
            myreader.Close()
            Connexion.Close()
        Catch ex As SqlException
            tab.Add(ex.Message)
            Return tab
        End Try
 
    End Function
Merci par avance pour votre aide