Ver Mensaje Individual
  #7 (permalink)  
Antiguo 05/11/2012, 10:13
dorer
 
Fecha de Ingreso: mayo-2012
Ubicación: Lima
Mensajes: 14
Antigüedad: 12 años
Puntos: 1
Pregunta Respuesta: llamar stored procedure

Ahora estoy llamando un s.p que solo hace un select de mi BD y lo muestra en un datagridview pero no funciona.Espero puedan ayudarme les dejo aqui lo q e avanzado
Código vb:
Ver original
  1. Dim x As Exception
  2.         Dim Ds As New DataSet()
  3.         Dim Oraclecon As New OracleConnection("Server=localhost;Uid=hola;Pwd=prueba")
  4.  
  5.         Oraclecon.Open()
  6.  
  7.         Dim myCMD As New OracleCommand()
  8.         myCMD.Connection = Oraclecon
  9.         myCMD.CommandText = "ERP_DOCUME_X_COBRAR.SPX_DOCUME_X_COBRAR_SPS"
  10.         myCMD.CommandType = CommandType.StoredProcedure
  11.  
  12.         'myCMD.Parameters.Add(New OracleParameter("VO_CUR_CURSOR", OracleType.Number)).Value = 0
  13.        myCMD.Parameters.Add(New OracleParameter("VO_CUR_CURSOR", OracleType.Cursor)).Direction = ParameterDirection.Output
  14.  
  15.         Dim MyDA As New OracleDataAdapter(myCMD)
  16.  
  17.         Try
  18.  
  19.             MyDA.Fill(Ds)
  20.         Catch x
  21.             MessageBox.Show(x.Message.ToString)
  22.         End Try
  23.  
  24.         DataGrid1.DataSource = Ds.Tables(0)
  25.  
  26.         Oraclecon.Close()

aqui les dejo el SP
Código vb:
Ver original
  1. PROCEDURE SPX_DOCUME_X_COBRAR_SPS(
  2.  
  3.    VO_NU_COD_ERR           OUT NUMBER,
  4.    VO_VA_MSJ_ERR           OUT VARCHAR2,
  5.    VO_CUR_CURSOR           OUT CUR_RETURN
  6. )
  7. IS
  8.    BEGIN
  9.    -- consultar tabla
  10.        OPEN VO_CUR_CURSOR FOR
  11.    
  12.           SELECT RD.NRO_CUENTA,TC.DES_TIPO_COMPROB AS DOCUMENTO ,RD.NRO_SERIE || ' - ' ||RD.NRO_COMPROB AS NRO_FACTURA,RD.COD_SOC AS CODIGO,RD.NOM_SOC AS NOMBRE,RD.USU_COBRADOR AS COBRADOR,RD.FEC_FIN,M.NOM_MONEDA,RD.IMPORTE,RD.COD_USU_CREA,SYSDATE AS FEC_MODIF
  13.                 FROM REGIS_DOC RD,TIPO_COMPROB TC,MONEDA M
  14.                         WHERE RD.COD_TIPO_COMPROB=TC.COD_TIPO_COMPROB
  15.                                AND RD.COD_MONEDA=M.COD_MONEDA;
  16.    -- Indicar ejecucion sin errores
  17.    VO_NU_COD_ERR := 0;
  18.    VO_VA_MSJ_ERR := '';
  19.  
  20. EXCEPTION
  21.       WHEN OTHERS THEN
  22.          VO_NU_COD_ERR := -1;
  23.          VO_VA_MSJ_ERR := 'Error Store: SPX_DOCUME_X_COBRAR_SPS '|| CS_ENTER ||
  24.                 SQLERRM || CS_ENTER || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE;
  25.                  
  26. END SPX_DOCUME_X_COBRAR_SPS;