Discussion :

[rocketter]

Bonjour,

comme indiqué dans la question j'aimerais charger des données Blob d'une base SQL Server dans un PictureBox ; je suis tombé sur ce lien : https://support.microsoft.com/fr-fr/...rms-picturebox

J'ai testé la solution avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
document = New System.Data.SqlClient.SqlCommand("SELECT INFODOC FROM IMAGE WHERE IUDOC = '0000123008'", ConnexionSQL)
            Dim dr As SqlDataReader
 
            dr = document.ExecuteReader(CommandBehavior.CloseConnection)
 
            If dr.Read Then
                Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte
                dr.GetBytes(1, 0, bytBLOBData, 0, bytBLOBData.Length)
                Dim stmBLOBData As New MemoryStream(bytBLOBData)
                PictureBox1.Image = Image.FromStream(stmBLOBData)
            End If
 
            dr.Close()

Mais j'obtiens "L'index se trouve en dehors des limites du tableau."

Il s'agit d'une partie que je maitrise peu, je ne vois pas comment résoudre cette erreur, ma donnée BLOB est trop volumineuse peut-être ? comment le vérifier ?

Merci d'avance de votre aide

[ZenZiTone]

Sur quelle ligne tu as cette exception?

j'aurais penché pour un paramètre incorrecte dans une de ces lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte
                dr.GetBytes(1, 0, bytBLOBData, 0, bytBLOBData.Length)

[rocketter]

C'est à cette ligne que ça coince :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte

Après je ne vois pas comment exploiter le debuggueur pour débusquer plus finement l'erreur

[ZenZiTone]

Tu mets un point d’arrêt. Ensuite tu ajoutes des espions pour voir où ça coince exactement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue)
dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1)
Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte

[rocketter]

Avec ton code, ça coince direct ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue)

Par contre sur quelle variable placer l'espion ?

[ZenZiTone]

Dans l'idée, tu place ton point d'arrêt sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte

Une fois que le programme s'arrête sur ce point d'arrêt, tu sélectionne le texte "dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue)" puis click-droit>Ajouter un espion. Tu devrais donc avoir un exception qui s'affiche dans la fenêtre d'espion. Maintenant tu n'as plus qu'a parcourir l'exception pour en savoir plus.