Stocker Image dans Oracle via VB.net

Version imprimable

24/05/2010, 03h19
sisiniya

Stocker Image dans Oracle via VB.net

Bonjour,

S'il vous plaît, j'aimerai stocker une image dans oracle via le code vb.net. Au fait, j'ai effectué des recherches avant de poster ce message, mais j'ai trouvé plein des exemples pour le code java (et j'ai réussi à stocker l'image en java).

S'il vous plaît, aidez moi ...

Merci.

Sisiniya.

Ben c'est le même principe...

Tu fais une requête INSERT dans un champ BLOB, avec un paramètre pour transmettre les données de l'image :
Code:

1 2 3 4 5 ... command.CommandText = "INSERT INTO LA_TABLE(LA_COLONNE) VALUES (:image_bytes)" command.Parameters.Add("image_bytes", OracleType.Blob).Value = image_bytes command.ExecuteNonQuery()
Pour convertir l'image en bytes, tu peux utiliser un MemoryStream :
Code:

1 2 3 4 5 Dim image_bytes as Byte() Using ms As New MemoryStream() image.Save(ms) image_bytes = ms.ToArray() End Using

24/05/2010, 14h45
sisiniya
Merci pour votre réponse.

J'ai des questions si vous me permettez bien sûr à propos de votre code :

Premièrement :
Code:

1 2 3 command.CommandText = "INSERT INTO LA_TABLE(LA_COLONNE) VALUES (:image_bytes)" command.Parameters.Add("image_bytes", OracleType.Blob).Value = image_bytes
Est ce qu image_bytes est la variabe que vous avez déclaré -> Dim image_bytes as Byte() ?

Où puis-je préciser le chemin de l'image dans ce code ?
Code:

1 2 3 4 5 6 Dim image_bytes as Byte() Using ms As New MemoryStream() image.Save(ms) image_bytes = ms.ToArray() End Using
Deuxièment :
Il y a deux erreurs qui ont été sourligné par IDE Visual Studio :

1) image.Save(ms) -->> il ne connaît pas save
2) OracleType.Blob -->> il ne connait pas OracleType, il sait que OracleTypeException (d'ailleur j'ai importé Imports Oracle.DataAccess.Types)

Merci infiniment pour vos aides.

Sisiniya.
24/05/2010, 14h49
zarohn

Pour OracleType il faut importer System.Data.OracleClient je crois
24/05/2010, 14h58
sisiniya

moi je travaille avec Imports Oracle.DataAccess.Client
24/05/2010, 15h01
zarohn

essayes OracleDbType.Blob à la place de OracleType.Blob
24/05/2010, 15h31
tomlev

Citation:

Envoyé par sisiniya

Est ce qu image_bytes est la variabe que vous avez déclaré -> Dim image_bytes as Byte() ?

oui

Citation:

Envoyé par sisiniya

Où puis-je préciser le chemin de l'image dans ce code ?

Mon code suppose que image est une variable de type Image. On peut charger l'image avec Image.FromFile :

Code:

Dim image As Image = Image.FromFile(cheminDuFichier)

(D'ailleurs il vaudrait sans doute mieux l'appeler autrement, "img" par exemple : vu que VB ne prend pas en compte la différence de casse, il risque de confondre avec le type Image)

Citation:

Envoyé par sisiniya

1) image.Save(ms) -->> il ne connaît pas save

Sans doute parce que la variable image n'est pas déclarée (cf. ci-dessus)

Citation:

Envoyé par sisiniya

2) OracleType.Blob -->> il ne connait pas OracleType, il sait que OracleTypeException (d'ailleur j'ai importé Imports Oracle.DataAccess.Types)

OK, j'ai supposé que tu utilisais le provider Oracle du framework (System.Data.OracleClient), mais en fait tu utilises ODP.NET... Si tu remplaces OracleType par OracleDbType, ça devrait marcher
24/05/2010, 20h05
sisiniya

Merci pour vos réponses. Oui ça marche, et quand je consulte dans la base donnée le champs de l'image, je trouve <Binary data>.

Alors, ma question suivante si vous me permettez, je veux charger l'image qui je viens de stocker pour s'assurer que le stockage est bien fait.

Merci infiniment pour vos aides.

Sisiniya.

Ben tu fais un SELECT du champ où y a l'image, tu récupères un Byte()
Et à partir de là, tu charges l'image via un MemoryStream :
Code:

1 2 3 4 5 6 command.CommandText = "SELECT LA_COLONNE FROM LA_TABLE WHERE (condition...)" Dim image_bytes as Byte() = CType(command.ExecuteScalar(), Byte()) Dim img As Image Using ms As New MemoryStream(image_bytes) img = Image.FromStream(ms) End Using

25/05/2010, 20h55
sisiniya

