[VB.NET] CRUD (Create, Read, Update, Delete) ฉบับ Dapper (Micro-ORM) ด้วย MS -Access

puklit

สวัสดีสมาชิก G2G ทุกท่าน

สำหรับวันนี้ผมขอนำเสนอรูปแบบ CRUD (Create, Read, Update, Delete) ฉบับ Dapper (Micro-ORM) ด้วย MS -Access
คือการจัดการข้อมูลทั้งหมด โดยไม่ใช้ ADO.Net แต่ในที่นี้เราจะใช้ Dapper (Micro-ORM) จัดการข้อมูลแทน ADO.Net

ข้อมูลเกี่ยวกับ Dapper : https://github.com/DapperLib/Dapper
คู่มือการใช้งาน : https://dapper-tutorial.net/
ก่อนที่จะสามารถใช้งาน Dapper ในโปรเจคของเรา ให้ทำการลง Packages ผ่าน NuGet  ก่อน

ตัวอย่างฟอร์ม


ตัวอย่าง โค้ด

C (Create)

1. ' บันทึกข้อมูลพนักงานใหม่ (บันทึกข้อมูลโดยใช้พารามิเตอร์)
   
2.     ' (ตัวอย่างการเรียก Execute จาก Module MdlMain) ข้อดี คือไม่ต้องเขียนเรียก Using db As IDbConnection = New OleDbConnection(MdlMain.ConnStr) ทุก ๆ ครั้งที่มีการใช้งาน
   
3.     Private Sub New_EmpDB()
   
4. 
   
5.         Dim sql = "INSERT INTO tblEmployee
   
6.                    (Emp_Name,Emp_SName,Emp_Gender,Emp_StartDate)
   
7.                    VALUES
   
8.                    (@Emp_Name,@Emp_SName,@Emp_Gender,@Emp_StartDate)"
   
9. 
   
10.         Dim prm As New DynamicParameters 'กำหนดค่า พารามิเตอร์ ของ Dapper ORM
    
11.         prm.Add("Emp_Name", txtEmp_Name.Text) 'ชื่อ
    
12.         prm.Add("Emp_SName", txtEmp_SName.Text) 'นามสกุล
    
13.         prm.Add("Emp_Gender", cmbGender.Text) 'เพศ
    
14.         prm.Add("Emp_StartDate", dtpStartDate.Value) 'วันที่เริ่มงาน
    
15. 
    
16.         MdlMain.Execute(sqlstr:=sql, prm:=prm, cmdType:=CommandType.Text)
    
17.         MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
18. 
    
19.     End Sub

คัดลอกไปที่คลิปบอร์ด

R (Read)

1. ' แสดงข้อมูลพนักงานใน DataGridView
   
2.     Private Sub Show_Empinfo()
   
3. 
   
4.         Try
   
5. 
   
6.             Using db As IDbConnection = New OleDbConnection(MdlMain.ConnStr) 'สร้างการเชื่อมต่อโดยใช้ Using
   
7. 
   
8.                 db.Open() 'เปิดการเชิ่อมต่อฐานข้อมูล
   
9. 
   
10.                 Dim sql = "SELECT * FROM tblEmployee" ' คำสั่ง SQL
    
11.                 dgvEmp.DataSource = db.Query(Of Employee)(sql).ToList() 'กำหนดข้อมูลที่ Query มาได้ให้กับ DataGridview
    
12.                 Set_DGV() 'จัด Layout DataGridView
    
13.                 dgvEmp.Refresh() 'ฟื้นฟู DataGridView
    
14. 
    
15.             End Using
    
16. 
    
17.         Catch ex As Exception
    
18. 
    
19.             MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
20. 
    
21.         End Try
    
22. 
    
23.     End Sub

คัดลอกไปที่คลิปบอร์ด

1. ' แสดงข้อมูลใน Textbox
   
2.     Private Sub Emp_infoo(Emp_ID As String)
   
3. 
   
4.         Dim sql = @"SELECT Emp_ID,Emp_Name,Emp_SName,Emp_Gender,Emp_StartDate
   
5.                    FROM tblEmployee
   
6.                    WHERE Emp_ID = {Emp_ID} "
   
7. 
   
