Cour du base

Private Sub Chargement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chargement.Click
        SqlDataAdapter1.Fill(DataSet11, "Categories")

        Chargement.Enabled = False
        position()

End Sub

    Private Sub Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quitter.Click

        End

End Sub
   
Private Sub Ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ajouter.Click

        Me.BindingContext(DataSet11, "Categories").EndCurrentEdit()
        MsgBox("Ajout Terminer avec succes", MsgBoxStyle.Information, "Ajouter")
        position()

    End Sub

    Private Sub Supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Supprimer.Click

        If (Me.BindingContext(DataSet11, "Categories").Count > 0) Then
            If MsgBox("Êtes-vous Sûr de Supprimer ", MsgBoxStyle.YesNo, "Suppression") = MsgBoxResult.Yes Then
                Me.BindingContext(DataSet11, "Categories").RemoveAt(Me.BindingContext(DataSet11, "Categories").Position)
                position()
            End If
        End If

    End Sub

    Private Sub Annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler.Click

        Me.BindingContext(DataSet11, "Categories").CancelCurrentEdit()
        position()

    End Sub

    Private Sub Annuler_tout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler_tout.Click

        Me.DataSet11.RejectChanges()
        position()

    End Sub

    Private Sub Attiend_Enregistrement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Attiend_Enregistrement.Click

        If Val(TextBox4.Text) <= 0 Or Val(TextBox4.Text) > Me.BindingContext(DataSet11, "Categories").Count Then
            MsgBox("Pas d'enregistrement ", MsgBoxStyle.Information, "information")
            TextBox4.SelectionStart = 0
            TextBox4.SelectionLength = Len(TextBox4.Text)
            TextBox4.Focus()
        Else
            Me.BindingContext(DataSet11, "Categories").Position = Val(TextBox4.Text) - 1
            position()
        End If

    End Sub

    Private Sub Premier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Premier.Click

        Me.BindingContext(DataSet11, "Categories").Position = 0
        position()

End Sub

    Private Sub Dernier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dernier.Click

        Me.BindingContext(DataSet11, "Categories").Position = (Me.DataSet11.Tables("Categories").Rows.Count - 1)
        position()
    End Sub

    Private Sub Precedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Precedent.Click

        Me.BindingContext(DataSet11, "Categories").Position = (Me.BindingContext(DataSet11, "Categories").Position - 1)
        position()

  End Sub

    Private Sub Suivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Suivant.Click

        Me.BindingContext(DataSet11, "Categories").Position = (Me.BindingContext(DataSet11, "Categories").Position + 1)
        position()

    End Sub

    Private Sub Nouveau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau.Click

        Me.BindingContext(DataSet11, "Categories").AddNew()
        TextBox2.Focus()
        position()

    End Sub

    Private Sub Mettre_à_jour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mettre_à_jour.Click

        SqlDataAdapter1.Update(DataSet11, "Categories")
        Me.DataSet11.AcceptChanges()
        MsgBox("Mettre à jour Terminer avec succes", MsgBoxStyle.Information, "Sauvegarde")
        position()

    End Sub

    Private Sub TextBox4_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.Validated

        If IsNumeric(TextBox4.Text) = False Then
            MsgBox("Valeur d'enregistrement Rechercher incorrect ", MsgBoxStyle.Exclamation, "information")
            TextBox4.SelectionStart = 0
            TextBox4.SelectionLength = Len(TextBox4.Text)
            TextBox4.Focus()
        End If

    End Sub

Sub position()

        Me.TextBox4.Text = (((Me.BindingContext(DataSet11, "categories").Position + 1)).ToString + " Sur " + ((Me.BindingContext(DataSet11, "categories").Count).ToString))

End Sub