1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124
| Private Sub btSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSave.Click
If o_Proprietaire Is Nothing Then
'demander au SI d'ajouter une catégorie
o_Proprietaire = o_si.AjouterProprietaire(txtNom.Text, txtPrenom.Text, txtAdr.Text, txtMail.Text, txtTel.Text, txtMDP.Text, txtRemark.Text)
If o_Proprietaire IsNot Nothing Then
Me.Visible = False
End If
End If
'demander au SI de modifier
If o_si.ModifierProprietaire(o_Proprietaire, txtNom.Text, txtPrenom.Text, txtAdr.Text, _
txtTel.Text, txtMail.Text, txtMDP.Text, txtRemark.Text) Then
Me.Visible = False
End If
End Sub
Public Function AjouterProprietaire(ByVal TheNom As String, ByVal ThePrenom As String, ByVal TheAdr As String, _
ByVal TheMail As String, ByVal TheTel As String, ByVal TheMDP As String, ByVal TheRemark As String) As Proprietaire
Dim TRANS As OleDb.OleDbTransaction = Nothing
Dim NouveauProprio As Proprietaire
Dim TheId As String = GenerateProId()
'
Try
Dim o_cnx As New OleDb.OleDbConnection
o_cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Elissa\Desktop\Location\Location.mdb"
o_SQLInsertPro = New OleDb.OleDbCommand()
o_SQLInsertPro.Connection = o_cnx
o_SQLInsertPro.Connection.Open()
'--- Début de transaction
TRANS = o_SQLInsertPro.Connection.BeginTransaction
'--- La commande doit travailller sous la transaction
o_SQLInsertPro.Transaction = TRANS
'--- Donner les valeurs des paramètres
'INSERT INTO PROPRIETAIRE
'(PRO_NOM, PRO_PRENOM, PRO_COORD, PRO_TEL, PRO_MAIL, PRO_MDP, PRO_REMARK, PRO_ID)
'VALUES (?, ?, ?, ?, ?, ?, ?, ?)
o_SQLInsertPro.Parameters.Item(0).Value = TheNom
o_SQLInsertPro.Parameters.Item(1).Value = ThePrenom
o_SQLInsertPro.Parameters.Item(2).Value = TheAdr
o_SQLInsertPro.Parameters.Item(3).Value = TheMail
o_SQLInsertPro.Parameters.Item(4).Value = TheMDP
o_SQLInsertPro.Parameters.Item(4).Value = TheRemark
o_SQLInsertPro.Parameters.Item(4).Value = TheId
Dim Nb As Integer = o_SQLInsertPro.ExecuteNonQuery
If Nb = 1 Then
TRANS.Commit()
'--- Ajout dans le monde objet
NouveauProprio = New Proprietaire(TheId, TheNom, ThePrenom, TheAdr, TheTel, TheMail, TheMDP, TheRemark)
o_ListProprietaire.Ajouter(NouveauProprio)
Return NouveauProprio
Else : TRANS.Rollback()
End If
Catch ex As Exception
If TRANS IsNot Nothing Then
TRANS.Rollback()
End If
End Try
Return Nothing
End Function
Public Function ModifierProprietaire(ByVal TheProprietaire As Proprietaire, _
ByVal TheNewNom As String, _
ByVal TheNewPrenom As String, _
ByVal TheNewAdr As String, _
ByVal TheNewTel As String, _
ByVal TheNewMail As String, _
ByVal TheNewMDP As String, _
ByVal TheNewRemark As String) As Boolean
Dim TRANS As OleDb.OleDbTransaction = Nothing
Dim Aretourner As Boolean = Nothing
Try
Dim o_cnx As New OleDb.OleDbConnection
o_cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Elissa\Desktop\Location\Location.mdb"
o_SQLUpdatePro = New OleDb.OleDbCommand()
o_SQLUpdatePro.Connection = o_cnx
o_SQLUpdatePro.Connection.Open()
'--- Début de la transaction
TRANS = o_SQLUpdatePro.Connection.BeginTransaction
'--- La commande doit travailler sous la transaction
o_SQLUpdatePro.Transaction = TRANS
'--- Donner les valeurs des paramètres
'UPDATE(Proprietaire)
'SET PRO_NOM = ?, PRO_PRENOM=?, PRO_COORD=?, PRO_TEL=?, PRO_MAIL=?, PRO_MDP=?, PRO_REMARK=?
'WHERE (PRO_ID = ?)
o_SQLUpdatePro.Parameters.Item(0).Value = TheNewNom
o_SQLUpdatePro.Parameters.Item(1).Value = TheNewPrenom
o_SQLUpdatePro.Parameters.Item(2).Value = TheNewAdr
o_SQLUpdatePro.Parameters.Item(3).Value = TheNewTel
o_SQLUpdatePro.Parameters.Item(4).Value = TheNewMail
o_SQLUpdatePro.Parameters.Item(5).Value = TheNewMDP
o_SQLUpdatePro.Parameters.Item(6).Value = TheNewRemark
o_SQLUpdatePro.Parameters.Item(7).Value = TheProprietaire.Id
Dim nb As Integer = o_SQLUpdatePro.ExecuteNonQuery
If nb = 1 Then
TRANS.Commit()
'Modif dans le monde objet
TheProprietaire.Nom = TheNewNom
TheProprietaire.Prenom = TheNewPrenom
TheProprietaire.Coord = TheNewAdr
TheProprietaire.Mail = TheNewMail
TheProprietaire.Telephone = TheNewTel
TheProprietaire.MDP = TheNewMDP
TheProprietaire.Remarques = TheNewRemark
Aretourner = True
Else
TRANS.Rollback()
End If
Catch ex As Exception
If TRANS IsNot Nothing Then
TRANS.Rollback()
End If
End Try
Return Aretourner
End Function |
Partager