Boa noite. Gostaria de uma ajuda num causo que não consegui achar muita coisa na net ^^ Tenho uma consulta que me retorna dois cursores e tento utilizá-los fazendo apenas uma consulta no banco. Segue parâmetros e da procedure. PROCEDURE pMinhaProcedure(
p_cdempresa IN CSR_APOLICE.cdempresa%TYPE,
p_qtesperada OUT NUMBER,
p_cursoritem OUT c_cursor,
p_cursorcia OUT c_cursor
) IS ...
Um pouco do código que fiz no asp..
Set vobj_command = Server.CreateObject("ADODB.Command")
Set vobj_command.ActiveConnection = cnnDados
vobj_command.CommandText = "pMinhaProcedure"
vobj_command.CommandType = adCmdStoredProc
vobj_command.Parameters.Append vobj_command.createparameter("p_cdempresa", adInteger, adParamInput, , Null)
vobj_command.Parameters.Append vobj_command.createparameter("p_qtesperada", adInteger, adParamOutput, , vint_qtesperada)
'Call vobj_command.Execute
Set vobj_rsRegistro = vobj_command.Execute
vint_qtesperada = vobj_command("p_qtesperada")
Response.Write vint_qtesperada
If Not vobj_rsRegistro.EOF Then
Do While Not vobj_rsRegistro.EOF
Response.Write vobj_rsRegistro("CD_GRUPO")
' Move para o próximo registro do loop.
vobj_rsRegistro.MoveNext
Loop
Set vobj_rsRegistro = vobj_rsRegistro.NextRecordset()
Do While Not vobj_rsRegistro.EOF
Response.Write vobj_rsRegistro("CONGENERE") & "--<br />"
' Move para o próximo registro do loop.
vobj_rsRegistro.MoveNext
Loop
End If Até a hora que coloco NextRecordset, funciona normal, mas quando vou pegar o resultSet do segundo cursor me da o seguinte erro. ADODB.Recordset (0x800A0CB3) O provedor atual não oferece suporte para retornar vários conjuntos de registros de uma única execução. Se alguém já passou por isso e puder ajudar eu agradeço.
