Defende
|
JARINÚ
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 26/12/2007 15:06 hs
Pessoal tenho uma procedure em Oracle que comeca assim:
CREATE OR REPLACE PROCEDURE sp_selecionar_carteiras (sNumTiu in varchar2, iCodEmpPan number, sCodDpd in varchar2,
p_recordset OUT Types.cursor_type) AS
BEGIN
OPEN p_recordset FOR
SELECT DISTINCT
HIS.CODEMPPLN CodEmpPlano,
HIS.CODPLN CodPlano,
PAT.nomemprez Patrocinadora,
BEN.codemppan Empresa,
BEN.numtiu Matricula,
BEN.coddpd Dep,
......
END SP_SELECIONAR_CARTEIRAS;
/
como eu faco pra passar parametros para ela e receber os dados de volta visto que ela usar Cursor?
Valeu.
|
|
|
|
|
|
®ogerVB
|
OSASCO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/12/2007 21:17 hs
Os parâmetros de entrada vc está declarando como in. Se vc declarar parâmetros como out, e no decorrer da proc vc preenche-los, eles retornarão. Aí vc precisa, do VB passar os parâmetros que serão preenchidos com o retorno. OK? |
|
|
|
Defende
|
JARINÚ
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/12/2007 08:09 hs
E ai blz.
Ateh ai tudo bem. A minha duvida eh como pegar os parametros que retornam dados. Eles vao retornar de que maneira? Tipo "recordset"? Vc reparou que nao tem parametros de OUT. Existe ali um select onde ele coloca os dados nele.
Aqui tem um trecho de um codigo onde eu passo parametros para uma Procedure.
Dim SqlC As New ADODB.Command
SqlC.ActiveConnection = Cn
SqlC.CommandText = "sp_GravaHorario"
SqlC.CommandType = adCmdStoredProc
With SqlC
.Parameters("@iduser") = idUsuario
.Parameters("@cartao") = txCracha
.Parameters("@cor") = cbPerfil.ItemData(cbPerfil.ListIndex)
.Parameters("@assistente") = cbPerfil.Text
.Parameters("@tipocartao") = 6
End With
SqlC.Execute
Agora eu queria saber conforme eu perguntei como eu faco pra recuperar os dados dela.
Grato.
|
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/12/2007 14:40 hs
With SqlC
.Parameters("@iduser") = idUsuario
.Parameters("@cartao") = txCracha
.Parameters("@cor") = cbPerfil.ItemData(cbPerfil.ListIndex)
.Parameters("@assistente") = cbPerfil.Text
.Parameters("@tipocartao") = 6 .Parameters("@retorno")="" End With
SqlC.Execute if SqlC.Parameters("@retorno")<> "" then msgbox SqlC.Parameters("@retorno")<> "" endif
|
|
|
|
Defende
|
JARINÚ
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/12/2007 15:02 hs
Valeu.
Era isso ai mesmo.
Grato a todos
|
|
|
|
