Lancering Microsoft Visual Studio , klikt u op " New Project" aan de linkerkant van uw computerscherm , en uit te breiden " Visual Basic " onder " Geïnstalleerde sjablonen . " Klik op "Windows" en dubbelklik op " Windows Forms Application " om een ​​nieuwe windows te maken formulieren project .

Dubbelklik op " TextBox " 2 op uit de " Toolbox " venster om een ​​nieuw tekstvak toe te voegen aan uw formulier . Voeg een tweede tekstvak . Dubbelklik op " Button " van de " Toolbox " deelvenster naar een nieuwe knop controle toe te voegen aan uw formulier . Voeg een tweede knop . Dubbelklik op " Button1 " naar een gebeurtenis click voor deze toets te maken .

Kopieer 3 en plak de volgende code om te controleren gebruikersnaam en wachtwoord tegen de informatie in de Access-database voor de gebruiker toe te voegen login :

Dim connString
As String = " Provider = Microsoft.ACE.OLEDB.12.0 ; data Source = C : \\ userDB.accdb " Dim myConnection Zoals OleDbConnection = Nieuwe OleDbConnectionDim da Zoals OleDbDataAdapterDim strSQL Zoals StringDim ds Zoals DataSetDim firstName As String

strSQL
= " SELECT tblUsers.FirstName FROM tblUsers " strSQL = strSQL & " WHERE ( tblUsers.userName = ' " & ( Me.TextBox1.Text ) & " , ' " strSQL = strSQL & " en tblUsers.userPassword = ' " & ( Me.TextBox2.Text ) & " ' ) ; " myConnection.ConnectionString = connStringda = Nieuw OleDbDataAdapter ( strSQL , myConnection ) ds = Nieuwe DataSetda.Fill ( ds , " gebruikers " ) myConnection.Close ( ) op

voor Elke rowTest In ds.Tables ( 0 ) . RowsfirstName = rowTest ( " Voornaam " ) . ToStringNextIf firstName < > " " ThenMessageBox.Show ( " Welkom " & firstName & " ! " ) ElseMessageBox.Show ( " Gelieve een gebruikersnaam en wachtwoord . " ) End If
4

Bewerk de vorige stap en typ het pad naar uw Access-database .
5

Schakel terug naar het ontwerp bekijken en dubbelklik op " Button2 " te vormen om een gebeurtenis click creëren . Voeg de volgende code toe aan het inschrijfformulier weergegeven wanneer erop geklikt :

Form2.Show ( )
6

rechtermuisknop op uw naam -project in de " Solution Explorer " venster en klik op " Toevoegen > ; Windows Form ... " om een ​​nieuw formulier voor registratie aan uw project toe te voegen . Dubbelklik op " Form2 " en voeg drie tekstvakken met behulp van dezelfde techniek die gebruikt wordt in stap 1 . Voeg een knop

Dubbelklik op " Button1 " 7 naar een gebeurtenis click maken en voeg de volgende code om de gebruiker informatie toe te voegen aan de Access-database : .

Dim strSQL
Zoals StringDim objCmd zoals New OleDbCommandstrSQL = " INSERT INTO tblUsers ( Voornaam, userName , userPassword ) " strSQL = strSQL & " VALUES ( ' " & ( Me.TextBox1.Text ) & " ' , ' " & ( Me.TextBox3.Text ) & " ' , ' " & ( Me.TextBox4.Text ) & " ' ) ; " Dim Con = Nieuw OleDbConnection ( " Provider = Microsoft.ACE.OLEDB . . 12,0 ; data Source = C : \\ userDB.accdb " ) Con.Open ( ) objCmd = Nieuwe OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Con.Close ( ) MessageBox.Show ( " Je hebt met succes geregistreerd Log in . " ) Form1.Show ( )
8

Bewerk de vorige stap en typ het pad naar uw Access-database .

Press 9 " F5 "om het programma te draaien . Klik op " Button2 " om het registratieformulier te openen . Vul uw naam in het eerste tekstvak , de gebruikersnaam in de tweede , en user-wachtwoord in het derde tekstvak . Klik op " Button1 " om de informatie op te slaan . Typ uw gebruikersnaam en wachtwoord in op de aanmeldingspagina en klik op " Button1 " om een login -bericht weer te geven .