CLOBS via OO4O in VB6

Hello,

I'm stuck on a problem and I'd be happy for some help in debugging.

I'm using VB6 with SP5 applied. I have the Oracle 8.1.7 Client software on my development PC with OO4O 8.1.7.3.12. I have selected the OIP8.tbl file to get the Oracle InProc Server 3.0 through the Project -> References menu choices.

The program that I am working on has been processing various types of columns in a production environment for several years. Some of the columns are LONG. No problem. We are now considering migrating the LONGs to CLOBs so I'm trying to develop the code to handle CLOBs. The documentation says that the methods have been modified to handle CLOBs, so I'm first attempting to use the same code that is used for LONGs for CLOBs. When I process a CLOB, the system does not detect any errors, so it thinks that everything has completed successfully. When it gets done, though, all of the columns are initialized properly, except for the CLOB, which is empty. When I update an identical table, except that it has LONGs, everything works fine.

I'm looking for a way to determine what the problem is that is keeping the data from making it into the CLOB and any suggestions would be appreciated.

Here are some lines of code from my program:

  Set OraSession = CreateObject("OracleInProcServer.XOraSession")   Set OraDatabase = OraSession.DbOpenDatabase(Text1.Text, ConnectString, 0&)

  Set OraDBDynaset = OraDatabase.DbCreateDynaset(OraDBSQL, 0&)

I'm processing data that's coming from an external source, so this is done once:
  OraDBDynaset.Fields(CurrentFieldName).Value = ""   OraDBDynaset.Fields(CurrentFieldName).DbAppendChunk (InputLine) Then this is done in a loop:
  OraDBDynaset.Fields(CurrentFieldName).DbAppendChunk (" " & InputLine)
After the loop:
  OraDBDynaset.dbUpdate

I'd be happy for any clues that I could get for debugging. Thanks! Received on Thu Aug 09 2001 - 14:01:19 CDT