Sub Class_Globals
Public Nom As String
Public ID As Int
Public abbrv As String
Public ann As Int
Public titre As String
Public fil As Filiere
Public nivo_etu As String
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(id_ As Int, Nom_ As String, abbrv_ As String, id_fil As Int, titl As String, ann_ As Int, nivo_etu_ As String)
ID = id_
Nom = Nom_
abbrv = abbrv_
ann = ann_
fil = GetFiliere(id_fil)
titre = titl
nivo_etu = nivo_etu_
End Sub
Public Sub Creer()
Dim objArray As String = "INSERT INTO niveau VALUES(Null, '" & Nom.Replace("'", "\'") & "', '" & abbrv.Replace("'", "\'") & "', '" & fil.ID & "', '" & titre & "', '" & ann & "', '" & nivo_etu & "')"
DBAccess.Miseajour(objArray)
End Sub
Public Sub GetFiliere(IDF As Int) As Filiere
Dim str As String = ("SELECT * FROM filiere WHERE id_filiere='"& IDF &"'")
Dim fill As Filiere
Dim Rsa As ResultSet = DBAccess.SelectMoi(str)
Do While Rsa.NextRow
fill.Initialize(Rsa.GetInt("id_filiere"),Rsa.GetString("nom"),Rsa.GetString("abbrev"))
Loop
Rsa.Close
Return fill
End Sub
Public Sub Modifier()
Dim objArray As String = "UPDATE niveau SET Nom='" & Nom.Replace("'", "\'") & "', abbrev='" & abbrv.Replace("'", "\'") & "', annee_etud='"& ann & "', filiere_id_filiere='" & fil.ID & "', titre='" & titre & "', nivo_etud='" & nivo_etu & "' WHERE id_niveau='" & ID & "'"
DBAccess.Miseajour(objArray)
End Sub
Public Sub Supprimer()
DBAccess.Miseajour("DELETE FROM niveau WHERE id_niveau='" & ID & "'")
End Sub