8.         MdlMain.Emp_info(Of Employee)(sql, AddressOf Empinfo)
   
9. 
   
10.     End Sub
    
11. 
    
12.     ' ข้อมูลพนักงาน
    
13.     Private Sub Empinfo(l As List(Of Employee))
    
14. 
    
15.         Get_EmpID = l.Item(0).Emp_ID 'ไอดี
    
16.         txtEmp_Name.Text = l.Item(0).Emp_Name 'ชื่อ
    
17.         txtEmp_SName.Text = l.Item(0).Emp_SName 'นามสกุล
    
18.         cmbGender.Text = l.Item(0).Emp_Gender
    
19.         dtpStartDate.Value = MdlMain.SqlDate(l.Item(0).Emp_StartDate) 'วันที่เริ่มงาน
    
20. 
    
21.     End Sub

คัดลอกไปที่คลิปบอร์ด

U (Update)

1. ' แก้ไขข้อมูลพนักงาน
   
2.     Private Sub Edit_EmpDB()
   
3. 
   
4.         Try
   
5. 
   
6.             Using db As IDbConnection = New OleDbConnection(MdlMain.ConnStr) 'สร้างการเชื่อมต่อโดยใช้ Using
   
7. 
   
8.                 db.Open() 'เปิดการเชิ่อมต่อฐานข้อมูล
   
9. 
   
10.                 ' คำสั่ง SQL
    
11.                 Dim sql = @"UPDATE tblEmployee SET
    
12.                                 Emp_Name =@Emp_Name,
    
13.                                 Emp_SName =@Emp_SName,
    
14.                                 Emp_Gender =@Emp_Gender,
    
15.                                 Emp_StartDate =@Emp_StartDate
    
16.                            WHERE Emp_ID = {Get_EmpID} "
    
17. 
    
18.                 Dim prm As New DynamicParameters 'กำหนดค่า พารามิเตอร์ ของ Dapper ORM
    
19.                 prm.Add("Emp_Name", txtEmp_Name.Text) 'ชื่อ
    
20.                 prm.Add("Emp_SName", txtEmp_SName.Text) 'นามสกุล
    
21.                 prm.Add("Emp_Gender", cmbGender.Text) 'เพศ
    
22.                 prm.Add("Emp_StartDate", dtpStartDate.Value) 'วันที่เริ่มงาน
    
23. 
    
24.                 db.Execute(sql, prm, commandType:=CommandType.Text) 'คำสั่ง Execute ฐานข้อมูลโดยใช้ sql, มีค่าพารามิเตอร์ที่รับเข้ามาจาก prm ,กำหนดประเภทคำสั่งเป็น Text
    
25. 
    
26.                 MessageBox.Show("บันทึกแก้ไขข้อมูลเรียบร้อยแล้ว", "แก้ไขข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
27. 
    
28.             End Using
    
29. 
    
30.         Catch ex As Exception
    
31. 
    
32.             MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
33. 
    
34.         End Try
    
35. 
    
36.     End Sub

คัดลอกไปที่คลิปบอร์ด

D (Delete)

1. ' ลบข้อมูล
   
2.     Private Sub Delete_EmpDB()
   
3. 
   
4.         Try
   
5. 
   
6.             Using db As IDbConnection = New OleDbConnection(MdlMain.ConnStr) 'สร้างการเชื่อมต่อโดยใช้ Using
   
7. 
   
8.                 db.Open() 'เปิดการเชิ่อมต่อฐานข้อมูล
   
9. 
   
10.                 ' คำสั่ง SQL
    
11.                 Dim sql = @"DELETE FROM tblEmployee WHERE Emp_ID = {Get_EmpID} "
    
12.                 db.Execute(sql, commandType:=CommandType.Text) 'คำสั่ง Execute ฐานข้อมูลโดยใช้ sql, กำหนดประเภทคำสั่งเป็น Text
    
13. 
    
14.             End Using
    
15. 
    
16.         Catch ex As Exception
    
17. 
    
18.             MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
19. 
    
20.         End Try
    
21. 
    
22.     End Sub

คัดลอกไปที่คลิปบอร์ด

สำหรับท่านที่สนใจสามารถดาวน์โหลดตัวอย่างโปรแกรมได้ที่นี่



ฺBest regards
puklit