Discussion :

[gueulederack]

Bonjour à tous,

après un long projet en C# qui s'est bien terminé, je passe sur un projet en VB.NET. Le souci c'est que je suis perdu en VB (beauciup moins de fonctions qu'en C#).

Je souhaite enregistrer les photos et/ou les afficher depuis une base oracle. L'affichage se fait dans un pictureBox. Voici ma requete pour insérer la photo en base:

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
 
Sub PHOTO_INSERT(ByVal VVST_BDDCB As String, ByVal VVST_CUSER As String)
 
        R9 = "INSERT"
        R9 = R9 & " INTO UCB.T_CB_Photo"
        R9 = R9 & " (T_CB_Photo.IDENTIFIANT"
        R9 = R9 & ",T_CB_Photo.NUM_DOSSIER"
        R9 = R9 & ",T_CB_Photo.NOM_PHOTO"
        R9 = R9 & ",T_CB_Photo.TYPE_MIME"
        R9 = R9 & ",T_CB_Photo.FICHIER"
        R9 = R9 & ",T_CB_Photo.DATE_CREATION)"
        R9 = R9 & " VALUES ('" & PHOTO_ID & "'"
        R9 = R9 & ",'" & PHOTO_NUM_DOSSIER & "'"
        R9 = R9 & ",'" & PHOTO_NOM_PHOTO & "'"
        R9 = R9 & ",'" & PHOTO_TYPE_MIME & "'"
        R9 = R9 & "," & PHOTO_FICHIER &
        R9 = R9 & ",'" & PHOTO_DATE_CREATION & "')"
 
        Try
            VMUG999.ADO_EXECUTE_SCALAR(VVST_BDDCB, VVST_CUSER, R9, VMUG999.VGST_LIBER)
            If VMUG999.VGST_LIBER <> "" Then
                VGST_NOERR = "I07901"
                VMUG999.VGST_LIBER = R9 & VGST_CRLFX & VGST_CRLFX & VMUG999.VGST_LIBER
                VMUG999.VGNN_ARRET = 1
                TRAIT_ERREUR_ADO(VGST_NOERR)
                End
            End If
        Catch VGNN_EXCEP As Exception
            VGST_NOERR = "I07901"
            VMUG999.VGST_LIBER = R9 & VGST_CRLFX & VGST_CRLFX & VGNN_EXCEP.ToString
            VMUG999.VGNN_ARRET = 1
            TRAIT_ERREUR_ADO(VGST_NOERR)
            End
        End Try
    End Sub

mais j'ai une erreur

Erreur 9 L'opérateur '&' n'est pas défini pour les types 'String' et 'Tableau à 1 dimension(s) de Byte'. D:\Mes Documents\Visual Studio 2010\Projects\VPCB20\VMCB103.vb 2595 14 VPCB20

pour la valeur "PHOTO_FICHIER" qui est un Byte() et T_CB_Photo.FICHIER est un BLOB. Voyez-vous pourquoi j'ai cette erreur ?

[Shadam]

Je ne suis pas spécialiste Oracle vu que je ne me sers que de SQL Server, mais je te conseille d'utiliser une requête paramétrée (pour des facilités de lecture et de sécurité).

En tout cas j'ai trouvé ça, c'est du C#, tu n'as plus qu'à traduire...

[gueulederack]

mon image ne s'affiche pas. Ci dessous, mon code source.

Code :

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

1
2
3
 
 Dim Bitmap As New Bitmap(VLOB_FOPEN.FileName)
                    PicturePhoto.Image = Bitmap

En pas à pas, les paramètres passent bien, l'image est bien allouée, mais rien ne s'affiche à l'écran. Une idée ?

[gueulederack]

j'ai aussi une autre question, je dois extraire une image d'un champs BLOB (j'utilise une base ORACLE), puis sauvegarder cette image en jpeg. Comment peut-on faire cela ?

Merci d'avance

[GRUMLY]

Bonjour,

En fait, les blob d'oracle sont des tableaux de bytes.
Il faut travailler avec les classes MemoryStream et Bitmap.
Exemple pour transformer un champ blob en bitmap : New Bitmap(New System.IO.MemoryStream(<ton_champ_blob>))