magloui
Messages postés8Date d'inscriptionvendredi 2 avril 2004StatutMembreDernière intervention 3 octobre 2007
-
12 oct. 2005 à 17:30
magloui
Messages postés8Date d'inscriptionvendredi 2 avril 2004StatutMembreDernière intervention 3 octobre 2007
-
13 oct. 2005 à 09:30
Bonjour,
Je doit extraire d'une base oracle des docs, sauvegarder en type LONG RAW, si elle font moin de 32K, il n'y a pas de problème, mais pour les autres rien a faire je n' y arrive pas.
Jutilise le ODP 9.0.2.4, j'utlise le VB.net
D'avance merci pour votre aide.
David
Dim ORADataAdapt As New Oracle.DataAccess.Client.OracleDataAdapter(sql, ORAConn)
'Add Result of Sql To DATATABLE
ORADataAdapt.Fill(ResultBlob)
'Variable Lenght of DataTable
Dim c = ResultBlob.Columns.Count
Dim r = ResultBlob.Rows.Count
'Extract All Blob Of This Table
For i = 0 To (r - 1)
'Take Number of BLOB_KEY
Execute the Sql
Dim cmd As Oracle.DataAccess.Client.OracleCommand = New Oracle.DataAccess.Client.OracleCommand(sql2, ORAConn)
cmd.InitialLONGFetchSize = cmd.InitialLONGFetchSize.MaxValue
'Folder to save Blob
Dim savedImageName As String = "C:\\ImageFromDb.TXT"
'Take Value of Blob File
Dim Reader As Oracle.DataAccess.Client.OracleDataReader = cmd.ExecuteReader()
' Read first record
Reader.Read()
Dim blobbyte = Reader.GetOracleBinary(0).Value
'Execute decompression of Blob and save on Disk
DecompressBlob(blobbyte, savedImageName, False, "")
'Close the copy of Blob File
Reader.Close()
Next i
' Clean up connection
If ORAConn.State = ConnectionState.Open Then
ORAConn.Close()
' Dispose connection
ORAConn.Dispose()
End If