Oracle FAQ Your Portal to the Oracle Knowledge Grid
HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US
 

Home -> Community -> Usenet -> c.d.o.server -> Re: usage of BLOB fields

Re: usage of BLOB fields

From: Christian J. Bauer <christian.bauer_at_passau.netsurf.de>
Date: 1998/03/08
Message-ID: <6duslq$6ka$1@einstein.pnm.net>#1/1

Atul Deshmukh wrote in message <6dteq5$i1n$1_at_winter.news.erols.com>...

>2. I'm also in the process of writing VB code (RDO) to insert/update BLOB
>fields which is giving errors as well.

Hmmm, I'm only using Oracle7, but Oracle8 should be similar.

This is a fragment of code that reads/write a LONG RAW field from a remote ORACLE7.1 Database: TXC is a Fornatted Text Control (TXControl 5.20). The DataText Property gets the formatted text. MSRDC1 is the Remote Data Control

Private Sub UpdateButton_Click()
 Dim chunk() As Byte

 ReDim chunk(64 * 1024!)

 chunk = TXC.DataText

 MSRDC1.Resultset.Edit
 MSRDC1.Resultset(1).AppendChunk chunk()
 MSRDC1.Resultset.Update

End Sub

Private Sub MSRDC1_Reposition()
 Dim v As Variant
 REM You need the Variant, as The Resulset(1) Property would  REM only get the data ONCE.

 If MSRDC1.Resultset.AbsolutePosition >= 0 Then ' Don't fire on addnew   v = MSRDC1.Resultset(1)
  If IsNull(v) Then
    TXC.Text = ""
   Else
    TXC.DataText = v
  End If
 End If

End Sub

Have Fun!
Chris Received on Sun Mar 08 1998 - 00:00:00 CST

Original text of this message

HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US