Merci pour votre réponse, j'ai essayé d'executer le code. mais je veux voir la photo , par exemple soit la stocker dans un endrit sur disque ou bien l'afficher dans un PictureBox.

Alors pour la stocker dans le disque je sais pas comment, et pour l'afficher sur un PictureBox que j'ai déplacé dans le form, alors je fais comme ça :

PictureBox1.Visible()
PictureBox1.Image(img)

Mais il me souligne les deux lignes !!

Merci infiniment pour vos aides...

Sisiniya
25/05/2010, 21h19
tomlev
Citation:

Envoyé par sisiniya

Alors pour la stocker dans le disque je sais pas comment

Utilise la méthode Save de l'image, en passant en paramètre le chemin du fichier

Citation:

Envoyé par sisiniya

et pour l'afficher sur un PictureBox que j'ai déplacé dans le form, alors je fais comme ça :

PictureBox1.Visible()
PictureBox1.Image(img)

Mais il me souligne les deux lignes !!

Visible et Image sont des propriétés, pas des méthodes...
Code:

1 2 PictureBox1.Visible = True PictureBox1.Image = img

si vous me permettez, et vraiment je m'excuse pour la quantité des questions que je pose.

Voilà mon code que j'ai inséré dans un bouton.Au clique sur ce bouton, je veux que je crée dans disque dure l'image, et aussi d'afficher cette image dans un Picturebox que j'ai glissé dans le form.

Code:

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

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim oradb As String = "Data Source=(DESCRIPTION =(ADDRESS = (PROTOCOL = TCP)(HOST = Sisiniya-PC)(PORT = 1521))" _
                            + "(CONNECT_DATA = (SERVER = DEDICATED)(SERVICE_NAME = XE)));" _
                            + "User Id=SYSTEM;Password=sisiniya;"

        ' Create the connection object
        Dim conn As New OracleConnection(oradb)
        Dim cmd As New OracleCommand
        Try
            conn.Open()
            Try
                cmd.Connection = conn
                cmd.CommandText = "select image from AAA where id = 6"
                Dim image_bytes As Byte() = CType(cmd.ExecuteScalar(), Byte())
                Dim img As Image
                Using ms As New MemoryStream(image_bytes)
                    img = Image.FromStream(ms)
                    img.Save("C:\image_chargee.png")                End Using
                PictureBox1.Visible = True
                PictureBox1.Image = img                cmd.ExecuteReader()
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try
        Catch ex As Exception
            Console.WriteLine("Sisiniya : Connection to Oracle database established failed !")
        Finally
            
            cmd.Dispose() 'Dispose OracleCommand object
            ' Close and Dispose OracleConnection object
            conn.Close()
            conn.Dispose()
        End Try

    End Sub
End Class

Mais à l'xecution, ni l'image a été crée dans le chemin c:\ ni l'image a été afficher dans le PictureBox1.

Je m'excuse ... et merci toujours pour vos aides.

Sisiniya.

25/05/2010, 22h00
tomlev

et dans la console, y a des exceptions qui s'affichent ?

sinon, 2 remarques :

- il manquerait pas des retours à la ligne dans ton code ?
- c'est quoi ce "cmd.ExecuteReader" qui traine tout seul et qui sert à rien ?
27/05/2010, 02h11
sisiniya

Non Non, il n' y a aucune exception.

Citation:

Envoyé par tomlev

il manquerait pas des retours à la ligne dans ton code ?

C'est vrai qu'il n' y a pas de retoure à la ligne pour certain ligne de code, mais ce-ci est dû juste de l'affichage de mon message. Mais chez moi, c'est bien sûr avec des sauts de ligne.

Citation:

Envoyé par tomlev

- c'est quoi ce "cmd.ExecuteReader" qui traine tout seul et qui sert à rien ?

Oui c'est vrai ça sert à rien, celui là je l'ai mis en commentaire chez moi, je travaille avec cmd.ExecuteScalar()

Alors, je ne sais pas où est le problème. Est ce que je dois réctifier le code, ou bien ajouter quelques choses ... ??

Merci pour vos aides ...
27/05/2010, 10h49
tomlev

Citation:

Envoyé par sisiniya

Non Non, il n' y a aucune exception.

Ben oui mais tu les affiches dans la console, et vu que c'est une appli windows, y a pas de console... mets plutôt des MessageBox à la place des Console.WriteLine

Citation:

Envoyé par sisiniya

Alors, je ne sais pas où est le problème. Est ce que je dois réctifier le code, ou bien ajouter quelques choses ... ??

Ben je sais pas, j'ai pas assez d'éléments pour l'instant... essaie d'exécuter en pas-à-pas pour voir ce qui se passe
27/05/2010, 15h30
sisiniya

Oui vous avez raison, je dois faire un MsgBox. Alors il m'a affiché le message suivant :

