clsRuang - ubah()

    Public Function ubah(nm_ruang As String, keterangan As String, id As Integer)
        db.koneksi()
        query = "UPDATE ruang SET nama_ruang = @nr, keterangan = @ket WHERE id_ruang = @id"
        cmd = New SqlCommand(query, db.konek)

        cmd.Parameters.Add("@nr", SqlDbType.VarChar).Value = nm_ruang
        cmd.Parameters.Add("@ket", SqlDbType.VarChar).Value = keterangan
        cmd.Parameters.Add("@id", SqlDbType.Int).Value = id

        If cmd.ExecuteNonQuery Then
            Return True
        Else
            Return False
        End If
    End Function