Imports System
Imports System.Data
Imports System.Data.OleDb



Public Class Modpass
Dim con As New OleDb.OleDbConnection
Dim Place_Enregistrement As Integer
Dim ds As New DataSet
Dim Val_ID_Table As Integer
Dim Max_Enregistrements As Integer
Private Sub quitter_Click(sender As System.Object, e As System.EventArgs) Handles quitter.Click
Me.Close()
End Sub


Private Sub Modpass_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'TODO: cette ligne de code charge les données dans la table 'DbDataSet.TableObjet'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.TableObjetTableAdapter.Fill(Me.DbDataSet.TableObjet)
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data source=db.accdb;"
Connexion()
Me.TxtLog.Text = user
End Sub

Private Sub Connexion()


Dim cmd As OleDb.OleDbCommand

Dim sql_tout_afficher As String
sql_tout_afficher = "SELECT * FROM TableObjet"


cmd = New OleDb.OleDbCommand(sql_tout_afficher, con)


cmd.Connection.Open()



Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter

da.SelectCommand = cmd

da.Fill(ds, "Liste_TableObjet")


cmd.Connection.Close()


Max_Enregistrements = ds.Tables("Liste_TableObjet").Rows.Count


If Max_Enregistrements = 0 Then
Modifier.Enabled = False


TxtPA.Text = ""

Else


Place_Enregistrement = 0

Navigation()
End If

End Sub
Private Sub Navigation()


Val_ID_Table = ds.Tables("Liste_TableObjet").Rows(Place_Enregistrement).Item(0)

'TxtLog.Text = ds.Tables("Liste_TableObjet").Rows(Place_Enregistrement).Item(1)
TxtPA.Text = ds.Tables("Liste_TableObjet").Rows(Place_Enregistrement).Item(3)

End Sub

Private Sub Modifier_Click(sender As System.Object, e As System.EventArgs) Handles Modifier.Click

Dim cmd As OleDb.OleDbCommand

Dim sql_modifier As String


sql_modifier = "UPDATE TableObjet SET MPasse=Val_modifier_MPasse where ID_Table=" & Val_ID_Table & ""


cmd = New OleDb.OleDbCommand(sql_modifier, con)


cmd.Parameters.AddWithValue("Val_modifier_MPasse", TxtPA.Text)


cmd.Connection.Open()

cmd.ExecuteReader()

cmd.Connection.Close()


MsgBox("Votre mot de passe a bien été modifié.")


ds.Clear()


Connexion()
End Sub



End Class