Oracle 10 VBNet ASPX

************************************************************
Oracle 10 g
************************************************************
       PROCEDURE PR_DQ_DISTINCT_SUBJECTAREA_GET(
			  					p_dq_mon_sub_area OUT DQ_MON_TBL_REF_SUBAREA.UPD_DATE%TYPE,
                     			cur_out				OUT SYS_REFCURSOR,
                     			p_status_n			OUT NUMBER
    )
    IS
		lv_sql_main    VARCHAR(4000)      := NULL;    
    BEGIN
     p_status_n         := cSUCCESS_RTN;
    IF cur_out%ISOPEN THEN
       CLOSE cur_out;
    END IF;
    
	  lv_sql_main := 'SELECT  * From DQ_MON_TBL_REF_SUBAREA Order By DQ_SUBJECT_AREA_C DESC';
 
    OPEN cur_out FOR lv_sql_main;
 	EXCEPTION
    WHEN OTHERS
    THEN
    IF cur_out%ISOPEN THEN
    	CLOSE cur_out;
    END IF;
    p_status_n := cFAIL_RTN;
 	END PR_DQ_DISTINCT_SUBJECTAREA_GET;
 
************************************************************
VB.Net 
************************************************************
 
 Public Shared Function GetSubjectAreaFromDQ_Ref(ByVal StrLastUpd As String) As DataSet
        Dim db As Database
        Dim cmdDB As Common.DbCommand
        Dim ds As DataSet
        Dim sCommandSQL As String = PR_UPDATE_GET_SUBJECTAREA
        Dim iStatus As Int64
        Try
            db = DatabaseFactory.CreateDatabase("OracleSource")
            cmdDB = db.GetStoredProcCommand(sCommandSQL)
            db.AddOutParameter(cmdDB, "p_dq_mon_sub_area", DbType.String, 16)
            db.AddOutParameter(cmdDB, "p_status_n", DbType.Int64, 9)
            ds = db.ExecuteDataSet(cmdDB)
            MsgBox(cmdDB.Parameters("p_dq_mon_sub_area").Value)
            If Not CommonFunctions.IsEmptyField(cmdDB.Parameters("p_status_n").Value) Then
                iStatus = CInt(cmdDB.Parameters("p_status_n").Value)
            Else
                iStatus = NULLSTATUS
            End If
            If iStatus <> 0 Then
                Throw New Exception(CommonFunctions.BuildDALExceptionMsg(MethodBase.GetCurrentMethod.Name, PR_RETRIVE_USER_ID_DTLS, iStatus))
            End If
            Return ds
        Catch ex As Exception
            Throw ex
        End Try
    End Function

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58: