Discussion :

[chahinaz21]

Salut,
Je suis entrains de développer une application avec vb.net 2008 et access. J'ai fais un code pour la recherche multicritére, mais pas de résultats.
Voila le code:

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
Try
 
            con.Open()
            Dim str2 As String
            ds.Clear()
            Dim str1 As String = " select * from personnel where "
 
            If (Cservice.Text <> String.Empty) Then
                str1 = str1 & " service = '" & Cservice.Text & "' and  "
            End If
 
            If (Cgrade.Text <> String.Empty) Then
                str1 = str1 & " grade = '" & Cgrade.Text & "' and  "
            End If
 
            If (Cstatut.Text <> String.Empty) Then
                str1 = str1 & " statut = '" & Cstatut.Text & "' and  "
            End If
 
            If (Tcin.Text <> String.Empty) Then
                str1 = str1 & " cin = '" & Tcin.Text & "' and  "
            End If
 
            If (Tmlle.Text <> String.Empty) Then
                str1 = str1 & " mlle_drpp = '" & Tmlle.Text & "' and  "
            End If
 
            If (DTP1.Text <> String.Empty And DTP2.Text <> String.Empty) Then
                str1 = str1 & " date_naiss between #" & DTP1.Text & "# and #" & DTP2.Text & "# and  "
            End If
 
            If (DTP3.Text <> String.Empty And DTP4.Text <> String.Empty) Then
                str1 = str1 & " date_recrut between  #" & DTP3.Text & "# and #" & DTP4.Text & "# and  "
            End If
 
            str2 = Mid(str1, 1, Len(str1) - 6)
            cmd.CommandText = str2
            dr = cmd.ExecuteReader
            dt = New DataTable
            dt.Load(dr)
            DataGridView1.DataSource = dt
            dr.Close()
            con.Close()
            'Dim i As Integer
            'If i > dtt.Rows.Count - 1 Then
            '    MsgBox("Désolé pas de données")
            'End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Est ce que vous pouvez m'aider?
Merci.

[Pol63]

déjà il y a une balise code pour la mise en forme sur le forum, pour une meilleur lisibilité


as tu vérifié en mettant le contenu de str1 dans access pour voir ce que ca donne ?

de plus concaténer la requete avec les textbox c'est pas terrible, genre si l'utilisateur rentre un apostrophe ca va planter, pour éviter ce problème il y a les parameters sur l'objet command