Ventajas de Nuevo Código Procesal Civil

CELERIDAD PROCESAL

El Dr. Antenor Gustavo Jorge Aliaga, detalló que una de las ventajas de esta política de justicia es que los jueces actuarán con celeridad procesal; es decir, que los juicios penales no durarán tantos años como viene ocurriendo a la fecha, sino, que se resolverán en mucho menos tiempo, lo que significará evitar la acumulación de carga procesal, así como el procurar que los litigantes no pierdan mucho el tiempo.

ORALIDAD

Más adelante precisó que otra de las ventajas del NCPP, es que los juicios dejarán de ser largos y con considerable número de expedientes y documentos, pues la oralidad será una de sus ventajas. Por lo mismo, explicó que los litigantes, en las audiencias debatirán de forma oral y pública, lo que servirá para que el juez de su veredicto con dicha información.

PARTICIPACIÓN ACTIVA

Finalmente, precisó que el NCPP permitirá la participación activa de todos los jueces y abogados en la oralidad y credibilidad de los procesos judiciales. “Todo este trabajo se estará iniciando desde el uno de julio, fecha en la que entrará en vigencia”, aseguró el titular de la CSJAY.

Tecnología y Educación

Tener una eduación muy precaria conlleva a l manipulación populacha de los políticos

Configurar Conexión de Ruta de BD

La base de datos debe copiarse dentro de la carpeta Bin/debug de la aplicación:

Archivo de configuración.

Imports System.Data.OleDb

Public Class conexion

Public Shared conex As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

"Data source=" & ruta() & "\agenda.accdb;"

Public Shared CN As New OleDbConnection(conexion.conex)

Public Shared Function Listar(ByVal consulta As String) As DataTable

Dim adapter As New OleDbDataAdapter(consulta, conexion.conex)

Dim tabla As New DataTable

adapter.Fill(tabla)

Return tabla

End Function

Public Shared Sub Insertar(ByVal consulta As String)

Dim cmd As New OleDbCommand(consulta, conexion.CN)

conexion.CN.Open()

cmd.ExecuteNonQuery()

conexion.CN.Close()

End Sub

Public Shared Sub LlenarCombo(ByVal CB As ComboBox, ByVal sql As String, ByVal valor As String, ByVal nombre As String)

cb.DataSource = Listar(sql)

cb.DisplayMember = nombre

cb.ValueMember = valor

End Sub

Public Shared Function ruta() As String

Return System.AppDomain.CurrentDomain.BaseDirectory()

End Function

End Class

Eliminar Registro

If MessageBox.Show("Esta SEguro de eliminar los datos", "Mensaje", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then

Dim fila As Integer = Me.DataGridView1.CurrentRow.Cells("idinsti").Value

Dim sql As String

sql = "delete from institucion where idinsti=" & fila

conexion.Insertar(sql)

DataGridView1.DataSource = conexion.Listar("select*from institucion")

End If

En el Botón Grabar

Dim sql As String

sql = "insert into institucion(abrev,nombrecompleto)values('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "')"

conexion.Insertar(sql)

Agregar Nuevo Registro en ACCESS

En el Archivo conex agregar el siguiente código:
Public Shared CN As New OleDbConnection(conexion.conex)
Public Shared Sub Insertar(ByVal consulta As String)
Dim cmd As New OleDbCommand(consulta, conexion.CN)
conexion.CN.Open()
cmd.ExecuteNonQuery()
conexion.CN.Close()
End Sub
Public Shared Sub LlenarCombo(ByVal CB As ComboBox, ByVal sql As String, ByVal valor As String, ByVal nombre As String)
cb.DataSource = Listar(sql)
cb.DisplayMember = nombre
cb.ValueMember = valor

End Sub

Conexión de Visual Studio con MS Access

Primero creamos una BD en MS Access con la extensión mdb(version 2003)* y guardamos en una ruta mas fácil de ubicar.

Esto es la estructura:

Podrá notar que la tabla principal es Institución(Color rojo) y la secundaria persona(Verde). A su vez si nos recordamos de Normalización el campo Direccion estará correcto o sería necesario disgregar?
(*)La conexión con la versión 2007 en la siguiente clase les envío.

Creando nuevo Proyecto en Visual Studio 2008.

• Clase Conexión: Explicación del código
  

1. Importa el Esapacio de nombre OleDb para utilizar las clases OLeDbDataAdapter y DataTable.
2. Inicio de la Clase Conexion.
3. Creo un atributo conex de tipo String (*) y le enlazo con el proveedor de datos OLEDB.
4. En el Data source va la ruta del archivo de Base de datos sigue la parte del nro 3.
5. Creo una función de tipo DataTable: Esta función me va permitir pasar cualquier tipo de consulta definido por el usuario(de cualquier tabla).
6. Creo mi Adaptador de datos pasando la consulta y estableciendo la conexión.
7. Creo un nuevo objeto datatable.
8. Utilizo el método Fill del objeto Adapter para poblar mi objeto tabla.
9. La función me devuelve los datos que contiene el objeto tabla.
10. Fin de la Funcíon.
11. Fin de la clase.
(*). Los atributos y funciones definidos con shared no necesita crear un objeto para poder utilizarlos. En JAVA se conoce como Éstaticos.
Mostrar los datos en el formulario: Diseñamos el formulario.

1.Inserta un Label, Textbox y Datagridview.
2.Doble clic en el formulario e ingresamos en el evento load del formulario el código de la línea 3.
La línea 3: Nombre de mi grilla y su propiedad datasource va ser alimentado con la función listar que está definido dentro de la clase conexion. A la función Listar le estoy pasando como parámetro la consulta: Seleccionando todos los campos de la tabla persona. Ahora ejecuta, Claro cuando escribes en la caja de texto no hay resultados, bien veamos ahora.
En modo diseño. Doble clic en la caja de texto y nos ubicamos en el evento Changed.
La línea 7: Si nos damos cuenta estamos volviendo a llamar a la función Listar y le estamos pasando otra consulta.

Nota: Algunos conceptos que se utilizan.

• Evento: Cualquier acontecimiento o suceso.
  
• Load: Al cargar el formulario que sucede.
  
• Changed: Mientras que el foco esté allí que va suceder.
• Where: Donde el campo apellidos.
• like: sea filtrado por el texto que se ingresa en la caja de texto.
• % : que termine con cualquier texto y de cualquier tamaño.