[Oracle][PL/SQL][VB][Example] Call oracle stored procedure by VB with cursor

Oracle Stored Procedure:

CREATE OR REPLACE PROCEDURE "SP_GET_LIB_BOOK"

  out_cursor OUT TYPES.CURSOR_TYPE)

AS

BEGIN

  out_err_msg := '';

  OPEN out_cursor FOR

  SELECT * FROM LIB_ASSET

  WHERE ASSET_ID = 14131

EXCEPTION

  WHEN OTHERS THEN

    out_cursors := SQLERRM || '(Code:' || SQLCODE || ')';

END

VB.NET

Dim dbCommand As New OrcaleCommand

Dim dr As OrcaleDateReader = Nothing

With dbCommand 

  .Connection = gPassConn

  .Parameters.Clear()

  .CommandText = "SP_GET_LIB_BOOK"

  .CommandType = CommandType.StoredProcedure

  .Parameters.Clear()

  .Parameters.Add("@out_cursor",OrcaleDbType.RefCursor).Direction = ParameterDirection.Output

  

  dr = .ExecuteReader

  While dr.Read

    Dim assetId As Long = dr.Item("asset_id")

    Dim storeFileName As String = dr.Item("store_file_name")

    Debug.WriteLine(CStr(assetId))

    Debug.WriteLine(storeFileName)

  End While

End With