Discussion :

[hajarussa]

salut
Voilà je réalise une appli en vb.net et sql sever 2005 , mon appli permet l'ajout , la modification, la suppression et la recherche .Cependant je suis bloqué dans la fonction de recherche , je veux entrer le nom, " "et le prenom
et ressortir les informations reliées à mon enregistrement recherché s'il existe sinon afficher un msg("innexistant") .Mon pb c'est que je ne sais pas comment chercher à partir de 2 critères nom et prenom .
Voilà mon code ça marche parfaitement en entrant juste le nom . Si quelqun sait comment je pourrai faire pour que ma recherche soit multi critères qu'il n'hesite pas à me repondre et merci de votre aide.

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
 
      Dim NomRecherche As String
        Dim Matable As DataTable
        Matable = DS_cabinet.Tables("_tbPATIENT")
        'cree un objet dataview pour filtrer les enregistrements  
        Dim filtre As New DataView(Matable)
        Dim CountItem As Integer
        NomRecherche = InputBox("Veuillez entrer le nom recherché", "Recherche")
        If NomRecherche = "" Then
            MsgBox("veuillez entrer un nom  à rechercher SVP")
            'definition de notre table  
        Else
            filtre.RowFilter = "nom like'*"& NomRecherche & "*'"
            CountItem = filtre.Count
 
        End If
 
        If CountItem > 0 Then
 
            txt_id.Text = filtre.Item(0)(0)
            txt_nom.Text = filtre.Item(0)(1)
            txt_prenom.Text = filtre.Item(0)(2)
            txt_s.Text = filtre.Item(0)(3)
            txt_a.Text = filtre.Item(0)(4)
            txt_p.Text = filtre.Item(0)(5)
            txt_adr.Text = filtre.Item(0)(6)
            txt_tel.Text = filtre.Item(0)(7)
            txt_m.Text = filtre.Item(0)(8)
 
        Else : MsgBox("Innexistant")
        End If
 
    End Sub

Merci d'avance

[bouvda]

Bonjour,

il suffit de prendre compte de la valeur du critère Prénom dans le filtre sur les lignes :

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
 
        Dim NomRecherche As String
        Dim PrenomRecherche As String
        Dim Matable As DataTable
        Matable = DS_cabinet.Tables("_tbPATIENT")
        'cree un objet dataview pour filtrer les enregistrements  
        Dim filtre As New DataView(Matable)
        Dim CountItem As Integer
        NomRecherche = InputBox("Veuillez entrer le nom recherché", "Recherche")
        PrenomRecherche = InputBox("Veuillez entrer le prénom recherché", "Recherche")
        If NomRecherche = ""  And PrenomRecherche = "" Then
            MsgBox("veuillez entrer un nom et/ou un prénom à rechercher SVP")
            'definition de notre table  
        Else
            If NomRecherche = "" Then
                filtre.RowFilter = "prenom like'*"& PrenomRecherche & "*'"
            ElseIf PrenomRecherche = "" Then
                filtre.RowFilter = "nom like'*"& NomRecherche & "*'"
            Else
                filtre.RowFilter = "nom like'*"& NomRecherche & "*' AND prenom like'*"& PrenomRecherche & "*'"
            End If
            CountItem = filtre.Count
 
        End If
 
        If CountItem > 0 Then
 
            txt_id.Text = filtre.Item(0)(0)
            txt_nom.Text = filtre.Item(0)(1)
            txt_prenom.Text = filtre.Item(0)(2)
            txt_s.Text = filtre.Item(0)(3)
            txt_a.Text = filtre.Item(0)(4)
            txt_p.Text = filtre.Item(0)(5)
            txt_adr.Text = filtre.Item(0)(6)
            txt_tel.Text = filtre.Item(0)(7)
            txt_m.Text = filtre.Item(0)(8)
 
        Else : MsgBox("Inexistant")
        End If
 
    End Sub

[hajarussa]

Bonjour ,

Merci bouvda ça marche