- [TOOL] Chia sẻ phần mềm thay đổi thông tin cấu hình máy tính
- [C#] Hướng dẫn Export dữ liệu ra file Microsoft Word Template
- [C#] Chia sẻ source code tool kiểm tra domain website
- [C#] Hướng dẫn tạo file PDF sử dụng thư viện QuestPDF
- [C#] Hướng dẫn tạo ứng dụng dock windows giống Taskbar
- [C#] Chia sẻ source code sử dụng Object Listview trên Winform
- [VB.NET] Chia sẻ source code quản lý thu chi mô hình 3 lớp Winform
- [DATABASE] Xóa lịch sử danh sách đăng nhập tài khoản trên SMSS Sqlserver Management Studio
- [C#] Sử dụng FolderBrowserDialog Vista trên Winform
- [DEVEXPRESS] Chia sẻ tool Winform UI Templates Early Access Preview (EAP)
- [C#] Chia sẻ source code Spin Content (Trộn nội dung văn bản theo từ đồng nghĩa) trên Winform
- [VB.NET] Chia sẻ source code lịch âm dương và hẹn lịch nhắc việc
- [C#] Hướng dẫn đọc thông số thiết bị Thiết bị kiểm tra Pin (HIOKI BATTERY HiTESTER BT3562)
- [VB.NET] Hướng dẫn giải captcha sử dụng dịch vụ AZCaptcha API trên winform
- [C#] Hướng dẫn chứng thực đăng nhập ứng dụng bằng vân tay (Finger Print) trên máy tính
- [C#] Color Thief cách xuất màu sắc thiết kế từ hình ảnh
- [C#] Cách tạo bản quyền và cho phép dùng thử ứng dụng Winform
- [C#] Hướng dẫn sử dụng trình duyệt web Chrome convert HTML sang tập tin file PDF
- [C#] Kết nôi điện thoại Android, IOS với App Winform via Bluetooth
- [DATABASE] Cách query cộng trừ dồn dần trong Sqlserver
Hướng dẫn lập trình thêm - xoá - sửa với Entity Framework 6 (Crud database with Entity Framework in VB.NET)
Entity Framework là gì?
ADO.NET Entity Framework là một nền tảng được sử dụng để làm việc với database thông qua cơ chế ánh xạ Object/Relational Mapping (ORM). Nhờ đó, bạn có thể truy vấn, thao tác với database gián tiếp thông qua các đối tượng lập trình.
Dưới đây là kiến trúc của Entity Framework:
Định nghĩa Entity Framework theo Microsoft
Microsoft ADO.NET Entity Framework là một khuôn khổ đối tượng Object/ Bảng đồ quan hệ Relational Mapping (ORM) cho phép các nhà phát triển dể dàng làm việc với dữ liệu quan hệ như là các đối tượng domain-specific, loại bỏ đi sự khó khăn trong việc truy cập dữ liệu trước đây. Bằng cách sử dụng Entity Framework, truy vấn LINQ, thì việc lấy và thao tác dữ liệu như các đối tượng trở nên mạnh mẽ hơn. Entity Framework ORM cung cấp các dịch vụ như change tracking, idenity resolution, lazay loading, và truy vấn dữ liệu tập trung vào business logic của ứng dụng.
Đơn giản có thể định nghĩa Entity Framework như sau: Entity Framework là một khung Object/Relational Mapping (O/RM). Nó là một kỹ thuật mới cung cấp cho các nhà phát triển ADO.NET một cơ chế tự động để truy cập và lưu trữ dữ liệu trong cơ sở dữ liệu và làm việc với các kết quả ngoài DataReader và DataSet.
Mình chỉ giới thiệu sơ qua cho các bạn về Entity Framework, còn tại sao phải sử dụng Entity Framework, hay Entity Framework khác ADO.NET và Linq 2 Sql như thế nào, thì các bạn có thể tìm hiểu thêm trên google nhé.
+ Bây giờ, mình sẽ demo cho các bạn những chức năng cơ bản: Thêm, Lưu, Xoá, Sửa trên nền tảng Entity framework.
Entity Framework cũng sử dụng cấu trúc truy vấn giống Linq, các bạn có thể tìm hiểu thêm về Linq tại đường dẫn sau:
Giao diện demo của chương trình:
- Đầu tiên, các ban Right click vào solution chon new items, sau đó tạo một file ADO.NET entity framework như hình bên dưới:
Dưới đây là source code của chương trình:
Imports System.ComponentModel
Imports System.IO
Imports System.Text
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Partial Public Class Form1
Inherits DevExpress.XtraEditors.XtraForm
Shared Sub New()
DevExpress.UserSkins.BonusSkins.Register()
DevExpress.Skins.SkinManager.EnableFormSkins()
End Sub
Public Sub New()
InitializeComponent()
End Sub
Dim sinhvienEntities As New sinhvienEntities()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FillData()
GridView1.RowHeight = 120
End Sub
Public Sub FillData()
Dim query = From t In sinhvienEntities.sinhviens Order By t.id Descending
GridControl1.DataSource = query.ToList
loadToField()
End Sub
Public Sub loadToField()
Dim rowIndex As Integer = GridView1.GetFocusedDataSourceRowIndex
Dim view As GridView = TryCast(GridControl1.FocusedView, GridView)
Dim id As Integer = CInt(view.GetRowCellValue(rowIndex, view.Columns("id")))
Dim tk As sinhvien = sinhvienEntities.sinhviens.Single(Function(t) t.id.Equals(id))
txtId.Text = tk.id.ToString
txtName.Text = tk.name.ToString
txtDate.Text = tk.birthday.ToString
txtAddress.Text = tk.address.ToString
Dim pictureBytes As New MemoryStream(tk.image)
picImage.Image = Image.FromStream(pictureBytes)
End Sub
Private Sub GridView1_DoubleClick(sender As Object, e As EventArgs) Handles GridView1.RowCellClick
loadToField()
End Sub
Public Function ImageToByte(img As Image) As Byte()
Dim byteArray As Byte() = New Byte(-1) {}
Using stream As New MemoryStream()
img.Save(stream, System.Drawing.Imaging.ImageFormat.Png)
stream.Close()
byteArray = stream.ToArray()
End Using
Return byteArray
End Function
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
Try
Dim id As Integer = CInt(txtId.Text)
Dim sinhvien As sinhvien = sinhvienEntities.sinhviens.[Single](Function(t) t.id.Equals(id))
sinhvien.name = txtName.Text
sinhvien.birthday = CDate(txtDate.Text)
sinhvien.address = txtAddress.Text
sinhvien.image = ImageToByte(picImage.Image)
sinhvienEntities.SaveChanges()
FillData()
Catch
MessageBox.Show("Cập nhật không thành công!")
End Try
End Sub
Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
picImage.Image = Nothing
txtId.Text = ""
txtDate.Text = ""
txtAddress.Text = ""
txtName.Text = ""
End Sub
Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Dim sinhvien As New sinhvien()
sinhvien.name = txtName.Text
sinhvien.birthday = CDate(txtDate.Text)
sinhvien.address = txtAddress.Text
sinhvien.image = ImageToByte(picImage.Image)
sinhvienEntities.sinhviens.Add(sinhvien)
sinhvienEntities.SaveChanges()
FillData()
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
Dim id As Integer = CInt(txtId.Text)
Dim dialogResult As DialogResult = MessageBox.Show("Bạn có chắc chắn muốn xoá không?", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If dialogResult = DialogResult.Yes Then
Dim sinhvien As sinhvien = sinhvienEntities.sinhviens.[Single](Function(t) t.id.Equals(id))
sinhvienEntities.sinhviens.Remove(sinhvien)
sinhvienEntities.SaveChanges()
FillData()
End If
End Sub
End Class
VIDEO DEMO ỨNG DỤNG:
CHÚC CÁC BẠN THÀNH CÔNG!