bonjour,
je soubhaite créer un code me permettant de sauvegarder un fichier PDF dans un champ BLOB d'une table Oracle.
Après diverses recherches, j'ai créé un code, qui, techniquement fonctionne, mais au final ne fait rien ... ... je ne recupere meme pas l'erreur Oracle dans le Catch ... Dois je faire un commit ?
Merci de votre aide


J'utilise ce code dans un élément Script Task d'un flux SSIS

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
 
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types
 
        Dim con As New OleDb.OleDbConnection
        Dim comm As New OleDb.OleDbCommand
        Dim Sql As String
 
        con.ConnectionString = "Data Source=BASEORACLE;User ID=SCHEMA;Password=SCHEMA;Provider=MSDAORA.1;Persist Security Info=True;"
        con.Open()
 
 
        Dim fs As New IO.FileStream("E:\TEST.pdf", IO.FileMode.OpenOrCreate, IO.FileAccess.Read)
        Dim MyData(CInt(fs.Length)) As Byte
        fs.Read(MyData, 0, CInt(fs.Length))
        fs.Close()
 
        Sql = "insert into T_IMG (NAME,CREA,DATA_BLOB) values (TEST','14/04/2014',:BlobParameter)"
        Dim Blobparameter As OleDb.OleDbParameter = New OleDb.OleDbParameter
        Blobparameter.OleDbType = OleDb.OleDbType.LongVarBinary
        Blobparameter.ParameterName = "BlobParameter"
        Blobparameter.Value = MyData
 
        Try
            comm = New OleDb.OleDbCommand(Sql, con)
            comm.Parameters.Add(Blobparameter)
            comm.CommandType = CommandType.Text
            comm.ExecuteNonQuery()
        Catch Ex As Exception
            MsgBox (Ex)
        End Try
 
 
        fs = Nothing
        con.Close()
        con = Nothing