Hola Amigos, Hoy le Presento un Formulario sencillo para hacer un login desde nuestra aplicacion de vb.net con una base de datos en sql server.
primero hay que importar las siguientes librerias:
Imports System.Data
Imports System.Data.SqlClient
luego asumimos que el campo donde el usuario ingresa si username se llama txtusername y el codigo txtpassword, se agrega el siguiente codigo:
Dim dap As New SqlDataAdapter(«select * from Acceso», cnx)
Dim dst As New DataSet
dap = New SqlDataAdapter(«select * from Acceso where UserName='» & txtusuario.Text & «‘ and Password='» & txtcodigo.Text & «‘», cnx)
dap.Fill(dst, «log»)
If dst.Tables(«log»).Rows.Count <> 0 Then
‘aqui se agrega el codigo necesario cuando los datos de acceso son correctos
else
‘aqui se agrega el codigo cuando los datos de acceso son incorrectos
end if
si lo quieren poner mas bonito pueden agregar una barra de progreso o lo que ustedes gusten. pero el funcionamiento de la consulta es el mismo.
el ejemplo lo pueden descargar desde Aqui, es un proyecto en VB.Net 2013.