RECEBER TIPO CLOB DO ORACLE NA MINHA APLICACAO VB
Então é isso, vc tem que fazer essa consulta com ADO normal mesmo, retornando um recordset(um cursor) e então pegar o valor do campo.
Putz!
KERPLUNK, estou fazendo assim então
[txt-color=#0000f0]Dim objConexao As New ADODB.Connection
Public con As ADODB.Connection
------------------------------------------------------------------------
Private Sub Form_Load()
Dim sql As String
Dim rs As New ADODB.Recordset
Call ConServer
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = con
sql = [Ô]select Nestor.consulta([ô]409[ô],[ô]21[ô]) from dual[Ô]
rs.Open sql
With rs
If .RecordCount > 0 Then
.MoveFirst
While (Not .EOF Or .BOF)
txtClob = .Fields( Nestor.consulta)
.MoveNext
Wend
End If
End With
End Sub
---------------------------------------------------------------------------------------------------------------------------------------------------
Function ConServer()
Set con = New ADODB.Connection
con.ConnectionString = [Ô]Data Source=MeuBanco; password=PASS; user id=USER ;Provider=OraOLEDB.Oracle[Ô]
con.Open
End Function[/txt-color]
Só que quando executa a Query
[txt-color=#0000f0]sql = [Ô]select Nestor.consulta([ô]409[ô],[ô]21[ô]) from dual[Ô]
rs.Open sql[/txt-color]
Da esse erro e fecha o VB
KERPLUNK, estou fazendo assim então
[txt-color=#0000f0]Dim objConexao As New ADODB.Connection
Public con As ADODB.Connection
------------------------------------------------------------------------
Private Sub Form_Load()
Dim sql As String
Dim rs As New ADODB.Recordset
Call ConServer
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = con
sql = [Ô]select Nestor.consulta([ô]409[ô],[ô]21[ô]) from dual[Ô]
rs.Open sql
With rs
If .RecordCount > 0 Then
.MoveFirst
While (Not .EOF Or .BOF)
txtClob = .Fields( Nestor.consulta)
.MoveNext
Wend
End If
End With
End Sub
---------------------------------------------------------------------------------------------------------------------------------------------------
Function ConServer()
Set con = New ADODB.Connection
con.ConnectionString = [Ô]Data Source=MeuBanco; password=PASS; user id=USER ;Provider=OraOLEDB.Oracle[Ô]
con.Open
End Function[/txt-color]
Só que quando executa a Query
[txt-color=#0000f0]sql = [Ô]select Nestor.consulta([ô]409[ô],[ô]21[ô]) from dual[Ô]
rs.Open sql[/txt-color]
Da esse erro e fecha o VB
Eita... assim fico sem alternativas...
rs... Pelo que parece tem alguma coisa haver com essa DLL oracommon10.dll
Sabe para o q server essa DLL?
Sabe para o q server essa DLL?
Seria para interação com o banco, mas tecnicamente, ela é dispensável, podendo usar o ADO de boa... mas se até uma query normal, tá dando problema, daà eu não sei não...
Trank, vou ver aqui o q eu faço rs
Obrigado pela ajuda KERPLUNK
Eu tenho uma Stored Procedure que traz o mesmo retorno q minha Função, como eu poderia fazer para chama-lá?
Agora tenho esse erro... alguém sabe o q pode ser?
Tópico encerrado , respostas não são mais permitidas