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
| Imports System.Data.OleDb
Public Class Form1
Dim Cnx As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\loic\Documents\facture.accdb")
Dim Da As New OleDbDataAdapter("select * from Client", Cnx)
Dim Ds As New DataSet
Dim Bnd As BindingManagerBase
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Da.Fill(Ds, "Client")
Bnd = BindingContext(Ds.Tables("Client"))
TextBox1.DataBindings.Add("Text", Ds.Tables("Client"), "N°")
TextBox2.DataBindings.Add("Text", Ds.Tables("Client"), "Nom")
TextBox3.DataBindings.Add("Text", Ds.Tables("Client"), "Prénom")
TextBox4.DataBindings.Add("Text", Ds.Tables("Client"), "Téléphone personnel")
TextBox5.DataBindings.Add("Text", Ds.Tables("Client"), "Téléphone mobile")
TextBox6.DataBindings.Add("Text", Ds.Tables("Client"), "Adresse")
TextBox7.DataBindings.Add("Text", Ds.Tables("Client"), "Ville")
TextBox8.DataBindings.Add("Text", Ds.Tables("Client"), "Code postal")
End Sub
Private Sub BtnPrécédent_Click(sender As Object, e As EventArgs) Handles BtnPrécédent.Click
Bnd.Position -= 1
LblEnregistrement.Text = Bnd.Position & " sur " & Ds.Tables("Client").Rows.Count
End Sub
Private Sub BtnSuivant_Click(sender As Object, e As EventArgs) Handles BtnSuivant.Click
Bnd.Position += 1
End Sub
Private Sub BtnDébut_Click(sender As Object, e As EventArgs) Handles BtnDébut.Click
Bnd.Position = 0
End Sub
Private Sub BtnFin_Click(sender As Object, e As EventArgs) Handles BtnFin.Click
Bnd.Position = Ds.Tables("Client").Rows.Count
End Sub
Private Sub Nouveau_Click(sender As Object, e As EventArgs) Handles Nouveau.Click
Bnd.AddNew()
End Sub
Private Sub Supprimer_Click(sender As Object, e As EventArgs) Handles Supprimer.Click
Bnd.RemoveAt(Bnd.Position)
Da.Update(Ds, "Client")
End Sub
Private Sub Modifier_Click(sender As Object, e As EventArgs) Handles Modifier.Click
Bnd.EndCurrentEdit()
Da.Update(Ds, "Client")
End Sub
Private Sub Ajouter_Click(sender As Object, e As EventArgs) Handles Ajouter.Click
' On Error Resume Next
Dim FAjouter As New OleDbCommandBuilder(Da)
Bnd.EndCurrentEdit()
Da.Update(Ds, "Client")
End Sub
End Class |
