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