Balanza de pagos

Formulario: LOGIN

Código del Botón Aceptar:
Option Strict On
Option Explicit On

'Ponemos todas las librerias a importar

Imports Microsoft.VisualBasic 'Especifica para VisualBasic
Imports System 'Necesaria del sistema
Imports System.Windows.Forms 'Necesaria para diseño de los formularios
Imports System.Drawing 'Tambien para diseño

ImportsSystem.Data 'Para el acceso a datos
Imports System.Data.SqlClient 'Para base de datos SQL Server
'Imports System.Data.OleDb 'Para base de datos acces

Public Class LOGIN

'dos variables que se necesitan para verificar intentos
Dim contador As Integer = 0
Const intentos As Integer = 5

Private Sub LOGIN_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


' BOTON ACEPTAR

' Validación si están vacias las 2 cajas de texto, usuario y contraseña
If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox("Ingrese Nombre de Usuario y Contraseña",MsgBoxStyle.Information, "Atencion...")

TextBox1.Focus()

'llamar la funcion intentos
intentos_acceso()

Else
'validación si alguna de las 2 cajas de texto está vacia
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Los dos campos deben de estar llenos", MsgBoxStyle.Information, "Atencion...")'Limpia las cajas de texto y manda el enfoque a la caja del usuario
TextBox2.Text = ""
TextBox1.Text = ""
TextBox1.Focus()

'llamar la funcion intentos
intentos_acceso()

Else

'Declaramos dos variables que utilizaremos en la consulta
Dim nombre As StringDim passwor As String

'Pasamos los datos ingresados a las variables nombre y passwor
nombre = Trim(TextBox1.Text)
passwor = Trim(TextBox2.Text)

'La cadena de conexión a la base de datos a la base de SQL Server
Dim rutaconexion As String = "Data Source=WFLORES-PC\SQL;InitialCatalog=ACADEMICA;Integrated Security=True"


'Declaro variable conexion inicialmente sin asignacion
Dim conexion As SqlConnection = Nothing

'Ahora utilizaremos las funciones para excepciones
' Si llegara a suceder algún error

Try

'Inicializo la variable conexion con la ruta a la base SQLServer
conexion =New SqlConnection(rutaconexion)
conexion.Open()

'Declaro una variable que almacenara la cadena de consulta
Dim query As New System.Text.StringBuilder

'Usando COUNT(*) nos devuelve el total que coincide
'con lo indicado en el WHERE,
'si la clave y el usuario son correctos, devolverá 1, sino,devolverá 0
query.Append("SELECT COUNT(*) FROM usuarios WHERE usuario = @usuario AND contraseña = @contraseña")

'Definir el comando que vamos a ejecutar
Dim comando As New SqlCommand(query.ToString, conexion)

'Creamos los parámetros
comando.Parameters.Add("@usuario", SqlDbType.VarChar, 50)comando.Parameters.Add("@contraseña", SqlDbType.VarChar, 50)

' Asignamos los valores recibidos como parámetro
comando.Parameters("@usuario").Value = nombre
comando.Parameters("@contraseña").Value = passwor

'Ejecutamos la consulta
'ExecuteScalar devuelve la primera...