FORMULARIO DE ENTRADA

Muchas veces queremos validar nuestro formulario de entrada a las aplicaciones de escritorio, mediante un Gestor de Base de Datos, el presetne ejemplo muestra la conexion a una Base de Datos en este caso MS Access para validar un usuario para el ingreso al sistema, implementado en la plataforma de desarrollo .NET . . . Bueno obviamente tenemos que tener la tabla de registro como usuario, empleado u otro creado en la BD.
 

Imports System.Data

Imports System.Data.OleDb


PublicClass FormLogin

    Private ds As DataSet

    Private da As OleDbDataAdapter

    ‘ El nombre de la base de datos:

    Dim URL AsString = Application.StartupPath + “\AlquilerYate.mdb”

    ‘ La cadena de conexión

    Dim sCnn AsString = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & URL

    ‘ La cadena de selección

    Dim sSel AsString = “SELECT dni,nombres,clave FROM usuario”


    PrivateSub FormLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        Try

            ‘ Crear un nuevo objeto del tipo DataAdapter

            da = New OleDbDataAdapter(sSel, sCnn)

            ds = New DataSet

            ‘ Llenar la tabla con los datos indicados

            da.Fill(ds, “usuario”)

            Dim dr As DataRow = ds.Tables(“usuario”).Rows(0)

            Me.MaskedTextBoxDni.Text = dr(“dni”).ToString

            Me.TextBoxClave.Text = dr(“clave”).ToString

        Catch ex As Exception

            MessageBox.Show(“ERROR al conectar o recuperar los datos:” & vbCrLf & _

                            ex.Message, “Conectar con la base”, _

                            MessageBoxButtons.OK, MessageBoxIcon.Error)

        EndTry

    EndSub


    PrivateSub ButtonAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAceptar.Click

        Static cuenta AsInteger

        Dim ObjDataView AsNew DataView

        ObjDataView.Table = ds.Tables(“usuario”)

        ObjDataView.RowFilter = “dni='” & MaskedTextBoxDni.Text & “‘” & ” and ” & “clave='” & TextBoxClave.Text & “‘”

 

        If ObjDataView.Count > 0 Then

            dniUser = MaskedTextBoxDni.Text

            NomUsuario(dniUser)

            My.Forms.FormPrincipal.Show()

            Me.Hide()

        Else

            cuenta += 1

            If cuenta = 3 Then

                MsgBox(“No puede ingresar”, MsgBoxStyle.Critical, “Error”)

                Me.Close()

                ExitSub

            EndIf

            MessageBox.Show(“Le quedan: ” + Str(3 – cuenta) + ” oportunidad(es)”, “Error en contraseña o nombre de usuario”, MessageBoxButtons.OK)

            MaskedTextBoxDni.Clear()

            TextBoxClave.Clear()

            MaskedTextBoxDni.Focus()

        EndIf

    EndSub


    PrivateSub NomUsuario(ByVal DNI AsString)

        Try

            Dim sql AsString = “SELECT nombres FROM usuario WHERE dni='” + DNI + “‘”

            ‘ Crear un nuevo objeto del tipo DataAdapter

            ‘Dim cnn As New OleDbConnection(sCnn)

            da = New OleDbDataAdapter(sql, sCnn)

            ds = New DataSet

            ‘ Llenar la tabla con los datos indicados

            da.Fill(ds, “usuario”)

            Dim dr As DataRow = ds.Tables(“usuario”).Rows(0)

            nomUser = dr(“nombres”).ToString

        Catch ex As Exception

            MessageBox.Show(“Datos No Validos:” & vbCrLf & _

                            ex.Message, “No Coinciden”, _

                            MessageBoxButtons.OK, MessageBoxIcon.Error)

        EndTry

    EndSub


    PrivateSub ButtonCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancelar.Click

        Me.Close()

    EndSub


EndClass

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s