Imports System.Data.SqlClient

Public Class DaoCSDL

    'Lớp kết nối với cơ sở dữ liệu. Thực hiện thao tác với dữ liệu.

    Dim cn As SqlConnection

    Dim cmd As SqlCommand

    Protected Function KetNoiDuLieu() As SqlConnection

        Dim strCn As String

        Try

            strCn = "Data Source=.;Initial Catalog=QuanLyHocSinh;Integrated Security=True"

            cn = New SqlConnection(strCn)

            If cn.State = Data.ConnectionState.Closed Then

                cn.Open()

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        Return cn

    End Function

    'Lấy dữ liệu từ bảng

    Public Function LayBang(ByVal strSQL As String) As DataTable

        Dim dt As New DataTable

        Try

            cn = KetNoiDuLieu()

            Dim da As SqlDataAdapter

            da = New SqlDataAdapter(strSQL, cn)

            da.Fill(dt)

        Catch ex As Exception

            MsgBox(ex.Message)

        Finally

            cn.Close()

            cn.Dispose()

        End Try

        Return dt

    End Function

    'Cập nhật sử dụng phương thức ExecuteNonQuery của đối tượng SqlCommand

    'Danh sách các tham số của đối tượng SqlParameter chứa trong pList

    Public Sub CapNhatBang(ByVal strSQL As String, ByVal pList() As SqlParameter)

        Try

            cn = KetNoiDuLieu()

            cmd = New SqlCommand(strSQL, cn)

            Dim p As SqlParameter

            For Each p In pList

                cmd.Parameters.Add(p)

            Next

            cmd.ExecuteNonQuery()

        Catch ex As Exception

            MsgBox(ex.Message)

        Finally

            cn.Close()

            cn.Dispose()

            cmd.Dispose()

        End Try

    End Sub

End Class