Discussion :

[lumbroso]

bonjour a tous voila j ai un petit soucis auquel j espere vous pourrez m aider je travaille sur vb 2013 avec une base de donnee de type mysql je voudrai faire une recherche sur 2 parametre mais ca ne fais rien pouvez vous m aider a trouver mon erreur merci

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
 
 Private Sub cmdrechercheclt_Click(sender As Object, e As EventArgs) Handles cmdrechercheclt.Click
        If cn.State = ConnectionState.Closed Then
            cn.Open()
 
            If txtrecherchecontact.Text = "" And txtrechercheclt.Text = "" Then 'recherche siles 2 champs recherche sont VIDE
                ListView1.Items.Clear()
                recherche_vide()
                cn.Close()
            End If
 
            If txtrecherchecontact.Text <> "" And txtrechercheclt.Text <> "" Then
                Dim valeur As String = txtrechercheclt.Text
                Dim valeur1 As String = txtrecherchecontact.Text
                Dim cmd As String = "SELECT * FROM client  WHERE (nomclt LIKE '%" & valeur & "%') OR (contactclt LIKE '%" & valeur1 & "%')"
                ListView1.Items.Clear()
                recherche(cmd)
                'cn.Close()
 
            End If
 
 
        End If
 
    End Sub

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
 
Sub recherche(ByVal cmd_valeur As String)
        ListView1.Items.Clear()
 
        Dim cmd As New MySqlCommand(cmd_valeur, cn)
        Using L As MySqlDataReader = cmd.ExecuteReader()
            While L.Read()
                Dim nomclt As String = L("nomclt")
                Dim contactclt As String = L("contactclt")
                Dim telclt As String = L("telclt")
                Dim adresseclt As String = L("adresseclt")
                Dim commentclt As String = L("commentclt")
 
                ListView1.Items.Add(New ListViewItem(New String() {nomclt, contactclt, telclt, adresseclt, commentclt}))
            End While
        End Using
    End Sub

[Phil Rob]

Bonsoir,

Vu l'organisation de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Private Sub cmdrechercheclt_Click(sender As Object, e As EventArgs) Handles cmdrechercheclt.Click
        If cn.State = ConnectionState.Closed Then
            cn.Open()

Si la connexion est déjà ouverte, rien n'est fait dans cmdrechercheclt_Click et donc, recherche n'est jamais appelée.

Est-ce normal ?

...

[lumbroso]

La recherche marche si un champ est entre mais si j ai 2 noms idendique je n arrive pas a faire en sorte que que le contact desirer sois affiche

[Phil Rob]

Ok mais ta procédure est quand même douteuse : tu devrais l'écrire en déplaçant le End If comme ceci :

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
 
 Private Sub cmdrechercheclt_Click(sender As Object, e As EventArgs) Handles cmdrechercheclt.Click
        If cn.State = ConnectionState.Closed Then
            cn.Open()
         End If
 
 
            If txtrecherchecontact.Text = "" And txtrechercheclt.Text = "" Then 'recherche siles 2 champs recherche sont VIDE
                ListView1.Items.Clear()
                recherche_vide()
                cn.Close()
            End If
 
            If txtrecherchecontact.Text <> "" And txtrechercheclt.Text <> "" Then
                Dim valeur As String = txtrechercheclt.Text
                Dim valeur1 As String = txtrecherchecontact.Text
                Dim cmd As String = "SELECT * FROM client  WHERE (nomclt LIKE '%" & valeur & "%') OR (contactclt LIKE '%" & valeur1 & "%')"
                ListView1.Items.Clear()
                recherche(cmd)
                'cn.Close()
 
            End If
 
    End Sub

Mais pour en revenir à ton problème :

mais si j ai 2 noms idendique je n arrive pas a faire en sorte que que le contact desirer sois affiche

