ma requete SQL ne veux pas se lancer vb net et mysql

Version imprimable

Voir 40 message(s) de cette discussion en une page

1 pièce(s) jointe(s)

Il y a trop de code dans ce que tu envoies, il faut ne garder que ceci :

Code:

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
 
 
          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 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

il te faut faire l'essai avec les valeurs : jh pour nomclt et haa pour contactclt (suffit d’encoder ça dans les TextBox) et cela doit te donner 3 lignes de réponses, les mêmes que sur l'illustration suivante (je suis impatient de connaître le résultat, mais je ne pourrai reprendre le forum que demain après 11h.) :

Pièce jointe 484306

1 pièce(s) jointe(s)

Bonjour,

J'espère que ça s'est bien passé ...

A défaut de pouvoir me connecter à ta DB avec ton programme, j'ai modifié la connexion et les noms de champs pour me connecter à ma DB.

Tout fonctionne bien comme en témoigne l'illustration suivante :
Pièce jointe 484415

Le code correct de ta procédure est donc bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    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 si les 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 LIKE '%" & valeur & "%') OR (contactclt LIKE '%" & valeur1 & "%')"
            ListView1.Items.Clear()
            recherche(cmd)
            cn.Close()
 
        End If
 
    End Sub

Cela fonctionne. Si tu attends d'autres résultats, c'est qu'il y a un problème de logique. Il faudrait alors que tu donnes un exemple du résultat que tu veux ...

Là, je dois partir, je reviendrai au forum plus tard ...

Bonne journée,

18/06/2019, 20h48
lumbroso

Alors voila ca marche bien si je prend independament le nomclt et le contactclt
Mais voila ilmagine que j ai 2 nomclt identique et que quand je rentre le contact il m affiche uniquement ce client la ca ,ca ne marche pas
18/06/2019, 23h11
Phil Rob

1 pièce(s) jointe(s)

Et bien voilà, pour me permettre de tester ce que tu souhaites, je te présente ci-dessous (l'illustration) le contenu de ta DB.

Donne-moi la valeur de nomclt et celle de contactclt pour j'écrive la requête (pas de caractères hébraïques, je ne saurais pas les encoder).

Dis-moi aussi quels sont les idclt des enregistrements que tu veux comme résultat.

Pièce jointe 484677
19/06/2019, 11h50
Phil Rob

1 pièce(s) jointe(s)

Quoi de neuf ?

Ci-joint, une simulation de DB sur une feuille XLS : Pièce jointe 484782
Il y a 10 enregistrements semblables à ceux de ta DB et plusieurs requêtes avec leurs résultats. Cette simulation devrait te permettre de me montrer ce que tu veux comme résultats.

...

Bonjour,
je ne sais pas si ça présente le moindre intérêt mais je donne quand mème!

Code:

1
2
3
4
5
6
7
If valeur = "" And valeur1 = "" Then 'recherche siles 2 champs recherche sont VIDE
            ListView1.Items.Clear()
            recherche_vide()
            cn.Close()
        Else
            Dim cmd As String = "Select * FROM `client`  WHERE " + If(valeur = "", "", " (`nomclt` Like '%" & valeur & "%')") + If(valeur <> "" And valeur1 <> "", " OR ", "") + If(valeur1 = "", "", " (`contactclt` Like '%" & valeur1 & "%')")
        End If

19/06/2019, 14h04
Phil Rob

Bien essayé Dysorthographie ... :D

Mais tel quel, ça ne marche pas. Attention que les alternatives que tu utilises ne doivent pas être (dans ce cas) des IF mais des IIF.

Merci pour l'idée.

Phil
19/06/2019, 14h29
Invité

1 pièce(s) jointe(s)

IIF c'est du vba pas du VB.NET!
chez moi ça fonctionne!

Pièce jointe 484831
19/06/2019, 15h14
Phil Rob

Oui Dysorthographie, tu as raison, IIF, c'est du VBA ou du VisualBasic 6.0 et si la librairie MicroSoft.VisualBasic est désactivée, ça ne fonctionne pas.

Mais je ne connais pas cette utilisation du If sans Then ... je vais devoir actualiser mes connaissances :(

Cdt,
19/06/2019, 15h21
Invité

Citation:

Envoyé par Phil Rob

Oui Dysorthographie, tu as raison, IIF, c'est du VBA ou du VisualBasic 6.0 et si la librairie MicroSoft.VisualBasic est désactivée, ça ne fonctionne pas.

Mais je ne connais pas cette utilisation du If sans Then ... je vais devoir actualiser mes connaissances :(

Cdt,

en fait c'est pareil mais on gagne un I ,une surcharge du If!
19/06/2019, 15h33
Phil Rob
C'est dingue !

Je viens de faire ce test :
Code:

1 2 3 Dim a As Integer = 5 MessageBox.Show("Valeur de A = " & If(a > 5, "A > 5", "A !>5"))
et bien entendu ça marche !

Je n'ai jamais tenté cela quand je suis passé de VB6 à VB.Net. Les rares cas où j'ai eu besoin d'un IIF, j'ai contourné le problème ... :)

Merci à toi :D
19/06/2019, 15h39
Invité

j'ai escaladé VB depuis VB3! mais j’arrête de marcher sur le fils de notre amis.

je pense que vous pouvez reconsidérer la requête aux vues du poste #26.
19/06/2019, 17h26
lumbroso

Salut
Je viels de rajouter 2 lignes qui on pour nom clt daniel toto
Et daniel tata
Ce que je veux faire c est que lors ce que je tappe daniel pour le nom clt tata pour le contact la ligne daniel tata s affiche sans me mettre tous les enregistrements comportant le nom daniel

Pour ça, il te suffit de remplacer le OR par AND.

Compte tenu de ton point de départ (2 requêtes simples), je crois que le AND fera ce que tu veux.

Si tu veux que seul Daniel Toto soit affiché quand les deux sont dans les TextBox, il faut changer le méthode, dont l'algo proposé par Dysorthographie.
Il faut faire 2 requêtes, l'une avec OR quand une seule TextBox est remplie et une avec AND quand les deux TextBox sont remplies.

Mais cela ne t'empêche pas de réviser d'autres situations :

Qu'en sera-t-il des nomclt Daniel dont le contactclt n'est ni Tata, ni Toto ?
Et qu'en sera-t-il d'un autre nomclt (Phil par ex.) qui a aussi un contact nommé Toto ?
Et que fais-tu lorsqu'il y a plusieurs Daniel Toto (comme les Coca Rob de la feuille XLS) ?

... :)

Je te propose de mettre toute ta procédure cmdrechercheclt_Click en commentaire et de placer celle-ci à la place :

Code:

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

Tiens-moi au courant ...

19/06/2019, 23h04
lumbroso

ca marche enfin c est super merciiiiii;););););)
20/06/2019, 00h15
Phil Rob

N'oublie pas de remplacer If MaCommande.ExecuteScalar = 1 Then ... par If MaCommande.ExecuteScalar > 0 Then ... (cf. le message privé que je t'ai envoyé).

Bonne nuit :D

Voir 40 message(s) de cette discussion en une page