OO4O/VB5 GetChunck Error Question

From: Timothy W. Saffell <TimSaffell_at_USA.Net>
Date: Sat, 27 Mar 1999 20:03:24 -0500
Message-ID: <36FD7FDB.64B6C2C1@USA.Net>

Hello,

I'd like to thank the people who responded to my last question about the

date format problem. I found, because of your suggestions, that the VB5 Format(date,"format-spec") function did the trick.

Now I've got another challenge, if anyone can point the way to success, I'd appreciate it, too.

I have this Oracle database and I am attempting to read a long field:

Set OraSession = CreateObject("OracleInProcServer.XOraSession") Set OraDatabase = OraSession.DbOpenDatabase(DB_Name, ConnectString, 0&) Set OraDBDynaset = OraDatabase.DbCreateDynaset(OraSQL, 0&) OraDBDynaset.DbMoveFirst
Do While Not OraDBDynaset.EOF
  ChunkCount = 0
  Do
    OutputLine = OraDBDynaset.Fields(FldName).dbGetChunk(ChunkCount * 256, 256)

    Print #1, OutputLine
    ChunkCount = ChunkCount + 1
  Loop Until Len(OutputLine) < 256
***

This is just a piece of code, I have left out a lot that, but this is enough to give an idea of what I am trying to do.

The problem is that I get 16 chunks of 256 bytes (4096 bytes) and then I

get:

Run-time error '440'
OIP-04119: Data has been modified

I am accessing a test database on which there are no triggers, and no other users. I have tried the default option (0), Oracle Mode (1), and Oracle Mode (No Refetch) (4), with the same results.

There is obviously something that I have missed, or just don't understand. If someone could give me a clue, I'd appreciate it very much.

Thanks.

Tim Saffell
TimSaffell_at_USA.Net Received on Sat Mar 27 1999 - 19:03:24 CST