Mantenimiento a una tabla hecha en SQL

Mantenimiento a una tabla hecha en SQL mediante códigos en vb.net

En esta ocasión Les publicare como darle mantenimiento a una tabla hecha en SQL mediante códigos en vb.net.

Lo que vamos a crear a continuación es una solución, desarrollado con un estilo orientado a capas… y de forma conectada-

¿Forma Conectada?

Este hace referencia a una conexión física establecida con el servidor de datos durante todo momento para poder efectuar cualquier consulta o actualización sobre los datos.

VENTAJAS DESVENTAJAS

* Al haber una única conexión a la base de datos por usuario, o incluso a veces por aplicación, establecida permanentemente, puede llegar a resultar más sencillo la seguridad y el acceso al servidor de datos.

Lo mismo ocurre con el control de concurrencia: en un escenario donde

múltiples usuarios se estuvieran conectando y desconectando

permanentemente para realizar distintas acciones, este control seria más difícil

de llevar.

* Siempre la aplicación tiene accesos a los datos actualizados. * Se requiere una conexión abierta todo el tiempo con el servidor de base de datos, lo cual consume recursos innecesariamente si no se la esta utilizando. * La escalabilidad del acceso a los datos se ve limitada por la cantidad de conexiones establecidas simultáneamente contra el servidor de base de datos.

Bueno una vez sabido esto empecemos a diseñar crearemos nuestra base de datos requerida para esta solución:

Para este ejemplo crearemos una base de datos, la cual la llamaremos Matricula Y poseerá una tabla alumno:

Luego crearemos nuestra solución, lo crearemos tal como le explique en la página anterior, quedando de la siguiente manera:

Ahora para empezar a trabajar tenemos que dar la conexión a nuestra base de datos a utilizar, codificando en la Biblioteca DAL:

Luego En la Biblioteca Bean, no les muestro el código ya que es redundante volver a explicar, pues ya lo explique en la página anterior.

Esta demás decir que por cada tabla se creara una clase en la biblioteca BEAN

Ahora vallamos a la biblioteca DAO:

En esta Biblioteca irán todas las operaciones o métodos a ejecutar (Ingresar, actualizar, eliminar, seleccionar), al igual que Bean debemos crear una clase por cada tabla creada, pues casi todas las tablas necesitan tener mantenimientos, pero en esta ocasión solo crearemos una llamándola Alumnodao;

Si bien ya saben que tenemos que darle una referencia con las bibliotecas Bean (Nos permiten interactuar con las variables o campos) y Dal (permite la conexión a la base de datos).

Haaaaaaaa ¡¡ antes de agregar los métodos debemos de importar a la biblioteca referenciadas, y también a nuestra biblioteca que nos brindaran métodos propios de vb.net (Sytem.Data.Sqlclient)

Empecemos……….

Creamos el método Mostrar: nos traerá toda la tabla con los registros agregados para poderlo ver en nuestra aplicación

Public

Function mostrar() As DataSet

Dim cnn As

New DBAcces

Dim ds As

New DataSet

cnn.conectar()

Dim da As

New SqlDataAdapter(“select * from Alumno”, cnn.cs)

da.Fill(ds)

Return ds

End

Function

Método Insertar:

este método creo que no es necesario explicarle su función, pues es obvia.

Public

Function insertar(ByVal a As BEAN.AlumnoBean) As DataSet

Dim cnn As

New DBAcces

Dim ds As

New DataSet

cnn.conectar()

Dim da As

New SqlDataAdapter

(“INSERT INTO alumno(idAlumno,nombreAlumno,apellidoP,apellidoM,sexo,edad,direccion,telefono)

VALUES (“ & a.Getcodigo & “,’” & a.Getnombre & “‘,’” & a.Getapepat & “‘,’” & a.Getapemat & “‘,’” & a.Getsexo & “‘,” & a.Getedad & “,’”& a.Getdireccion & “‘,’” & a.Gettelefono & “‘) “, cnn.cs)

da.Fill(ds)

Return ds

End

Function

Metodo Actualizar:

Public

Function actualizar(ByVal a As BEAN.AlumnoBean) As DataSet

dim cnn As

New DBAcces

Dim ds As

New DataSet

cnn.conectar()

Dim da As

New SqlDataAdapter(“update Alumno set nombreAlumno=’” & a.Getnombre & “‘,apellidoP=’” & a.Getapepat & “‘,apellidoM=’” & a.Getapemat &“‘,sexo=’” & a.Getsexo & “‘,edad=” & a.Getedad & “,direccion=’” & a.Getdireccion & “‘,telefono=’” & a.Gettelefono & “‘ where idAlumno=” & a.Getcodigo, cnn.cs)

da.Fill(ds)

Return ds

End

Function

Metodo Eliminar:

Public

Function eliminar(ByVal

...