例
OraLOB/BFILE
の例で使用されているスキーマ・オブジェクトについては、「LOBデータ型の例で使用されているスキーマ・オブジェクト」を参照してください。
注意: 次の例に必要な表を追加するには、\OO4O\VB\SAMPLES\LOB
ディレクトリにあるlob.sql
ファイルを実行してください。
例: BFILE値へのアクセス
BFILE
データは、Read
メソッドを使用して読み込むことができます。OraBFILE
オブジェクトでは、ピース単位の読取り操作が可能です。BFILE
の内容を読み込むには、Open
メソッドを使用してBFILE
ファイルをオープンする必要があります。
Dim PartColl as OraBFile Dim buffer As Variant 'Create a Dynaset containing a BLOB and a CLOB column set part = OraDatabase.CreateDynaset ("select * from part",0) Set PartColl = part.Fields("part_collateral").Value 'open the bfile for read operation PartColl.Open 'read the entire bfile amount_read = PartColl.Read(buffer) 'close the bfile PartColl.Close
例: ダイナセットを使用したBFILEの読取りと挿入
OraBFILE
オブジェクトのBFILE
値のディレクトリ名とファイル名を変更するには、最初にロックを取得してから、DirectoryName
プロパティとFileName
プロパティを使用します。
BFILE
列を含んだ新しい行を挿入するには、DirectoryName
プロパティとFileName
プロパティを使用して、そのBFILE
列を新しいディレクトリ名とファイル名の値で初期化します。
Dim PartColl as OraBFile Dim buffer As Variant 'Create a Dynaset containing a BLOB and a CLOB column set part = OraDatabase.CreateDynaset ("select * from part",0) Set PartColl = part.Fields("part_collateral").Value 'insert a new BFILE in the part_collateral column part.AddNew 'Directory objects will be upper-case by default PartColl.DirectoryName = "NEWDIRECTORYNAME" PartColl.FileName = "NewPartCollatoral" part.Update 'move to the newly added row part.MoveLast 'open the Bfile for read operation PartColl.Open 'read the entire bfile amount_read = PartColl.Read(buffer) 'close the Bfile PartColl.Close
関連項目:
|