Entorno conectado en VB.NET (versión 2005 – 2010 probado)

Un entorno conectado es aquel en el que un usuario o una aplicación están conectados continuamente a una fuente de datos. Durante muchos años de la historia de la informática, el único entorno disponible era el entorno conectado

He aquí algunos ejemplos en los que debe utilizarse una conexión continua:

• Una fábrica que requiere una conexión en tiempo real para controlar la salida de producción y el almacén.
• Un agente de bolsa que requiere una conexión constante a los valores del mercado

Ahora, de una forma sencilla y mediante un programita en VB.NET explicaré éste entorno conectado.

El formulario contine…

Quedaría así…

Y la base de datos se llama Pruebas, con una tabla llamada tst_usuarios, la cual tiene los siguientes campos con sus respectivos valores:

Ahora que ya tenemos la base de datos y el formulario, vamos por el código…

Primero, importamos las librerías que nos permitirá conectarnos a la base de datos gracias al componente ADO.NET.

Imports system.Data.SqlClient

Luego, en la siguiente línea de código (dentro de la clase publica del Form1)  se declara la variable conexion como objeto SqlConnection, y se le asigna el String de conexión. El String de conexión consta de 4 parámetros básicos: Data Source (que es para indicarle el servidor de base de datos al que nos conectaremos, Initial Catalog (se le asigna la base de datos con la que se trabajará), User Id (Usuario de conexión) y Password (Contraseña del usuario con el que se conectará).

En la segunda línea, se declara una variable leer como un SqlDataReader, la cual será usada para procesar eficientemente una lista grande resultados, un registro a la vez.

Dim conexion As New SqlConnection("Data Source=.; Initial Catalog=pruebas; User Id=usuario; Password=123")
Dim leer As SqlDataReader

Dentro de la clase del botón btnEntrar, la primera línea se declara la variable query que contiene la sentencia SQL que verifica si lo que el usuario ingresa en el formulario (usuario y contraseña) se encuentra registrado en la base de datos.

Dim query As String = "select * from tst_usuarios where idusuario = '" & Me.txtUsuario.Text & "' and passwd = '" & Me.txtPasswd.Text & "'"

Se declara una variable comando como SqlCommand, que nos ayudará a realizar la acción en la fuente de datos, ya sea para lectura, actualización, borrado etc. En nuestro caso, lo usaremos para consulta. Se le pasa como parámetros (o atributos), la variable query (con la sentencia SQL) y la variable de conexión.

Dim comando As New SqlCommand(query, conexion)

Por si exista algún tipo de error, se manejarán dichos errores con Try Catch

Try

Se abre la conexión…

conexion.Open()

Se le asigna a la variable leer (tipo SqlDataReader) el resultado de la sentencia SQL por medio del ExecuteReader.

leer = comando.ExecuteReader

Se verifica si leer posee algún registro (que debería ser el registro del usuario que corresponde con el usuario y contraseña que ingresó el usuario final). Si tiene, se envía un mensaje de bienvenida. Si no tiene, es porque el usuario final ingreso mal el usuario o la contraseña.

If leer.Read Then
MessageBox.Show("Bienvenido al sistema", "Inicio")
Else
MessageBox.Show("Nombre de usuario o contraseña incorrectas", "Error")
Me.txtUsuario.Select()
End If

Se cierra el DataReader

leer.Close()

Se cierra el Catch, dejando un mensaje con el error específico que ocurrió si en caso sucede.

Catch ex As Exception
MsgBox(ex.Message)
Entd Try

Se cierra la conexión.

conexion.close()

El resultado al ejecutar el código es el siguiente:

Puedes descargar éste ejemplo aqui…

Comentarios por Facebook

comentarios