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 originalDim x As Exception
Dim Ds As New DataSet()
Dim Oraclecon As New OracleConnection("Server=localhost;Uid=hola;Pwd=prueba")
Oraclecon.Open()
Dim myCMD As New OracleCommand()
myCMD.Connection = Oraclecon
myCMD.CommandText = "ERP_DOCUME_X_COBRAR.SPX_DOCUME_X_COBRAR_SPS"
myCMD.CommandType = CommandType.StoredProcedure
'myCMD.Parameters.Add(New OracleParameter("VO_CUR_CURSOR", OracleType.Number)).Value = 0
myCMD.Parameters.Add(New OracleParameter("VO_CUR_CURSOR", OracleType.Cursor)).Direction = ParameterDirection.Output
Dim MyDA As New OracleDataAdapter(myCMD)
Try
MyDA.Fill(Ds)
Catch x
MessageBox.Show(x.Message.ToString)
End Try
DataGrid1.DataSource = Ds.Tables(0)
Oraclecon.Close()
aqui les dejo el SP
Código vb:
Ver originalPROCEDURE SPX_DOCUME_X_COBRAR_SPS(
VO_NU_COD_ERR OUT NUMBER,
VO_VA_MSJ_ERR OUT VARCHAR2,
VO_CUR_CURSOR OUT CUR_RETURN
)
IS
BEGIN
-- consultar tabla
OPEN VO_CUR_CURSOR FOR
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
FROM REGIS_DOC RD,TIPO_COMPROB TC,MONEDA M
WHERE RD.COD_TIPO_COMPROB=TC.COD_TIPO_COMPROB
AND RD.COD_MONEDA=M.COD_MONEDA;
-- Indicar ejecucion sin errores
VO_NU_COD_ERR := 0;
VO_VA_MSJ_ERR := '';
EXCEPTION
WHEN OTHERS THEN
VO_NU_COD_ERR := -1;
VO_VA_MSJ_ERR := 'Error Store: SPX_DOCUME_X_COBRAR_SPS '|| CS_ENTER ||
SQLERRM || CS_ENTER || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE;
END SPX_DOCUME_X_COBRAR_SPS;