buenas tengo un programa en visual basic que me permite acceder informacion a una base de datos en access y necesito que cuando me inicie el programa el programa me consulte usuario y contraseña de la base de datos de access
trate con un datatable y no me ha funcionado trabajo visual basic 2010 y access 2010
este es el codigo de lo que llevo
Cita: Dim usuario, contraseña As String
usuario = txtusuario.Text
contraseña = txtcontraseña.Text
If validar_usuario(usuario, contraseña) = True Then
MsgBox("usuario valido, Bienvenido")
Me.Hide()
Else
MsgBox("usuario y contraseña incorrectos intente de nuevo")
End If
End Sub
Public Function validar_usuario(ByVal usuario As String, ByVal contraseña As String) As Boolean
Using ofd As New OpenFileDialog()
ofd.Filter = "Archivos de Access 2007 - 2010|*.accdb|Todos los archivos|*.*"
Dim dr As DialogResult = ofd.ShowDialog(Me)
Dim cnn As String = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source={0}", ofd.FileName)
Dim cn As String = String.Format("Select * from Empleados where usuario='{0}' and contraseña='{1}'", usuario, contraseña)
Dim da As New OleDbDataAdapter(cn, cnn)
Dim ds As New DataSet
Dim cont As Integer
cont = Convert.ToInt32(ds.Tables(0).Rows.Count)
If cont > 0 Then
Return True
Else
Return False
End If
End Using
End Function