no-img
دانلود پروژه ، پایان نامه ، فیلم آموزشی

سورس فرم ورود در ویژوال بیسیک 2010 با دیتابیس access


دانلود پروژه ، پایان نامه ، فیلم آموزشی
مطالب ویژه

ادامه مطلب

ZIP
سورس فرم ورود در ویژوال بیسیک 2010 با دیتابیس access
zip
دسامبر 14, 2018
۰ تومان
رایگان – خرید

سورس فرم ورود در ویژوال بیسیک 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
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.
Open VBStep 2
Create your User Interface.
U.IStep 3
Connect VB to MS ACCESS
Step 1Step 2Step 3Step 4

Step 5

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

 



درباره نویسنده

silverlearn 12 نوشته در دانلود پروژه ، پایان نامه ، فیلم آموزشی دارد . مشاهده تمام نوشته های

دیدگاه ها


دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *