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() |
Partager