Cách gọi một hàm Oracle với Con trỏ Tham chiếu là Tham số ngoài từ Visual Basic

Bạn cần lấy trình đọc từ tham số, không phải từ lệnh.

Vì vậy, thay vì

Dim reader As OracleDataReader = rvCmd.ExecuteReader()

Bạn cần:

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()