The entire contents of a buffer can be written in a single piece in one
network round trip. The following example writes 10k of data from the local file
'partimage.dat' to part_image column at the offset of 1000.
Dim buffer() as byte
ReDim buffer(10000)
Set OO4OSession = CreateObject("OracleInProcServer.XOraSession")
Set InvDb = OO4OSession.OpenDatabase("INVDB", "scott/tiger", 0)
Set Part = InvDb.CreateDynaset("select * from part", 0&)
Set PartImage = Part.Fields("part_image").Value
PartImage.Offset = 1000
FNum = FreeFile
Open "PartImage.Dat" For Binary As #FNum
Get #FNum, , buffer
Part.Edit
amount_written = PartImage.Write(buffer)
Part.Update
Close FNum
The CopyFromFile (OraLob) method writes data directly to a LOB from a local file. The following code is
functionally the same as the previous code:
Part.Edit
PartImage.CopyFromFile "PartImage.dat" , 10000, 1000
Part.Update
