- [SQLSERVER] Loại bỏ Restricted User trên database MSSQL
- [C#] Hướng dẫn tạo mã QRcode Style trên winform
- [C#] Hướng dẫn sử dụng temp mail service api trên winform
- [C#] Hướng dẫn tạo mã thanh toán VietQR Pay không sử dụng API trên winform
- [C#] Hướng Dẫn Tạo Windows Service Đơn Giản Bằng Topshelf
- [C#] Chia sẻ source code đọc dữ liệu từ Google Sheet trên winform
- [C#] Chia sẻ source code tạo mã QR MOMO đa năng Winform
- [C#] Chia sẻ source code phần mềm lên lịch tự động chạy ứng dụng Scheduler Task Winform
- [Phần mềm] Tải và cài đặt phần mềm Sublime Text 4180 full version
- [C#] Hướng dẫn download file từ Minio Server Winform
- [C#] Hướng dẫn đăng nhập zalo login sử dụng API v4 trên winform
- [SOFTWARE] Phần mềm gởi tin nhắn Zalo Marketing Pro giá rẻ mềm nhất thị trường
- [C#] Việt hóa Text Button trên MessageBox Dialog Winform
- [DEVEXPRESS] Chia sẻ code các tạo report in nhiều hóa đơn trên XtraReport C#
- [POWER AUTOMATE] Hướng dẫn gởi tin nhắn zalo từ file Excel - No code
- [C#] Chia sẻ code lock và unlock user trong domain Window
- [DEVEXPRESS] Vẽ Biểu Đồ Stock Chứng Khoán - Công Cụ Thiết Yếu Cho Nhà Đầu Tư trên Winform
- [C#] Hướng dẫn bảo mật ứng dụng 2FA (Multi-factor Authentication) trên Winform
- [C#] Hướng dẫn convert HTML code sang PDF File trên NetCore 7 Winform
- [C#] Hướng dẫn viết ứng dụng chat với Gemini AI Google Winform
Backup Data SQL to XML
Bài viết này mình sẽ hướng dẫn cách sao lưu dữ liệu từng bảng trong cơ sở dữ liệu SQL Server thành file XML. Bạn thiết kế form theo mẫu sau:
- Trước tiên bạn viết thủ tục kết nối đến data master để lấy tất cả các cơ sở dữ liệu.
Private Sub btn_ketnoi_Click(sender As Object, e As EventArgs) Handles btn_ketnoi.Click
Dim ds As New DataSet
ds = loaddulieu()
cob_database.DataSource = ds.Tables(0)
cob_database.DisplayMember = "name"
cob_database.ValueMember = "name"
End Sub
- Thủ tục trên load tất cả các cơ sở dữ liệu vào combobox, trong bài viết này mình tạm gọi là "cob_database". Tiếp theo bạn viết hàm load tất cả các bảng có trong cơ sở dữ liệu mà được chọn.
Private Sub cob_database_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cob_database.SelectedIndexChanged
Try
Dim ds As New DataSet
ds = load_table("SELECT table_name FROM information_schema.tables")
cob_table.DataSource = ds.Tables(0)
cob_table.DisplayMember = "table_name"
cob_table.ValueMember = "table_name"
Catch ex As Exception
End Try
End Sub
- Tại nút "Xuất XML" bạn viết hàm đơn giản sau:
Private Sub btn_xuatxml_Click(sender As Object, e As EventArgs) Handles btn_xuatxml.Click
SaveFileDialog1.Filter = "tên file|*.xml"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim ds As New DataSet
ds = load_table("SELECT * FROM " & cob_table.Text)
ds.WriteXml(SaveFileDialog1.FileName)
End If
End Sub
Xong rồi đấy nhấn F5 xem thử nhé. Chúc các bác thành công :v