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.
Pergunta
DougF
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.
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 IfAté 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.
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.