Code du Button "Rechercher"

**zicozack** · 12/06/2009, 18h03

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]

**Hinault Romaric** · 12/06/2009, 18h52

Tu peut directement effectuer un filtre au niveau du Dataset je te renvoie a cet article
http://plasserre.developpez.com/cour...onnees#LXVII-D
Si tu veut utiliser ta requête l'insertion du mot clé Like te permettra d'avoir un meilleur résultat.

**zicozack** · 12/06/2009, 22h44

Merci bq lilroma je vais esseyer ta suggestion

**wakan** · 13/06/2009, 10h25

Bonjour,
une petite remarque utilise les sqlparameter c'est beaucoup plus sécurisé.
A bientôt

**zicozack** · 13/06/2009, 18h41

Salut !
Merci Wakan pour la remarque.
Bon jusqu'au moment le button ne marche pas.
Bon ce que je veux c'est le button rechercher va me lire le numéro client que je vais lui donner dans son textbox et qu'il va me l'afficher sur le DataGridView c'est à dire qu'il va pointer sur la ligne ou se trouve le numéro.
J'attend vos suggestion les amis.merci

**zicozack** · 13/06/2009, 18h51

[IMG]

[/IMG]

**Sankasssss** · 15/06/2009, 07h33

Soit tu utilise ce que lilroma t'as dit :

Envoyé par lilroma

Tu peut directement effectuer un filtre au niveau du Dataset je te renvoie a cet article
http://plasserre.developpez.com/cour...onnees#LXVII-D
Si tu veut utiliser ta requête l'insertion du mot clé Like te permettra d'avoir un meilleur résultat.

Mais attention, si ta colonne est de type numérique, un like ne fonctionnera pas tu devra donc faire "nomDeColonne = " & TBChampsDeRecherche.text

Sinon tu fais un for sur tout les éléments de ta collection avec un petit test equals qui te retournera l'index de la colonne que tu recherches...

Code du Button "Rechercher"

VB.NET

Vue hybride

Partager

Partager