Salut les amis. j'ai besoin de votre aide. Bon mon problème c'est que j'esseye de developper une petite application dans le cadre d'un petit projet d'etude...
l'application se connecte à la base de donné que j'ai créer en SQL,et je peux insérer supprimer de la base à travers l'application...Bon problème c'est que je veux ajouter un button " Rechercher" qui va me rechercher une personne dans la base soit à travers son numéro ou Nom et que je vais saisir dans le text box et me l'afficher dans le DataGridView. j'esseye de programmer ce button mais j'arrive pas. aider moi....voici le code de l'application et 1 image.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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



[IMG][/IMG]