Qu'est-ce qui peut différencier un contacte d'un autre ? Il faut qu'il y ait quelque chose qui permettrait d’affiner la clause WHERE de ta requête.
Sinon, autre solution, afficher tous ceux qui ont le même nom avec leurs infos dans une ListBox, ou une ListView si tu préfères. Seul problème restant, comment feras-tu pour choisir lequel tu veux contacter ?

[lumbroso]

tout d'abord merci de me repondre

lors ce que je fais 2 requetes du genre

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
 
If txtrechercheclt.Text <> "" Then
                Dim valeur As String = txtrechercheclt.Text
 
                Dim cmd As String = "SELECT * FROM client  WHERE (nomclt='" & valeur & "')"
 
                recherche(cmd)
                cn.Close()
            ElseIf txtrecherchecontact.Text <> "" Then
                Dim valeur1 As String = txtrecherchecontact.Text
 
                Dim cmd As String = "SELECT * FROM client  WHERE (contactclt='" & valeur1 & "')"
 
                recherche(cmd)
                cn.Close()
            End If

elles s'exetutes sans probleme mais quand je met les 2 imbriquer elle ne prend en compte que le nomclt pourrai tu me corriger mon code afin que ma requete marche convenablement?
merci

[Phil Rob]

La syntaxe de la requête combinée avec les LIKE est correcte.

Plusieurs choses à vérifier ...

Puisque ta requête "SELECT * FROM client WHERE (nomclt ='" & valeur & "')" fonctionne, essaye donc : "SELECT * FROM client WHERE (nomclt LIKE '%" & valeur & "%')".

Si tes requêtes simples ne fonctionnent plus lorsque tu remplaces = par LIKE, c'est que tu as un problème avec LIKE.
Ne peux-tu remplacer les LIKE par = dans la requête combinée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT * FROM client WHERE nomclt = '" & valeur & "' OR  contactclt = '" & valeur1 & "' ;"

Et si finalement, il te faut absolument la requête combinée avec des LIKE, il faudrait que tu envoies un extrait de la DB (quelques lignes, en changeant les noms, ...) pour que je puisse tester, sinon je ne peux que constater que ta requête est bien écrite ...

[lumbroso]

bonjour je te fais passer le formulaire en pj

[Phil Rob]

Bonjour,

As-tu essayé cette requête et quel est le résultat ? Dès lors que tes requêtes simples fonctionnent, celle-ci doit fonctionner aussi. Le savoir serait un pas de fait ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT * FROM client WHERE nomclt = '" & valeur & "' OR  contactclt = '" & valeur1 & "' ;"

Pour ce que tu m'envoies, vois l'illustration ci-dessous, je ne peux rien en faire, je n'ai même pas ton code. Si tu veux m'envoyer ton application, il te faut compresser ton dossier de développement et m'envoyer le zip. Note que c'est surtout la DB qu'il me faudrait (au moins un extrait).

[lumbroso]

desole voila je te joint le projet en entier avec la connection a la bdd

[Phil Rob]

Je ne peux pas me connecter à la DB (la dernière illustration ci-dessous).

Mais comme je sais maintenant qu’il s’agit de MySql, j’ai réactivé un serveur installé sur mon PC et j’ai testé ta requête sur une DB d’essai : je confirme que ta requête est correcte, le problème est ailleurs.
Je ne sais trop comment t'aider ...

Illustration de ma DB :


Illustration de la requête et de ses résultats :


Mon défaut de connexion :

[Phil Rob]

ATTENTION : suite de mon message de 21h46'.

Je me suis connecté à la DB via le Web et j'ai pu tester ta requête sur ta DB : tout est OK.



Tu peux aussi procéder de la sorte pour t'assurer de la validité de ton SQL (bien sûr, il faut adapter un peu quand on revient dans VB) :

[lumbroso]

Bonjour
Si tout est ok pourquoi je n arrive pas a executer cette requette

[Phil Rob]

... c'est bien la question !!!

Je te propose d'expérimenter exactement quelques points (le but étant de chercher l'origine du problème, le résoudre sera autre chose).

