ASP - Ejecutar procedimiento de Oracle

 
Vista:
Imágen de perfil de RTB

Ejecutar procedimiento de Oracle

Publicado por RTB (12 intervenciones) el 26/01/2005 17:31:21
Hola por si alguien ya haya hecho ejecutar PACKAGES de oracle desde ASP.Esplico el package es:
calcular_atraso.P_CALCULAR_ATRASO_CREDITO (
vID_CREDITO IN CHAR,
vCANT_CUOTAS IN NUMBER,
vFECHA IN DATE,
vTOTAL_DIAS IN OUT NUMBER,
vPROMEDIO_DIAS IN OUT NUMBER

el codigo desde donde lo llamo es:
function Atraso(credito,dias)
dim cn
dim Cmd
dim vUsuario
dim vBase
dim vPase
dim total
dim promedio
%>
<!-- #include file="ADOVBS.INC" -->
<%
on error resume next
vUsuario="usuario"
vPase ="pase"
vBase ="base"
Set cn =Server.CreateObject("ADODB.Connection")
Set rs =Server.CreateObject("ADODB.recordset")

vORCL = "PROVIDER=MSDAORA;DATA SOURCE=" & vBASE & ";USER ID=" & vUsuario & ";PASSWORD=" & vPase & ";"
cn.ConnectionString = vORCL
cn.Open
set cmd=server.createobject("ADODB.Command")
set cmd.activeconnection=cn

cmd.commandtype = adCmdStoredProc
cmd.commandtext = "calcular_atraso.p_calcular_atraso_credito"
Set Par01 = Cmd.CreateParameter("vID_CREDITO", adChar, adParamInput,15,Credito)
Cmd.Parameters.Append Par01
Para01.value=credito
set Par02 = cmd.CreateParameter("vCant_cuotas",adNumeric,AdParamInput)
cmd.Parameters.Append Par02
Par02.value=dias
Set Par03 = cmd.CreateParameter("vFecha", adDate,AdParamInput)
cmd.Parameters.Append Par03
Par03.value=date
Set Par04 = cmd.CreateParameter("vTotal_dias", adNumeric ,AdParamInputOutput,10)
cmd.Parameters.Append Par04
Set Par05 = cmd.CreateParameter("vPromedio_dias", adNu
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de rtb

Continuacion Ejecutar proc....

Publicado por rtb (12 intervenciones) el 26/01/2005 17:34:12
...........Continacion

Set Par05 = cmd.CreateParameter("vPromedio_dias", adNumeric ,AdParamInputOutput,10)
cmd.Parameters.Append Par05
cmd.Execute
if err.number<>0 then
response.write("<br>Error")
set cmd =nothing
set cn =nothing
response.end
end if
Atraso =cmd("Par05")
if err.number<>0 then
response.write("<br>Error en funcion.." & err.description)
set cmd =nothing
cn.close
set cn =nothing
end if

set cmd =nothing
cn.close
set cn =nothing
rs.close
end function
%>

nro.Error : -2147217900
Desc: ORA-06550: line 1, column 7: PLS-00306: wrong number or types of arguments in call to 'P_CALCULAR_ATRASO_CREDITO' ORA-06550: line 1, column 7: PL/SQL: Statement ignored

Si alguien me puede ayudar,gracias
Roberto.-

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar