Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Me.UseWaitCursor = True
Me.Cursor = Cursors.WaitCursor
Dim myCMD As New OracleCommand("pck_delete_insert_report", conn)
myCMD.Connection = conn
myCMD.CommandText = "pck_delete_insert_report.p_delete_insert"
myCMD.CommandType = CommandType.StoredProcedure
myCMD.Parameters.Add(New OracleParameter("cursor_cs", OracleType.Cursor)).Direction = ParameterDirection.Output
Try
conn.Open()
Dim myCMDReader As OracleDataReader = myCMD.ExecuteReader()
myCMDReader.NextResult()
Catch ex As Exception
System.Console.WriteLine("Exception: {0}", ex.ToString())
End Try
conn.Close()
End Sub
End Class