Citation:

Le paramétre n'est pas valide

ça veut dire quoi ?

Merci pour vos réponses.
27/05/2010, 15h48
tomlev

je sais pas... il faudrait voir sur quelle instruction il plante. Poste aussi la pile d'appels de l'exception (StackTrace)

Après le StackTrace, il m'a indiqué la ligne là où il y a l'erreur , c'est la ligne en rouge:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

cmd.Connection = conn
                cmd.CommandText = "select image from AAA where id = 14"
                Dim image_bytes As Byte() = CType(cmd.ExecuteScalar(), Byte())
                Dim img As Image
                Using ms As New MemoryStream(image_bytes)
                    img = Image.FromStream(ms)                   
                 img.Save("C:\image_chargee.png")
                End Using
                PictureBox1.Visible = True
                PictureBox1.Image = img
                'cmd.ExecuteReader()
            Catch ex As Exception
                MsgBox(ex.Message + "-> Stacke : " + ex.StackTrace, MsgBoxStyle.Information)
            End Try

Merci pour votre aide.

27/05/2010, 21h46
tomlev

bizarre... il y a bien des données dans image_bytes ? tu peux vérifier quelle taille il fait ?

SUITE DE DISCUSSION :

Bonjour ... ,

Un mois passé, et je n'arrive pas à charger l'image depuis la base de donnée.

Voilà comment et j'ai procédé pour enregistrer et charger dans la base :

Fonction pour convertir Image to Byte:

Code:

1
2
3
4
5
6
 
Public Function ImageToByteArray(ByVal img As Image) As Byte()
        Dim stream As New MemoryStream
        img.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Return stream.ToArray
    End Function

Enregistre l'image dans BDD :

Code:

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
 
 
Dim image_bytes As Byte()
        Dim img As Image = Image.FromFile("c:\me.png")
        image_bytes = ImageToByteArray(img)
 
        ' Create the connection object
        Dim conn As New OracleConnection(oradb)
        Dim cmd As New OracleCommand
        Try
            conn.Open()
            Try
                cmd.Connection = conn
                'cmd.CommandText = "INSERT INTO AAA(id,image,name) VALUES (seq_no_aaa.nextval,:image_bytes,'" + n + "')"
                cmd.CommandText = "insert into personnels (id_personnel,photo_personnel) values(seq_personnel.nextval:image_bytes)"
                cmd.Parameters.Add("image_bytes", OracleDbType.Blob).Value = image_bytes
                cmd.ExecuteNonQuery()
                'cmd.ExecuteReader()
            Catch ex As Exception
                MsgBox("Erreur Requete : " + ex.Message + "__//__" + ex.StackTrace)
            End Try
        Catch ex As Exception
            MsgBox("Erreur Connexion : " + ex.StackTrace)
        Finally
 
            cmd.Dispose()
            conn.Close()
            conn.Dispose()
        End Try

Resultat : aucune erreur n'est générée

Chargement d'image from la base de donnée :

Code:

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
' Create the connection object
        Dim conn As New OracleConnection(oradb)
        Dim cmd As New OracleCommand
        Dim dr As OracleDataReader
        Try
            conn.Open()
            Try
                cmd.Connection = conn
                cmd.CommandText = "select photo_personnel from personnels where id_personnel = 123"
                dr = cmd.ExecuteScalar()
                Dim image_bytes As Byte() = CType(dr("photo_personnel"), Byte())

                Dim img As Image
                
                Using ms As New MemoryStream(image_bytes)
                    img = Image.FromStream(ms)
                    img.Save("c:\image_chargee.png")
                End Using

                image_.Visible = True
                image_.Image = img

            Catch ex As Exception
                MsgBox(ex.Message + "-> Stacke : " + ex.StackTrace, MsgBoxStyle.Information)
            End Try
        Catch ex As Exception
            MsgBox("Sisiniya : Connection to Oracle database established failed !", MsgBoxStyle.Information)
        Finally

Resultat : Erreur dans la ligne Rouge ->
MESSAGE D'ERREUR ENVOYE PAR STACKTRACE :

Citation:

La référence d'objet n'est pas définie à une instance d'un objet

J'ai besoin de vos aides, car j'ai passé un mois en cherchant où la solution mais vainement.

Merci ...

Sisiniya.

25/06/2010, 20h28
tomlev

Avec Oracle, les noms de colonne sont mis en majuscule dans le résultat de la requête : essaie avec dr("PHOTO_PERSONNEL")

Sinon, juste une petite remarque : si tu insères les données de l'image à partir d'un fichier, inutile de charger l'image puis de l'enregistrer dans un stream: tu peux récupérer directement les données brutes du fichier avec File.ReadAllBytes. Avec la technique que tu utilises, tu dégrades inutilement la qualité de l'image à cause du décodage/réencodage.