Imports System.Data

Imports System.Data.SqlClient

Public Class DaoHocSinh

    Inherits DaoCSDL

    'Xây dựng các câu SQL tương ứng với yêu cầu nghiệp vụ

    Public Function LayBangHocSinh(ByVal strYC As String, ByVal tenCot As String) As DataTable

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

        Dim strSQL As String

        If strYC = "all" Then 'lấy tất cả bảng HocSinh

            strSQL = "Select * from HocSinh"

        Else  'lấy dữ liệu 1 học sinh theo mã số

            strSQL = "Select * from HocSinh where " + tenCot + " Like '" + strYC.Trim + "%'"

        End If

        Return LayBang(strSQL)

    End Function

    Public Sub Sua(ByVal sp() As Object)

        'Sửa thông tin học sinh

        Dim strSQL As String

        strSQL = "Update HocSinh Set HoHS = @HoHS, TenHS = @TenHS,"

        strSQL += "NgaySinh = @NgaySinh, DienThoai = @DienThoai, DiaChi = @DiaChi"

        strSQL += " Where MaHS = @MaHS"

        'Lưu ý thứ tự các tham số trong câu SQL

        Dim p(5) As SqlParameter

        p(0) = New SqlParameter("@HoHS", sp(1))

        p(1) = New SqlParameter("@TenHS", sp(2))

        p(2) = New SqlParameter("@NgaySinh", sp(3))

        p(3) = New SqlParameter("@DienThoai", sp(4))

        p(4) = New SqlParameter("@DiaChi", sp(5))

        p(5) = New SqlParameter("@MaHS", sp(0))

        CapNhatBang(strSQL, p)

    End Sub

End Class