سورس فرم ورود در ویژوال بیسیک 2010 با دیتابیس access
In this source code you will learn on how to create a login form and connect VB.net to Microsoft Access.
Creating Database
– First you create a database in microsoft access
– copy what is on the image shown above.
Step 1
Open Microsoft Visual Studio 2010 and create a new windows form application for vb.
Step 2
Create your User Interface.
Step 3
Connect VB to MS ACCESS
Step 4
Code for Log in Button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New System.Data.OleDb.OleDbConnection(“Provider = Microsoft.jet.OleDB.4.0;Data Source = ” & Application.StartupPath & “\datastorage.mdb;”)
Dim cmd As OleDbCommand = New OleDbCommand( _
“SELECT * FROM logininfo WHERE Username = ‘” & _
TextBox1.Text & “‘ AND [Password] = ‘” & txtPassword.Text & “‘ “, con)
con.Open()
Dim sdr As OleDbDataReader = cmd.ExecuteReader()
If (sdr.Read() = True) Then
MessageBox.Show(“You are Now Logged In”)
frm1.Show()
TextBox1.Focus()
TextBox1.Clear()
txtPassword.Clear()
Me.Hide()
Else
MessageBox.Show(“Invalid Username or Password!”)
End If
End Sub
کد برای دکمه cancel :
If MsgBox(“Do you want to exit?”, vbYesNo + vbQuestion) = vbYes Then
Application.Exit()
End If
Code for show password check box:
If CheckBox1.Checked = True Then
txtPassword.PasswordChar =””
Else
txtPassword.PasswordChar = “•”
End If
دیدگاه ها