Neh NAY

    Sub GetCountSakit()
        Call Koneksi()
        Dim QueryOne As String = "SELECT COUNT(keterangan) AS sakit FROM tbl_kehadiran WHERE keterangan = 'Sakit' AND nama_karyawan =" & TextBox1.Text & ""
        ' tbl_kehariran Menyesuaikan dengan nama table, nama_karyawan menyesuaikan dengan primary key dari tbl_kehadiran Dan TextBox1.Text Pun Menyesuaikan dengan tbl yang berisi id dari table karyawan'
        cmd = New OdbcCommand(QueryOne, conn)
        rd = cmd.ExecuteReader()
        rd.Read()
        If Not rd.HasRows Then
            MsgBox("ERROR 404")
        Else
            KeteranganSakit.Text = rd.Item("sakit") ' KeteranganIzin.Text Menesuaikan Dengan textbox
        End If
    End Sub
    Sub GetCountIzin()
        Call Koneksi()
        Dim QueryOne As String = "SELECT COUNT(keterangan) AS izin FROM tbl_kehadiran WHERE keterangan = 'Izin' AND nama_karyawan =" & TextBox1.Text & ""
        ' tbl_kehariran Menyesuaikan dengan nama table, nama_karyawan menyesuaikan dengan primary key dari tbl_kehadiran Dan TextBox1.Text Pun Menyesuaikan dengan tbl yang berisi id dari table karyawan'
        cmd = New OdbcCommand(QueryOne, conn)
        rd = cmd.ExecuteReader()
        rd.Read()
        If Not rd.HasRows Then
            MsgBox("ERROR 404")
        Else
            KeteranganIzin.Text = rd.Item("izin") ' KeteranganIzin.Text Menesuaikan Dengan textbox
        End If
    End Sub
    Sub GetCountTanpaKet()
        Call Koneksi()
        Dim QueryOne As String = "SELECT COUNT(keterangan) AS tanpaket FROM tbl_kehadiran WHERE keterangan = 'Tanpa Keterangan' AND nama_karyawan =" & TextBox1.Text & ""
        ' tbl_kehariran Menyesuaikan dengan nama table, nama_karyawan menyesuaikan dengan primary key dari tbl_kehadiran Dan TextBox1.Text Pun Menyesuaikan dengan tbl yang berisi id dari table karyawan'
        cmd = New OdbcCommand(QueryOne, conn)
        rd = cmd.ExecuteReader()
        rd.Read()
        If Not rd.HasRows Then
            MsgBox("ERROR 404")
        Else
            KeteranganTanpa.Text = rd.Item("tanpaket") ' KeteranganIzin.Text Menesuaikan Dengan textbox
        End If
    End Sub