Microsoft Access base de datos sobre Table llamado tblUsers
columna FirstName
Usuario columna
userPassword columna
Ver Más instrucciones
1
lanzamiento de Microsoft Visual Studio , haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador , y ampliar a continuación " Visual Basic ", " Plantillas instaladas ". Haga clic en "Windows " y haga doble clic en " Aplicación de Windows Forms " para crear una nueva ventana proyecto forma .
2
doble clic en " TextBox " para el panel "Toolbox" para añadir un nuevo control de cuadro de texto al formulario. Agregar un segundo cuadro de texto. Haga doble clic en "Button " en el panel "Toolbox" para añadir un nuevo control de botón al formulario. Agregar un segundo botón . Haga doble clic en " Button1 " para crear un evento de clic en este botón.
3
Copia y pega el código siguiente para agregar comprobar el nombre de usuario y contraseña con la información en la base de datos de acceso para el usuario Conectado:
connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C: \\ userDB.accdb " myConnection As OleDbConnection = New OleDbConnectionDim da como OleDbDataAdapterDim strSQL Como StringDim ds Como DataSetDim firstName As String
strSQL = " SELECT FROM tblUsers.FirstName tblUsers " strSQL = strSQL & " WHERE ( tblUsers.userName =" "y ( Me.TextBox1.Text ) &" ; ' " strSQL = strSQL &" y tblUsers.userPassword = "" y ( Me.TextBox2.Text ) & " '); " myConnection.ConnectionString = connStringda = New OleDbDataAdapter ( strSQL , myConnection ) ds = New DataSetda.Fill (ds , "usuarios" ) myConnection.Close ()
For Each rowTest En ds.Tables ( 0 ) . RowsfirstName = rowTest ( " Nombre" ) . ToStringNextIf firstName < > "" ThenMessageBox.Show ("Bienvenido " y firstName y "!") ElseMessageBox.Show ( " comprobar el nombre de usuario y contraseña por favor ." ) End If
4
Editar el paso anterior y escriba la ruta de acceso a su base de datos Access .
5
volver a la vista Diseño y haga doble clic en " Button2 " para crear un evento de clic . Agregue el siguiente código para mostrar el formulario de registro al hacer clic en :
Form2.Show ()
6
Haga clic en el nombre del proyecto en el panel " Explorador de soluciones " y haga clic en "Añadir > , Windows Form ... "para agregar un nuevo formulario para el registro de su proyecto. Haga doble clic en " Form2 " y añadir tres cuadros de texto utilizando la misma técnica que se utiliza en el paso 1 . Agregar un botón
7
doble clic en " Button1 " para crear un evento de clic y agregue el código siguiente para agregar la información de usuario a la base de datos Access : .
StrSQL As StringDim objCmd Como Nueva OleDbCommandstrSQL = "INSERT INTO tblUsers ( Nombre , Nombre de usuario , userPassword ) " strSQL = strSQL & " VALUES ( '" & ( Me.TextBox1.Text ) & " ", " " & ( Me.TextBox3.Text ) & " " , "" y ( Me.TextBox4.Text ) & " '); " Dim Con = New OleDbConnection ( " Provider = Microsoft.ACE.OLEDB . . 12.0 ; Data Source = C: \\ userDB.accdb ") Con.Open () objCmd = New OleDbCommand ( strSQL , Con) objCmd.ExecuteNonQuery () con.close () MessageBox.Show ( " Has registrado correctamente Inicia sesión . ") Form1.Show ()
8
Editar el paso anterior y escriba la ruta de acceso a la base de datos de Access.
9
Press " F5 "para ejecutar el programa . Haga clic en " Button2 " para abrir el formulario de inscripción. Escriba su nombre en el primer cuadro de texto , el nombre de usuario en el segundo , de usuario y contraseña en el tercer cuadro de texto. Haga clic en " Button1 " para guardar la información . Escriba su nombre de usuario y contraseña en la página de registro y haga clic en " Button1 " para mostrar un mensaje de inicio de sesión.