Sauvegarder un PDF dans un blob Oracle

Version imprimable

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:

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

Bien que je n'ai pas eu de réponses, j'ai trouvé la solution que je partage avec vous

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
38
39
40
41
42
 
        Imports Oracle.DataAccess.Client
		Imports Oracle.DataAccess.Types
		%ajouter la référence System.Data.OracleClient
 
		Dim OracleCon As New OracleConnection
        Dim OracleComm As New OracleCommand
        Dim Sql As String
        Dim Path As String
 
        Dim Dates As String = Format(Date.Now, "dd MMMM yyyy")
 
        Path = "E:\Test\test.pdf"
 
        Dim fs As New IO.FileStream(Path, IO.FileMode.OpenOrCreate, IO.FileAccess.Read)
        Dim MyData(CInt(fs.Length)) As Byte
        fs.Read(MyData, 0, CInt(fs.Length))
        fs.Close()
 
        OracleCon.ConnectionString = "Data Source=BASE;User ID=USR;Password=PWD;Unicode=True"
        Sql = "insert into TABLE (CHP1,CHP2,CHP3,CHP4,DATA_BLOB) values (NomFichier,Date,PDF,0,:BLOBFILE)"
        OracleComm.CommandText = Sql
        OracleComm.Connection = OracleCon
        OracleComm.Parameters.Add("BLOBFILE", OracleType.Blob).Value = MyData
        OracleCon.Open()
        Dim blobTransaction As OracleTransaction = OracleComm.Connection.BeginTransaction
        OracleComm.Transaction = blobTransaction
 
        Try
            Dim inc As Integer = OracleComm.ExecuteNonQuery
            blobTransaction.Commit()
 
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
 
        MyData = Nothing
        fs.Close()
        fs.Dispose()
        OracleComm.Dispose()
        OracleCon.Close()
        OracleCon.Dispose()

Citation:

Envoyé par BenMarcel

Bien que je n'ai pas eu de réponses, j'ai trouvé la solution que je partage avec vous

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
38
39
40
41
42
 
        Imports Oracle.DataAccess.Client
		Imports Oracle.DataAccess.Types
		%ajouter la référence System.Data.OracleClient
 
		Dim OracleCon As New OracleConnection
        Dim OracleComm As New OracleCommand
        Dim Sql As String
        Dim Path As String
 
        Dim Dates As String = Format(Date.Now, "dd MMMM yyyy")
 
        Path = "E:\Test\test.pdf"
 
        Dim fs As New IO.FileStream(Path, IO.FileMode.OpenOrCreate, IO.FileAccess.Read)
        Dim MyData(CInt(fs.Length)) As Byte
        fs.Read(MyData, 0, CInt(fs.Length))
        fs.Close()
 
        OracleCon.ConnectionString = "Data Source=BASE;User ID=USR;Password=PWD;Unicode=True"
        Sql = "insert into TABLE (CHP1,CHP2,CHP3,CHP4,DATA_BLOB) values (NomFichier,Date,PDF,0,:BLOBFILE)"
        OracleComm.CommandText = Sql
        OracleComm.Connection = OracleCon
        OracleComm.Parameters.Add("BLOBFILE", OracleType.Blob).Value = MyData
        OracleCon.Open()
        Dim blobTransaction As OracleTransaction = OracleComm.Connection.BeginTransaction
        OracleComm.Transaction = blobTransaction
 
        Try
            Dim inc As Integer = OracleComm.ExecuteNonQuery
            blobTransaction.Commit()
 
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
 
        MyData = Nothing
        fs.Close()
        fs.Dispose()
        OracleComm.Dispose()
        OracleCon.Close()
        OracleCon.Dispose()

Merci beaucoup pour le retour, ça pourrait me servir prochainement ! :hola:

15/04/2014, 16h48
BenMarcel

Citation:

Envoyé par _Ez3kiel

Merci beaucoup pour le retour, ça pourrait me servir prochainement ! :hola:

N'hésites pas à me contacter en cas de problème ... J'y ai mis le temps mais ça fonctionne
A ++