- [DEVEXPRESS] Hướng dẫn bật tính năng Scroll Pixcel in Touch trên GridView
- [DEVEXPRESS] Hướng dẫn sử dụng TileBar viết ứng dụng duyệt hình ảnh Winform
- [DEVEXPRESS] Tô màu border TextEdit trên Winform
- [C#] Lấy dữ liệu từ Console Write hiển thị lên textbox Winform
- [C#] Hiển thị Progress bar trên Window Console
- [C#] Di chuyển control Runtime và lưu layout trên winform
- [SQLSERVER] Sử dụng hàm NULL IF
- [C#] Chia sẽ source code mã đi tuần bằng giao diện Winform
- [C#] Flash Window in Taskbar Winform
- Download và Giải nén tập tin File sử dụng Powershell
- [C#] Hướng dẫn cách lấy thông tin đăng nhập tài khoản và mật khẩu web browser trên windows
- [VB.NET] CRUD Thêm xóa sửa tìm kiếm Realtime FireBase
- [C#] Hiển thị thông báo Toast Message trong lập trình Winform
- [C#] Cấu hình định dạng ngày tháng, thời gian trên Windows cho ứng dụng Winform
- [C#] Rút gọn đường dẫn link url với TinyURL API
- [C#] Hướng dẫn cách bo tròn winform with Radius
- [C#] Chia sẽ class BackGroundOverlay Show Modal cho Winform
- [C#] Hướng dẫn Flip Image Winform
- [C#] Invoke là gì? cách sử dụng phương thức Invoke()
- [C#] Hướng dẫn chia sẽ file, folder từ ứng dụng sang Zalo Chat
Kết nối (thêm, xóa, sửa, tìm kiếm) Linq to Microsoft Sqlserver
Hôm nay, mình xin hướng dẫn các bạn viết một ưng dụng thêm, xóa, sửa, tìm kiếm sử dụng Linq to Sql server trên ngôn ngữ VB.NET. Có giao diện như hình bên dưới:
+ Đầu tiên: ta tạo database sinhvien với tên table tbl_sinhvien, gồm các field: masv, tensv, khoa như hình dưới:
Tiếp đến, mình cần tạo một class Linq to Sql và đặt tên là data.dbml
- Từ bên trái Server Explorer, ta tạo một dataset để kết nối với cơ sở dữ liệu sinh viên.
- Sau đó, ta mở class Data.dbml lên, và từ bên trái Server Explorer, ta kéo bảng tbl_sinhvien mà chúng ta cần thao tác lên class Data.dbml.
- Bây giờ ta mở class form1 ra và bắt đầu code:
- Để insert ta sử dụng lệnh InsertOnSubmit()
- Để xóa ta sử dụng lệnh DeleteOnSubmit()
- sử dụng phương thức SubmitChanges() để thực hiện thay đổi dữ liệu.
Lưu ý: khi ta khai báo biến db as DataDataContext, trong chữ Data đầu tiên trong Datadatacontext chính là tên class linq to sql mà các bạn đặt.
+ Đầu tiên, ta cần import thư viện linq vào sử dụng
Imports System.Data.Linq
- Tiếp đến, ta khai báo một đối tượng tb as tbl_sinhvien
Dim tb As tbl_sinhvien = New tbl_sinhvien
- Tiếp đến ta bắt đầu viết sự kiện cho có nút: lưu, sửa, xóa và tìm kiếm.
- Sự kiện khi bấm vào nút lưu:
Private Sub btn_luu_Click(sender As Object, e As EventArgs) Handles btn_luu.Click
Dim db As DataDataContext = New DataDataContext()
Dim tb = New tbl_sinhvien
tb.MASV = txt_masv.Text
tb.TENSV = txt_tensv.Text
tb.KHOA = txt_khoa.Text
db.tbl_sinhviens.InsertOnSubmit(tb)
db.SubmitChanges()
Form1_Load(sender, e)
End Sub
- Tiếp đến ta viết sự kiện cho nút sửa:
Private Sub btn_sua_Click(sender As Object, e As EventArgs) Handles btn_sua.Click
Dim db As DataDataContext = New DataDataContext()
tb = (From s In db.tbl_sinhviens Where s.MASV = txt_masv.Text Select s).Single()
tb.TENSV = txt_tensv.Text
tb.KHOA = txt_khoa.Text
db.SubmitChanges()
Form1_Load(Nothing, Nothing)
End Sub
- Sự kiện khi click vào nút xóa:
Private Sub btn_xoa_Click(sender As Object, e As EventArgs) Handles btn_xoa.Click
Dim db As DataDataContext = New DataDataContext()
tb = (From s In db.tbl_sinhviens Where s.MASV = txt_masv.Text Select s).Single()
db.tbl_sinhviens.DeleteOnSubmit(tb)
db.SubmitChanges()
Form1_Load(Nothing, Nothing)
End Sub
- Sự kiện khi gõ text vào ô tìm kiến:
Private Sub txt_timkiem_KeyUp(sender As Object, e As KeyEventArgs) Handles txt_timkiem.KeyUp
Dim db As DataDataContext = New DataDataContext()
Dim Lst = (From s In db.tbl_sinhviens Select s Where s.MASV.Contains(txt_timkiem.Text)).ToList
Dg_sinhvien.DataSource = Lst
txt_masv.DataBindings.Clear()
txt_tensv.DataBindings.Clear()
txt_khoa.DataBindings.Clear()
txt_masv.DataBindings.Add("text", Lst, "masv")
txt_tensv.DataBindings.Add("text", Lst, "tensv")
txt_khoa.DataBindings.Add("text", Lst, "khoa")
End Sub
Và cuối cùng, là sự kiện form_load để load database vào data gridview
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim db As DataDataContext = New DataDataContext()
Dim Lst = (From s In db.tbl_sinhviens Select s Order By s.MASV Descending).ToList
Dg_sinhvien.DataSource = Lst
txt_masv.DataBindings.Clear()
txt_tensv.DataBindings.Clear()
txt_khoa.DataBindings.Clear()
txt_masv.DataBindings.Add("text", Lst, "masv")
txt_tensv.DataBindings.Add("text", Lst, "tensv")
txt_khoa.DataBindings.Add("text", Lst, "khoa")
End Sub
Chúc các bạn thành công!
Download project Linq to SQL sử dụng VB.NET