VB6 Oracle Recuperando Clob en una matriz

ado recordset

Question

Estoy tratando de recuperar un campo oracle con data clope en una matriz VB sin reformar la cadena SQL de recuperación (simplemente SELECCIONE * FROM my_table). Estoy usando un conjunto de registros ADO.

Los valores de clob se pierden cuando cierro la conexión o hago cualquier otra acción con el conjunto de registros. Cómo puedo conseguir esto.

Answer 1

En uno de mis proyectos intenté manipular BLOBs y CLOBs usando ADO, pero sin ningún éxito, hasta que cambié a Oracle Objects 4 OLE . Necesita instalar y configurar el cliente de Oracle en su máquina, las referencias en el proyecto agregan "Biblioteca de tipos de Oracle InProc Server 4.0".

Aquí hay un código de muestra que utilicé para BLOB:

Dim OraSession As OracleInProcServer.OraSessionClass
Dim OraDatabase As OracleInProcServer.OraDatabase
Dim OraDynaset As OracleInProcServer.OraDynaset
Dim srcImg As OraBlob
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.DbOpenDatabase("myDBName", "login/password", 0&)
Set OraDynaset = OraDatabase.DbCreateDynaset("SELECT src_id, src_image from Sources where src_file_name like ''%.png''", 0&)
With OraDynaset
If .RecordCount > 0 Then
.MoveFirst
While (Not .EOF Or .BOF)
Set srcImg = .Fields("src_image").Value
srcImg.CopyToFile ("C:/sources/" & srcID & ".png")
.MoveNext
Wend
End If
End With
Set OraDynaset = Nothing
Set OraDatabase = Nothing
Set OraSession = Nothing