Là où tu as écrit le code suivant, dont tu affirmes qu'il fonctionne :

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
 
If txtrechercheclt.Text <> "" Then
                Dim valeur As String = txtrechercheclt.Text
 
                Dim cmd As String = "SELECT * FROM client  WHERE (nomclt='" & valeur & "')"
 
                recherche(cmd)
                cn.Close()
            ElseIf txtrecherchecontact.Text <> "" Then
                Dim valeur1 As String = txtrecherchecontact.Text
 
                Dim cmd As String = "SELECT * FROM client  WHERE (contactclt='" & valeur1 & "')"
 
                recherche(cmd)
                cn.Close()
            End If

exactement à cet endroit, remplace ce code par le suivant (note que je mets tes lignes changées en commentaires, je ne les efface pas, il te sera facile d'annuler mes modifs) :

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
 
If txtrechercheclt.Text <> "" Then
                Dim valeur As String = txtrechercheclt.Text
 
         '       Dim cmd As String = "SELECT * FROM client  WHERE (nomclt='" & valeur & "')"
 
       Dim cmd As String = "SELECT * FROM client  WHERE (nomclt LIKE '%" & valeur & "%')"   ' juste remplacé = par LIKE
 
                recherche(cmd)
                cn.Close()
            ElseIf txtrecherchecontact.Text <> "" Then
                Dim valeur1 As String = txtrecherchecontact.Text
 
         '       Dim cmd As String = "SELECT * FROM client  WHERE (contactclt='" & valeur1 & "')"
 
       Dim cmd As String = "SELECT * FROM client  WHERE (contactclt LIKE '%" & valeur1 & "%')"   ' juste remplacé = par LIKE
 
                recherche(cmd)
                cn.Close()
            End If

Pour une appréciation significative, il te faut exécuter le code avant modifs et celui après modifs avec le même jeux de valeurs.
Cela DOIT fonctionner ...
Merci de m'informer du résultat et je t'indiquerai l'étape de débogage suivante (j'ai déjà une idée ..., je la vérifie entre temps).

A tantôt,

[lumbroso]

salut a toi je viens de remplacer le code par ce que tu m as donne mais le resultat est le meme je pete un cable

[Phil Rob]

je viens de remplacer le code par ce que tu m as donne mais le resultat est le meme je pete un cable

... le même que quoi ...

ça marche avec mon code ou pas ? et avec ton code ça marche toujours ?


Excuse-moi, mais ton message ne m'explique pas grand chose ...

[lumbroso]

Le resultat est le meme c est a dire rien comme avant

[Phil Rob]

Donc tu confirmes que ceci fonctionne : Dim cmd As String = "SELECT * FROM client WHERE (nomclt='" & valeur & "')".
et que ceci ne fonctionne pas :Dim cmd As String = "SELECT * FROM client WHERE (nomclt LIKE '%" & valeur & "%')".

[lumbroso]

En requete simple les 2 marche mais sur le nomclt et contactclt la reponse est ca marche pas

[Phil Rob]

Je comprends donc que le code suivant fonctionne aussi bien avec ... (nomclt='" & valeur & "')" qu'avec ... (nomclt LIKE '%" & valeur & "%')".

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
 
If txtrechercheclt.Text <> "" Then
                Dim valeur As String = txtrechercheclt.Text
 
         '       Dim cmd As String = "SELECT * FROM client  WHERE (nomclt='" & valeur & "')"
 
       Dim cmd As String = "SELECT * FROM client  WHERE (nomclt LIKE '%" & valeur & "%')"   ' juste remplacé = par LIKE
 
                recherche(cmd)
                cn.Close()
            ElseIf txtrecherchecontact.Text <> "" Then
                Dim valeur1 As String = txtrecherchecontact.Text
 
         '       Dim cmd As String = "SELECT * FROM client  WHERE (contactclt='" & valeur1 & "')"
 
       Dim cmd As String = "SELECT * FROM client  WHERE (contactclt LIKE '%" & valeur1 & "%')"   ' juste remplacé = par LIKE
 
                recherche(cmd)
                cn.Close()
            End If

SI c'est bien ainsi, alors je te demande de remplacer ce code par le suivant (dans la même procédure) :

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
 
If txtrechercheclt.Text <> "" AND txtrecherchecontact.Text <> ""  Then
                Dim valeur As String = txtrechercheclt.Text
                Dim valeur1 As String = txtrecherchecontact.Text
         '       Dim cmd As String = "SELECT * FROM client  WHERE (nomclt='" & valeur & "')"
 
       Dim cmd As String = "SELECT * FROM client  WHERE (nomclt LIKE '%" & valeur & "%') OR  (contactclt LIKE '%" & valeur1 & "%')"  
 
                recherche(cmd)
                cn.Close()
  '          ElseIf txtrecherchecontact.Text <> "" Then
  '             Dim valeur1 As String = txtrecherchecontact.Text
 
         '       Dim cmd As String = "SELECT * FROM client  WHERE (contactclt='" & valeur1 & "')"
 
 '      Dim cmd As String = "SELECT * FROM client  WHERE (contactclt LIKE '%" & valeur1 & "%')"   ' juste remplacé = par LIKE
 
   '             recherche(cmd)
   '            cn.Close()
            End If

est-ce que ça marche (avec le même jeu de valeur que dans tes tests simples) ?

[lumbroso]

alors voila le resultat donne la meme chose c 'est a dire si je fais la recherche par le nom ca marche ,recherche par contact ca marche
si je fais le 2 rien il me met tous les nom qui son identique par nomclt
voila le code apres modif

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
 
 
                If cn.State = ConnectionState.Closed Then
            cn.Open()
 
            If txtrecherchecontact.Text = "" And txtrechercheclt.Text = "" Then 'recherche siles 2 champs recherche sont VIDE
                ListView1.Items.Clear()
                recherche_vide()
                cn.Close()
            End If
 
            If txtrechercheclt.Text <> "" And txtrecherchecontact.Text <> "" Then
                Dim valeur As String = txtrechercheclt.Text
                Dim valeur1 As String = txtrecherchecontact.Text
                '       Dim cmd As String = "SELECT * FROM client  WHERE (nomclt='" & valeur & "')"
 
                Dim cmd As String = "SELECT * FROM client  WHERE (nomclt LIKE '%" & valeur & "%') OR  (contactclt LIKE '%" & valeur1 & "%')"
 
                recherche(cmd)
                cn.Close()
                '          ElseIf txtrecherchecontact.Text <> "" Then
                '             Dim valeur1 As String = txtrecherchecontact.Text
 
                '       Dim cmd As String = "SELECT * FROM client  WHERE (contactclt='" & valeur1 & "')"
 
                '      Dim cmd As String = "SELECT * FROM client  WHERE (contactclt LIKE '%" & valeur1 & "%')"   ' juste remplacé = par LIKE
 
                '             recherche(cmd)
                '            cn.Close()
            End If
 
            If txtrechercheclt.Text <> "" Then
                Dim valeur As String = txtrechercheclt.Text
 
                '       Dim cmd As String = "SELECT * FROM client  WHERE (nomclt='" & valeur & "')"
 
                Dim cmd As String = "SELECT * FROM client  WHERE (nomclt LIKE '%" & valeur & "%')"   ' juste remplacé = par LIKE
 
                recherche(cmd)
                cn.Close()
            ElseIf txtrecherchecontact.Text <> "" Then
                Dim valeur1 As String = txtrecherchecontact.Text
 
                '       Dim cmd As String = "SELECT * FROM client  WHERE (contactclt='" & valeur1 & "')"
 
                Dim cmd As String = "SELECT * FROM client  WHERE (contactclt LIKE '%" & valeur1 & "%')"   ' juste remplacé = par LIKE
 
                recherche(cmd)
                cn.Close()
            End If
        End If