Hỏi Cách Tạo Form Đăng Nhập Trong Access (Form Đăng Nhập), Cách Tạo Form Đăng Nhập Cho Access

Posted on by mtoplistChuyên mục:Top List

Trong bài viết này tôi sẽ hướng dẫn bạn thực hiện kết nối từ VB.Net đến CSDL trong Access. Thực thi câu truy vấn để kiểm tra thông tin đăng nhập có chính xác hay không.

Bạn đang xem: Tạo form đăng nhập trong access

Tạo bảng dữ liệu trong Access:

tạo bảng tblUser có cấu trúc như sau: với trường User và Pass để lưu thông tin tài khoản và mật khẩu đăng nhập.

Xem thêm: Kiểm Tra Tên Công Ty Có Bị Trùng Hay Không, Cổng Thông Tin Quốc Gia Về Đăng Ký Doanh Nghiệp

*

Tạo mới Form đăng nhập

a. Tạo mới Window Form: Chuột phải bên thanh Solution Explore chọn Add/Windows Form *

a. Tạo mới Window Form: Chuột phải bên thanh Solution Explore chọn Add/Windows Formb.Chọn Login Form từ danh sách các Form có sẵn

*

Viết sự kiện cho Form đăng nhập*

a.Thêm thư viện cho Form Login: Sử dụng gói System.Data.OleDb

a.Thêm thư viện cho Form Login: Sử dụng gói System.Data.OleDb

Imports System.Data.OleDbb. Khai báo biến: biến myconnection để thực hiện kết nối đến CSDL

Dim myConnection As OleDbConnection = New OleDbConnectionDim provider As StringDim dataFile As StringDim connString As Stringc.Đoạn mã kết nối với CSDL:provider: chọn phiên bản Access phù hợp hiện tại thường sử dụng Microsoft.ACE.OLEDB.12.0dataFile: chọn đường dẫn đến file Access

provider = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source =”dataFile = “C:\data.accdb”connString = provider & dataFilemyConnection.ConnectionString = connStringe. Thưc hiện truy vấn đến file Access, lọc ra bản ghi trong bảng tblUser với User trùng với ô UsernameTextBox và Pass trùng với PasswordTextbox.

Xem thêm: How To Create Custom Post Types, Generate WordPress Post Type

Dim cmd As OleDbCommand = New OleDbCommand(“SELECT * FROM WHERE = “” & UsernameTextBox.Text & “” AND = “” & PasswordTextBox.Text & “””, myConnection) myConnection.Open() Dim dr As OleDbDataReader = cmd.ExecuteReaderd. Sử dụng HasRows để kiểm tra có tìm được bản ghi nào phù hợp không. Nếu có bản ghi tức điền đúng tên đăng nhập và mật khẩu hàm HasRows sẽ trả về kết quả True,ngược lại nếu tên đăng nhập hoặc mật khẩu sai hàm HasRows sẽ trả về kết quả FalseDim dr As OleDbDataReader = cmd.ExecuteReader If dr.HasRows = True Then MsgBox(“Success!”) Else MsgBox(“False”) End If

mtoplist