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
| Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO*: cette ligne de code charge les données dans la table 'My_BaseDataSet.Client'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.ClientTableAdapter.Fill(Me.My_BaseDataSet.Client)
TextBox3.Text = Me.BindingContext(My_BaseDataSet, "client").Position + 1 & "/" & Me.BindingContext(My_BaseDataSet, "client").Count
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BindingContext(My_BaseDataSet, "client").Position = 0
TextBox3.Text = Me.BindingContext(My_BaseDataSet, "client").Position + 1 & "/" & Me.BindingContext(My_BaseDataSet, "client").Count
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BindingContext(My_BaseDataSet, "client").Position -= 1
TextBox3.Text = Me.BindingContext(My_BaseDataSet, "client").Position + 1 & "/" & Me.BindingContext(My_BaseDataSet, "client").Count
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BindingContext(My_BaseDataSet, "client").Position += 1
TextBox3.Text = Me.BindingContext(My_BaseDataSet, "client").Position + 1 & "/" & Me.BindingContext(My_BaseDataSet, "client").Count
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BindingContext(My_BaseDataSet, "client").Position = Me.BindingContext(My_BaseDataSet, "client").Count
TextBox3.Text = Me.BindingContext(My_BaseDataSet, "client").Position + 1 & "/" & Me.BindingContext(My_BaseDataSet, "client").Count
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Modifier.Click
Dim MyConnexion As New SqlConnection("Data Source=ZACK-SONY-VAIO\SQLEXPRESS;Initial Catalog=My Base;Integrated Security=True")
MyConnexion.Open()
Dim Cmd As New SqlCommand
Cmd.CommandText = "Update client Set nomclt=" & TextBox2.Text & ",villeclt=" & TextBox4.Text & ",télclt=" & TextBox5.Text & "where numclt=" & TextBox1.Text
Cmd.Connection = MyConnexion
Cmd.ExecuteNonQuery()
MyConnexion.Close()
Me.ClientTableAdapter.Fill(Me.My_BaseDataSet.Client)
MessageBox.Show("Modification OK", "Information By ZACK", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ajouter.Click
Dim MyConnexion As New SqlConnection("Data Source=ZACK-SONY-VAIO\SQLEXPRESS;Initial Catalog=My Base;Integrated Security=True")
MyConnexion.Open()
Dim Cmd As New SqlCommand
Cmd.CommandText = "insert into client values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ")"
Cmd.Connection = MyConnexion
Cmd.ExecuteNonQuery()
MyConnexion.Close()
Me.ClientTableAdapter.Fill(Me.My_BaseDataSet.Client)
MessageBox.Show("Ajout Réussi", "Information By Zack", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quitter.Click
Me.Close()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau.Click
TextBox1.ResetText()
TextBox2.ResetText()
TextBox3.ResetText()
TextBox4.ResetText()
TextBox5.ResetText()
End Sub
Private Sub Supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Supprimer.Click
Dim MyConnexion As New SqlConnection("Data Source=ZACK-SONY-VAIO\SQLEXPRESS;Initial Catalog=My Base;Integrated Security=True")
MyConnexion.Open()
Dim Cmd As New SqlCommand
Cmd.CommandText = "delete from client where Numclt=" & TextBox1.Text
Cmd.Connection = MyConnexion
Cmd.ExecuteNonQuery()
MyConnexion.Close()
Me.ClientTableAdapter.Fill(Me.My_BaseDataSet.Client)
MessageBox.Show("Suppression Réussi", "Information By Zack", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Rechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rechercher.Click
Dim MyConnexion As New SqlConnection("Data Source=ZACK-SONY-VAIO\SQLEXPRESS;Initial Catalog=My Base;Integrated Security=True")
MyConnexion.Open()
Dim Cmd As New SqlCommand
Cmd.CommandText = "Select Numclt from client where Numclt='" & TextBox1.Text & "'"
Cmd.Connection = MyConnexion
Cmd.ExecuteNonQuery()
MyConnexion.Close()
Me.ClientTableAdapter.Fill(Me.My_BaseDataSet.Client)
End Sub
End Class |
