bueno empezemos
antes que nada debemos tener instalados el vb.net y sql server
una vez instalado creamos un nuevo proyecto
lo llamare "loggin"
una creado el proyecto procederemos a empezar a trabajar
1 .- creamos 2 textbox y un button
. Textbox1.text ' sera para el Usuario
Textbox2.text ' sera para la contraseña
button1 ' sera para aceptar los datos
button2 ' sera para salir del programa
nos deberia quedar asi
y creamos los datos
ahora
llenamos datos
despues empezamos a programar
agregamos un modulo - lo llamaremos ConexionDB
opcion 1 .- empezamos a conectar con la base de datos
- esta conexion es para acceder sin usario ni contraseña
'*************************************************************************
'CONEXION
DE BASE DE DATOS EN MODO LOCAL
Dim servidor As String = "Aqui pones el nombre
del servidor "
Dim nombreBaseDatos As String = "Aqui pones el nombre
dela base de datos "
Public conn As New SqlConnection("Server=" & servidor & ";Integrated
Security=SSPI;database= " &
nombreBaseDatos & ";MultipleActiveResultSets=true")
'*************************************************************************
opcion 2.- con usuario y contraseña
Dim servidor As String = "Aqui pones el nombre
del servidor "
Dim nombreBaseDatos As String = "Aqui pones el nombre
dela base de datos "
Dim iniciosesecionSql As String = "aqui pones el nombre
de usuario de atutenticacion del sql"
Dim contraseñasql As String = "aqui pones la
contraseña de atutenticacion del sql
"
--------------------------------------------------------------------------------------------------
Ejemplo
yo hare sin usuario y usaremos los datos que creamos y la conexion de servidor por defecto del sql server
'*************************************************************************
Imports System.Data.SqlClient
Module ConexionDB
'*************************************************************************
'CONEXION
DE BASE DE DATOS EN MODO LOCAL
Dim servidor As String = "."
Dim nombreBaseDatos As String = "CHL"
Public conn As New SqlConnection("Server=" & servidor & ";Integrated
Security=SSPI;database= " &
nombreBaseDatos & ";MultipleActiveResultSets=true")
Sub Abrir_conexion()
If conn.State = 0 Then
conn.Open()
Else
MsgBox("no se ha podido conectar ala base de ")
End If
End Sub
End Module
Formulario
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Abrir_conexion() 'abrir la conexión
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cmd As New SqlCommand ' declaramos el comando para
ejecutar las consultas
Dim dr0 As SqlDataReader ' declaramos un datareader
para almacenar los datos que jalaremos dela basedatos
Dim user As String ' usuario textbox1
Dim psw As String ' contraseña textbox2
Dim nombre As String ' squi almacenamos nombre del
usuario
user = TextBox1.Text
psw = TextBox2.Text
cmd = New SqlCommand("select * from
personal where usuario like '" &
TextBox1.Text & "' and psw like
'" & TextBox2.Text & "' and estado = 1 ", conn)
dr0 = cmd.ExecuteReader
If dr0.Read Then
nombre = dr0("usuario").ToString
MsgBox("datos autentificados con exito" & vbNewLine & "Bienvenido
" & nombre, MsgBoxStyle.Information)
'' una
vez que ingreso , aquí puedes hacer lo que quieras xD!! ,
llamar otros formularios , bla bla bla
Else
MsgBox("no se han encontrado datos ")
End If
End Sub
End Class
------------------
Y ESO ES TODO AMIGOS
Aqui codigo Fuente sistema + base de datos : link
cualquier consulta o detalle ami gmail : Carlesx1@gmail.com
Leony Li
By
Published: 2015-12-21T14:21:00-08:00
CREANDO UN LOGGIN EN VB.NET 2015 Y SQL SERVER 2014
By
Published: 2015-12-21T14:21:00-08:00
CREANDO UN LOGGIN EN VB.NET 2015 Y SQL SERVER 2014
