Ejecutar procedimiento oracle desde ASP
Hola a todos:
Tengo una aplicación en ASP. Y necesito desde esta aplicación ejecutar un procedimiento en oracle. ¿Ésto es posible?.
Saludos
Tengo una aplicación en ASP. Y necesito desde esta aplicación ejecutar un procedimiento en oracle. ¿Ésto es posible?.
Saludos
Set Cnx = server.CreateObject ("ADODB.Connection")
Cnx.Open sConexion
Fecha1 = Request.Form("fechaEnvio")
Fecha1 = Request.Form("fechaInicial")
Fecha2 = Request.Form("fechaFinal")
'SP que dispara el procedimiento que genera la creación del reporte para la DIAN
Set Cmd = server.CreateObject ("ADODB.Command")
Cmd.ActiveConnection = sConexion
Cmd.CommandText = "BAC_REGULATORIOS.BAC_GENERA_ARCHIVO_GSS_BOR"
Cmd.CommandTimeout = 0
Cmd.CommandType = adCmdStoredProc
cmd.Prepared = true
Cmd.Parameters.Append Cmd.CreateParameter("PFECHA_ENVIO", adVarChar, adParamInput,12, FechaEnvio)
Cmd.Parameters.Append Cmd.CreateParameter("PFECHA_INICIAL", adVarChar, adParamInput,12, Fecha1)
Cmd.Parameters.Append Cmd.CreateParameter("PFECHA_FINAL", adVarChar, adParamInput,12, Fecha2)
Cmd.Parameters.Append Cmd.CreateParameter("PRESULTADO", adVarChar, adParamOutput,12, 0)
Cmd.Execute
nroResult = Cmd(3)
Cnx.Close 'se cierra la conexion con la BD
%>
Cnx.Open sConexion
Fecha1 = Request.Form("fechaEnvio")
Fecha1 = Request.Form("fechaInicial")
Fecha2 = Request.Form("fechaFinal")
'SP que dispara el procedimiento que genera la creación del reporte para la DIAN
Set Cmd = server.CreateObject ("ADODB.Command")
Cmd.ActiveConnection = sConexion
Cmd.CommandText = "BAC_REGULATORIOS.BAC_GENERA_ARCHIVO_GSS_BOR"
Cmd.CommandTimeout = 0
Cmd.CommandType = adCmdStoredProc
cmd.Prepared = true
Cmd.Parameters.Append Cmd.CreateParameter("PFECHA_ENVIO", adVarChar, adParamInput,12, FechaEnvio)
Cmd.Parameters.Append Cmd.CreateParameter("PFECHA_INICIAL", adVarChar, adParamInput,12, Fecha1)
Cmd.Parameters.Append Cmd.CreateParameter("PFECHA_FINAL", adVarChar, adParamInput,12, Fecha2)
Cmd.Parameters.Append Cmd.CreateParameter("PRESULTADO", adVarChar, adParamOutput,12, 0)
Cmd.Execute
nroResult = Cmd(3)
Cnx.Close 'se cierra la conexion con la BD
%>
