clsRuang - cekKodeRuang

    Public Function cekKodeRuang()
        db.koneksi()
        query = "SELECT * FROM ruang WHERE id_ruang IN(SELECT MAX(id_ruang) FROM ruang)"
        cmd = New SqlCommand(query, db.konek)
        Dim er = cmd.ExecuteReader
        er.Read()

        If Not er.HasRows Then
            Dim kd_ruang = "RNG" + "01"
            Return kd_ruang
            db.konek.Close()
        Else
            Dim cek = Microsoft.VisualBasic.Right(er.GetString(2), 2) + 1
            Dim kd_ruang = "RNG" + Microsoft.VisualBasic.Right("000" & cek, 2)
            Return kd_ruang
            db.konek.Close()
        End If
    End Function