Oraclebinary and log raw datatypes

Question

hi
i have a table (oracle XE 10g) with a column LONG RAW data types, the column contains a XML file for XSLT tranformation.
i want read th column and i write this code but it don't works!!!
Private Sub leggiRiparto()
Dim codiceProvincia As String
Dim codiceComune As String
Dim codtipoelezione As String
'query per la lettura dalla tabella outputscrutini del Db elez
Dim strSQL As New String("SELECT o.DATAELEZIONE, o.CODPROVINCIA,o.CODCOMUNE,o.CODTIPOELEZIONE, o.XML, c.DESCCOMUNE " & _
"FROM outputscrutinio o, comune c " & _
"WHERE o.dataElezione = " & dataElezione & " and o.codtipoelezione = " & tipoelezione & _
" AND o.CODPROVINCIA = c.CODPROVINCIA " & _
" AND o.CODCOMUNE = c.CODCOMUNE " & _
"ORDER by o.codprovincia, o.codcomune")
Dim riparti As OracleCommand ' New OracleCommand(strSQL, dbElezioniDDE)
riparti = New OracleCommand(strSQL, dbElezioniDDE)
Try
'ApriDB()
Dim dtRead As OracleDataReader = riparti.ExecuteReader
If Not dtRead.HasRows Then
MessageBox.Show("Attenzione non ci sono riparti disponibili ! Contattare l'amm.re del DB")
Else
While (dtRead.Read())
codiceProvincia = dtRead.Item("CODPROVINCIA")
codiceComune = dtRead.Item("CODCOMUNE")
codtipoelezione = dtRead.Item("CODTIPOELEZIONE")
Dim blob As OracleBinary = dtRead.GetOracleBinary(4)
'Dim blob As OracleBlob = dtRead.GetOracleBlob(4)
Dim indice As Integer = blob.Length
Dim nomefile As String = "Riparto Seggi" & "-" & dataElezione & "-" & codtipoelezione & "-" & codiceProvincia & "-" & codiceComune
Dim fileXML(indice) As Byte
End While
End If
Catch ex As OracleException 'catch per eccezioni Oracle
Select Case ex.Number
Case 12545
MessageBox.Show("Il database è al momento non disponibile.")
Case Else
MessageBox.Show("errore database: " & ex.Message.ToString)
End Select
Catch ex As Exception
MessageBox.Show("Errore Apertura DB DDE : " & ex.Message & vbCrLf & "StackTrace : " & ex.StackTrace, "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
End
Finally
riparti.Dispose()
'dbElezioniDDE.Close()
'dbElezioniDDE.Dispose()
End Try
End Sub

Answer 1

I'm sorry but the post was incomplete!
Then the problem is when I read the XML data
As OracleBinary dtRead.GetOracleBinary
Dim blob As OracleBinary = dtRead.GetOracleBinary(4)
Dim indice As Integer = blob.Length
that by obtaining blob.Length = 0
while the other fields in the select statement is accurate
Thanks