Quantcast
Channel: Login con Visual Studio 2010 y acces 2013
Viewing all articles
Browse latest Browse all 3

Login con Visual Studio 2010 y acces 2013

0
0

Estimados, estoy haciendo un program de login en visual studio 2010, no se programar lo que se lo aprendi de internet.

tengo un formulario con 2 botones y dos textbox

logre hacer la conexion de la base access con visual pero en mi codigo hay un error:

Public Class Form1

    Dim conexion As New OleDb.OleDbConnection   'representa una conexion abierta a origen de datos
    Dim comandos As New OleDb.OleDbCommand      'representa una instruccion sql
    Dim adaptador As New OleDb.OleDbDataAdapter 'representa un conjunto de comandos de datos y una conexion de base de datos que se utiliza para rellenar dataset y actualizar el origen de datos
    Dim lector As OleDb.OleDbDataReader         'proporciona el modo de lectura de una secuencia de filas de datos de tipo solo avance de un origen de datos

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'cadena de conexion que se utilizara para abrir la base de datos
            conexion.ConnectionString = ("provider=microsoft.ace.oledb.12.0;data source=" & " C:\Users\ASUS\Desktop\PROGRAMACION\VB\login\baseusuarios1.accdb")
            conexion.Open() 'abre la conexion
            MsgBox("Conexion Exitosa", vbInformation, "Conectado")

        Catch ex As Exception 'en caso de que ocurra una excepcion
            MsgBox("Error al intentar conectarse con la base de datos", vbExclamation, "Error")

        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim consulta As String  'para guardar la consulta

        'consulta para seleccionar el registro que cumpla con el criterio dado
        consulta = "SELECT * FROM usuarios WHERE user = " & TextBox1.Text & " and pass = " & TextBox2.Text & ""
        comandos = New OleDb.OleDbCommand(consulta, conexion)
        adaptador.SelectCommand = comandos
        lector = comandos.ExecuteReader
        If lector.Read = True Then 'si se encuentra un registro que cumpla con el criterio de seleccion
            Frminicio.Show() 'se muestra el formulario inicio
            Me.Hide() 'se oculta el formulario actual
        Else 'de lo contrario
            MsgBox("Usuario o Contraseña incorrecto") 'se muestra un mensaje informando que no existe el registro

        End If

    End Sub
End Class

la parte en negrita es el error me aparece No se han especificado valores para algunos de los parámetros requeridos.

quisiera que me ayuden ya que he intentado cerrar la consulta con un lector.close pero nada y todas las respuestas que encontre en otras paginas de internet no me ayudan.

gracias de antemano.

una vez solucionado el error, si hay forma de mejorar el codigo agradeceria me lo informen.

gracias de antemano


Viewing all articles
Browse latest Browse all 3

Latest Images

Trending Articles





Latest Images