PublicFunction GetDataByIndex()Function GetDataByIndex(ByVal startRowIndex AsInteger, ByVal maximumRows AsInteger) As HrDataSet.EMPLOYEESDataTable Dim query AsString=String.Format("SELECT EMPLOYEE_ID, FIRST_NAME, LAST_NAME FROM (SELECT EMPLOYEE_ID, FIRST_NAME, LAST_NAME ROWNUM AS LINE FROM EMPLOYEES ORDER BY EMPLOYEE_ID) EMP WHERE line BETWEEN {0} AND {1}", startRowIndex +1, startRowIndex + maximumRows) Dim sqlda As OracleDataAdapter =New OracleDataAdapter(query, Me.Connection) Dim ods AsNew HrDataSet() sqlda.Fill(ods.EMPLOYEES) Return ods.EMPLOYEES End Function PublicFunction GetNumberOfData()Function GetNumberOfData() AsInteger Dim sqlcmd As OracleCommand =New OracleCommand("SELECT COUNT(*) FROM EMPLOYEES", Me.Connection) Me.Connection.Open() Dim rows AsInteger Try rows =CType(sqlcmd.ExecuteScalar(), Integer) Finally Me.Connection.Close() EndTry Return rows End Function