Dim OraParameters as OraParameters, OraPhoto as OraBFile 
OraConnection.BeginTrans 
 
Set OraParameters = OraDatabase.Parameters 
 
'Define in out parameter of BFILE type: 
OraParameters.Add "MyPhoto", Null, ORAPARM_BOTH,ORATYPE_BFILE 
 
'Select the photo BFile for clip_id 1: 
OraDatabase.ExecuteSQL("Begin SELECT Photo INTO :MyPhoto FROM 
Multimedia_tab WHERE Clip_ID = 1; END; " )  
 
'Get the BFile photo column: 
set OraPhoto = OraParameters("MyPhoto").Value 
 
'Open the OraPhoto: 
OraPhoto.Open 
 
'Do some processing on OraPhoto 
 
'Close all the BFILEs associated with OraPhoto: 
OraPhoto.CloseAll 
