The question about RAW datatype in VBA with OO4O

Question

Hi all.
I have developed a sort of VBA program with oo4o.
When I issued "select rawtohex(saddr),saddr from v$session where rownum < 2" and I displayed the result on excel spread sheet.
The result was below.
RAWTOHEX(SADDR)      SADDR
C0000000E14ADDF0     &#65533;
I found I couldn't display a raw datatype result without using RAWTOHEX function.
But, I query the table using "*",such as " select * from v$session" sometime. So I have to display the raw datatype result without using oracle function.
I heard that the "RAW" datatype is a array of byte, so I used byte array.
The following is my first idea and the result is wrong.
The result is 'FF000000......', not 'C000000....'
Is there any good idea?
Dim oSession As Object
Dim oDatabase As Object
Dim oRs As Object
Dim cntCol, cntRow As Long
Dim rowNum, colNum As Long
Dim sraw() As Byte
Dim k As Integer
Dim hexaString As String
Set oSession = CreateObject("OracleInProcServer.XOraSession")
Set oDatabase = oSession.DbOpenDatabase(gTargetServer, gUserID & "/" & gPasswd, 0&)
Set oRs = oDatabase.DbCreateDynaset(gSqlString, 0&)
cntCol = oRs.Fields.Count
cntRow = oRs.RecordCount
ReDim resData(cntRow, cntCol) ' the variant type array to store result
'To store column title.
For colNum = 0 To cntCol - 1
resData(0, colNum) = oRs.Fields(colNum).Name
Next colNum
'To store data.
For rowNum = 1 To cntRow
For colNum = 0 To cntCol - 1
Select Case oRs.Fields(colNum).Type
Case 11
sraw = oRs.Fields(colNum).Value
For k = 0 To UBound(sraw)
hexaString = hexaString & Hex(sraw(k)) '<= here.***********
Next k
resData(rowNum, colNum) = hexaString
Case Else
resData(rowNum, colNum) = oRs.Fields(colNum).Value
End Select
Next colNum
oRs.MoveNext
Next rowNum
I hope I get helps.
Bill.

Answer 1

But, I query the table using "*",such as " select * from v$session" sometimeCan't you use
select rawtohex(saddr) hexaddr, t.* from v$session t
(if you really need '*' ) ?
Rgds.