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 Form1Dim 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