clsRuang - tambah()

    Public Sub tambah(nama_ruang As String, kode_ruang As String, keterangan As String)
        db.koneksi()
        query = "INSERT INTO ruang (nama_ruang, kode_ruang, keterangan) VALUES (@nm_ruang, @kd_ruang, @ket)"
        cmd = New SqlCommand(query, db.konek)

        cmd.Parameters.Add("@nm_ruang", SqlDbType.VarChar).Value = nama_ruang
        cmd.Parameters.Add("@kd_ruang", SqlDbType.VarChar).Value = kode_ruang
        cmd.Parameters.Add("@ket", SqlDbType.VarChar).Value = keterangan

        Try
            cmd.ExecuteNonQuery()
            MsgBox("Data ruangan berhasil ditambah", vbInformation, "")
            tampil()
            db.konek.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub