RECEBER TIPO CLOB DO ORACLE NA MINHA APLICACAO VB

NESTORGF 16/06/2011 13:57:10
#376987
Fala galera, preciso de uma ajuda, tenho uma função no banco oracle, que retorna um CLOB. Como posso carregar esse retorno em um Recordset?

Segue o código da minha aplicação:

[txt-color=#0000f0]Dim OraSession As OracleInProcServer.OraSessionClass
Dim OraDatabase As OracleInProcServer.OraDatabase
--------------------------------------------------------------------------------------
Set OraSession = CreateObject([Ô]OracleInProcServer.XOraSession[Ô])
userPass = [Ô]USERS/PASS[Ô]
Set OraDatabase = OraSession.OpenDatabase([Ô]MEUBANCO[Ô], userPass, 1)
Call ConCaucao(OraDatabase)
Set OraDatabase = Nothing
-------------------------------------------------------------------------------------------------------------------------------------------------------
Public Function ConCaucao(ByRef cConexao As OracleInProcServer.OraDatabase)

Dim OraDynaset As OracleInProcServer.OraDynaset

Set OraDynaset = OraDatabase.DbCreateDynaset([Ô]Select NGF.consulta([ô]409[ô], [ô]21[ô]) FROM dual[Ô])
With OraDynaset
If .RecordCount > 0 Then
.MoveFirst
While (Not .EOF Or .BOF)
MsgBox [Ô]OK!!![Ô]
.MoveNext
Wend
End If
End With

Set OraDynaset = Nothing

End Function[/txt-color]
KERPLUNK 16/06/2011 13:58:59
#376988
Amigo, não sei se com Dynaset vai conseguir... mas com datareader é baba...
NESTORGF 16/06/2011 14:00:10
#376989
Kerplunk como eu faria isso? vc teria um exemplo para me ajudar?

Obrigado!
KERPLUNK 16/06/2011 14:27:38
#376994
Pensei que fosse .NET, mas VB6 tb dá...

Este exemplo mostra como fazer. Ele pega o conteúdo do CLOB e grava direto num arquivo. Lógico que vc pode simplesmente jogar esse conteúdo em uma textbox por exemplo, vai depender do que o CLOB contém.
NESTORGF 16/06/2011 14:42:54
#376996
KERPLUNK, vlw pela ajuda, mas ainda continua o problema que eu tinha nos códigos anteriores (Segue no Anexo)...

Vc já viu esse erro antes?
KERPLUNK 16/06/2011 14:52:01
#376997
Não... mas em que linha especificamente está apresentando o erro?
NESTORGF 16/06/2011 14:56:55
#376998
[txt-color=#0000f0]Set OraDynaset = OraDatabase.DbCreateDynaset([Ô]Select NGF.consulta([ô]409[ô], [ô]21[ô]) FROM dual[Ô])[/txt-color]

Quando ele deveria receber o retorno, estoura esse erro na tela
KERPLUNK 16/06/2011 15:01:16
#377000
Verifique qual o tipo de retorno dessa function... acho que tem dados binários no campo e vc está retornando como char...
NESTORGF 16/06/2011 15:19:51
#377001
Ele retorna um Cursor
NESTORGF 16/06/2011 15:21:10
#377002
Com um CLOB
NESTORGF 16/06/2011 15:23:44
#377003
Ai dentro do CLOB tem esse XML
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas