Jak volat funkci Oracle s referenčním kurzorem jako mimo parametr z jazyka Visual Basic

Čtečku musíte získat z parametru, nikoli z příkazu.

Takže místo

Dim reader As OracleDataReader = rvCmd.ExecuteReader()

Potřebujete:

rvCmd.CommandType = CommandType.StoredProcedure
rvCmd.CommandText = "getallprodpckg.get_allcust"

Dim qrySerial3 As New Oracle.DataAccess.Client.OracleParameter(
    None, OracleDbType.RefCursor, ParameterDirection.ReturnValue)

rvCmd.Parameters.Add(qrySerial3)

rvCmd.ExecuteNonQuery()

Dim cursor as OracleRefCursor = DirectCast(qrySerial3.Value, OracleRefCursor)

Dim reader As OracleDataReader = cursor.GetDataReader()