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
|
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim CM As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.dtACategories.Fill(DsNwind1.Catégories)
Me.dtAClients.Fill(Me.DsNwind1.Clients)
Me.dtAEmployes.Fill(Me.DsNwind1.Employés)
Me.dtAFournisseurs.Fill(Me.DsNwind1.Fournisseurs)
Me.dtAMessagers.Fill(Me.DsNwind1.Messagers)
Me.dtAProduits.Fill(Me.DsNwind1.Produits)
Me.dtACommandes.Fill(Me.DsNwind1.Commandes)
Me.dtADetailsCommandes.Fill(Me.DsNwind1.Détailscommandes)
Me.dtvMessagers = Me.DsNwind1.Messagers.DefaultView
Me.TxtID.DataBindings.Add("text", Me.dtvMessagers, "N° messager")
Me.TxtAuteur.DataBindings.Add("text", Me.dtvMessagers, "Nom du messager")
Me.TxtYear.DataBindings.Add("text", Me.dtvMessagers, "Téléphone")
CM = CType(Me.BindingContext(Me.dtvMessagers), CurrencyManager)
End Sub
Private Sub CmdFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdFirst.Click
CM.position = 0
End Sub
Private Sub CmdLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdLast.Click
CM.position = CM.Count - 1
End Sub
Private Sub CmdNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdNext.Click
If CM.Position < CM.Count - 1 Then CM.Position += 1
Me.Label4.Text = CM.Position + 1 & "/" & CM.Count & "Enregestrements"
End Sub
Private Sub CmdPrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdPrevious.Click
If CM.Position > 0 Then CM.Position -= 1
End Sub
End Class |
Partager