Recherche dans DATABASE

**BStephane** · 21/10/2014, 23h17

Bonsoir,

Je suis débutant en VB et je développe sous VB 2010.
J'ai créer un form avec une TextBox et un Bouton (pour faire simple pour l'instant). Ce form est directement relié à ma base de données Access via un databindindsource.
J'ai écrit le code ci-dessous qui me permet de chercher tous les contacts qui ont un age précis. Mais mon but serait à terme d'afficher tous mes contacts dont l'age est supérieur ou égal à la valeur inscrite dans ma TextBox.
Auriez vous des suggestions svp?

Merci beaucoup.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim age As String = ""
        Try
            If TextBox1.Text.Length > 0 Then
                age = " Âge like '%" & TextBox1.Text & "%'"
            End If
 
            Me.ContactsIDBindingSource.Filter = age
        Catch ex As Exception
 
        End Try
 
    End Sub

**egautier18** · 22/10/2014, 08h33

Bonjour,

J'ai écrit le code ci-dessous qui me permet de chercher tous les contacts qui ont un age précis.

Pour information quand vous faites un LIKE % % , vous aller rechercher tous les enregistrements contenant la valeur entre les deux %.
C'est à dire que Âge LIKE '%6%' va vous donner par exemple les personnes dont l'age est 16,26,60,69 ...

dont l'age est supérieur ou égal à la valeur inscrite dans ma TextBox.

remplacez le LIKE % % par >=

Pour info, vos champs sont de quel type en base ?

Pour finir, il aurait été bon de conclure la conversation sur le même sujet :
http://www.developpez.net/forums/d14...ncee-database/

A+

**BStephane** · 22/10/2014, 13h34

Bonjour,

Merci de votre réponse,

Mes champs dans ma base de données Access sont sous forme Texte.
Suite à votre suggestions j'ai changé mon code par celui-ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim age As String = ""
        Try
            If TextBox1.Text.Length > 0 Then
                age = " Âge '>=" & TextBox1.Text & "'"
            End If
 
            Me.ContactsIDBindingSource.Filter = age
        Catch ex As Exception
 MsgBox(ex.Message(), MsgBoxStyle.Critical, "Erreur")
        End Try
 
    End Sub

Cependant j'ai le message d'erreur suivant lorsque je renseigne l'age dans ma texbox (30 par exemple) et que je clique sur mon bouton:
"Erreur de synthaxe: Opérande manquante après l'opérateur ">= 30""

J'ai donc changé mon code par:

Code :

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

age = " Âge >=" & TextBox1.Text & ""

Mais là encore j'ai le message d'erreur suivant:
"Impossible d'effectuer une opération '>=' sur System.String et System.Int32."

Auriez-vous une idées de l'erreur que j'ai commise???

ps: oui merci, je pourrai conclure à mon ancien post dès que ce problème sera également réglé car les deux sont très proches (même si l'ancien est peut être un peu compliqué pour mon niveau de débutant...)

**egautier18** · 22/10/2014, 14h06

Le problème est que votre champ est de type TEXT en base de données et que vous essayez de le soumettre à une opération mathématique.

D'ou l'erreur :

"Impossible d'effectuer une opération '>=' sur System.String et System.Int32."

je pense qu'il serait préférable de changer le type de votre champ Age dans la base de données.

A+

**BStephane** · 22/10/2014, 14h23

J'ai mis le champ de ma base sous forme Numérique mais j'ai toujours le même message d'erreur...

**egautier18** · 22/10/2014, 14h26

Avec :

Code :

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

age = " Âge >= " & TextBox1.Text

?

**BStephane** · 22/10/2014, 14h34

De même... malheureusement

A votre avis, ne serait-il pas plus simple de passer en SQL et indiquer une ligne du style :

SELECT * FROM ContactsID WHERE Âge >= TextBox1.Text ???
Mais cela ne m'arrange pas car il faut que je crée la connection à ma base et appeler le Dataset... à moins que je ne me trompe...

**shayw** · 22/10/2014, 16h26

Bonjour

il faudrait d'abord verifier si le contenu du textbox est numérique

Code :

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

1
2
3
4
5
6
7
 Dim age As Integer
 
        If Integer.TryParse(TextBox1.Text, age) Then
             'ici tu fais tes recheches  
        Else
            Exit Sub
        End If

**BStephane** · 22/10/2014, 16h53

J'ai essayé avec le code suivant:

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
 Dim age As Integer
 
        If Integer.TryParse(TextBox1.Text, age) Then
             Try
            If TextBox1.Text.Length > 0 Then
                age = " Âge >=" & TextBox1.Text
            End If
 
            Me.ContactsIDBindingSource.Filter = age
        Catch ex As Exception
 MsgBox(ex.Message(), MsgBoxStyle.Critical, "Erreur")
        End Try
 
        Else
            Exit Sub
        End If

Mais j'ai l'erreur suivante :

"La conversion de la chaîne "Âge >=30" en type 'Integer' n'est pas valide".

**egautier18** · 22/10/2014, 17h05

Normal tu fais ceci

Code :

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

Dim age As Integer

et tu lui passes une chaine de caractère...

**BStephane** · 22/10/2014, 17h19

Oui je comprends, j'ai voulu tenir compte de la suggestion précédente...
je ne vois pas comment faire

**Graffito** · 24/10/2014, 02h12

Code :

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

1
2
3
If Integer.TryParse(TextBox1.Text, age) Then
   Try Me.ContactsIDBindingSource.Filter = " Âge >=" & TextBox1.Text
  Catch ...

[/CODE]

**BStephane** · 26/10/2014, 17h54

Bonsoir à tous!
Avec beaucoup de patience et de persévérance je suis venu à bout de mon problème.
Je vous donne le code que j'ai écrit si cela peut également aider quelqu'un d'autre dans mon cas.
Je vous préviens d'avance : le code est très long mais marche parfaitement pour moi.
Voici également un aperçu de mon form pour mieux comprendre...

Merci à tous ceux qui me sont venus en aide!!!!

Nom : Sans titre.jpg
Affichages : 173
Taille : 46,7 Ko

Nom : Sans titre.jpg
Affichages : 173
Taille : 46,7 Ko

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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Try
 
            Dim Requete As String = ""
                Try
                    If txtNom.Text.Length > 0 Then
                        Requete = " Nom like '%" & txtNom.Text & "%'"
                    End If
                    If txtPrenom.Text.Length > 0 Then
                        If Requete.Length > 0 Then Requete += " AND "
                        Requete += " Prénom like '%" & txtPrenom.Text & "%'"
                    End If
 
 
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreur")
            End Try
 
 
            TemoinsBD.TémoinsIDBindingSource.Filter = Requete
 
 
 
            ' Pour recherche étendue
 
            If CheckBox1.CheckState = CheckState.Checked Then
                gbAge.Enabled = True
 
 
                Try
                    Dim Requete2 As String = ""
 
                    'SexeTous / Age (Var) / BacTous
                    If rbSexe.Checked = True And rbAllAge.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = ""
                        txtAEgal.Clear()
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbSexe.Checked = True And rbAge.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Age like '%" & txtAEgal.Text & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbSexe.Checked = True And rbAgeSup.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Age >=" & txtAgeMore.Text & ""
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAEgal.Clear()
                    End If
                    If rbSexe.Checked = True And rbAgeInf.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Age <= " & txtAgeLess.Text & ""
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAEgal.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbSexe.Checked = True And rbAgeRange.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Age >= " & AgeMin.Text & " And Age <= " & AgeMax.Text & ""
                        txtAEgal.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
 
 
                    'SexeTous / Age (Var) / Bac Inf
                    If rbSexe.Checked = True And rbAllAge.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Bac like '%" & "< BAC" & "%'"
                        txtAEgal.Clear()
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbSexe.Checked = True And rbAge.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Age like '%" & txtAEgal.Text & "%' And Bac like '%" & "< BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbSexe.Checked = True And rbAgeSup.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Age >=" & txtAgeMore.Text & "And Bac like '%" & "< BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAEgal.Clear()
                    End If
                    If rbSexe.Checked = True And rbAgeInf.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Age <= " & txtAgeLess.Text & " And Bac like '%" & "< BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAEgal.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbSexe.Checked = True And rbAgeRange.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Age >= " & AgeMin.Text & " And Age <= " & AgeMax.Text & " And Bac like '%" & "< BAC" & "%'"
                        txtAEgal.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
 
 
                    'SexeTous / Age (var) / Bac Sup
                    If rbSexe.Checked = True And rbAllAge.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Bac like '%" & "> BAC" & "%'"
                        txtAEgal.Clear()
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbSexe.Checked = True And rbAge.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Age like '%" & txtAEgal.Text & "%' And Bac like '%" & "> BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbSexe.Checked = True And rbAgeSup.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Age >=" & txtAgeMore.Text & "And Bac like '%" & "> BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAEgal.Clear()
                    End If
                    If rbSexe.Checked = True And rbAgeInf.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Age <= " & txtAgeLess.Text & " And Bac like '%" & "> BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAEgal.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbSexe.Checked = True And rbAgeRange.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Age >= " & AgeMin.Text & " And Age <= " & AgeMax.Text & " And Bac like '%" & "> BAC" & "%'"
                        txtAEgal.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
 
 
 
                    '##########     RECHERCHE DE FEMMES     ##########     RECHERCHE DE FEMMES     ##########
 
                    'Femme / Age (Var) / BacTous
                    If rbFemme.Checked = True And rbAllAge.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%'"
                        txtAEgal.Clear()
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbFemme.Checked = True And rbAge.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age like '%" & txtAEgal.Text & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbFemme.Checked = True And rbAgeSup.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age >=" & txtAgeMore.Text & ""
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAEgal.Clear()
                    End If
                    If rbFemme.Checked = True And rbAgeInf.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age <= " & txtAgeLess.Text & ""
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAEgal.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbFemme.Checked = True And rbAgeRange.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age >= " & AgeMin.Text & " And Age <= " & AgeMax.Text & ""
                        txtAEgal.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
 
 
                    'Femme / Age (Var) / Bac Inf
                    If rbFemme.Checked = True And rbAllAge.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%'And Bac like '%" & "< BAC" & "%'"
                        txtAEgal.Clear()
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbFemme.Checked = True And rbAge.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age like '%" & txtAEgal.Text & "%' And Bac like '%" & "< BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbFemme.Checked = True And rbAgeSup.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age >=" & txtAgeMore.Text & "And Bac like '%" & "< BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAEgal.Clear()
                    End If
                    If rbFemme.Checked = True And rbAgeInf.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age <= " & txtAgeLess.Text & " And Bac like '%" & "< BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAEgal.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbFemme.Checked = True And rbAgeRange.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age >= " & AgeMin.Text & " And Age <= " & AgeMax.Text & " And Bac like '%" & "< BAC" & "%'"
                        txtAEgal.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
 
 
                    'Femme / Age (var) / Bac Sup
                    If rbFemme.Checked = True And rbAllAge.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%'And Bac like '%" & "> BAC" & "%'"
                        txtAEgal.Clear()
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbFemme.Checked = True And rbAge.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age like '%" & txtAEgal.Text & "%' And Bac like '%" & "> BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbFemme.Checked = True And rbAgeSup.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age >=" & txtAgeMore.Text & "And Bac like '%" & "> BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAEgal.Clear()
                    End If
                    If rbFemme.Checked = True And rbAgeInf.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age <= " & txtAgeLess.Text & " And Bac like '%" & "> BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAEgal.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbFemme.Checked = True And rbAgeRange.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "F" & "%' And Age >= " & AgeMin.Text & " And Age <= " & AgeMax.Text & " And Bac like '%" & "> BAC" & "%'"
                        txtAEgal.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
 
 
 
                    '##########     RECHERCHE DES HOMMES     ##########     RECHERCHE DES HOMMES     ##########
 
                    'Homme / Age (Var) / BacTous
                    If rbHomme.Checked = True And rbAllAge.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%'"
                        txtAEgal.Clear()
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbHomme.Checked = True And rbAge.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age like '%" & txtAEgal.Text & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbHomme.Checked = True And rbAgeSup.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age >=" & txtAgeMore.Text & ""
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAEgal.Clear()
                    End If
                    If rbHomme.Checked = True And rbAgeInf.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age <= " & txtAgeLess.Text & ""
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAEgal.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbHomme.Checked = True And rbAgeRange.Checked = True And rbBacTous.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age >= " & AgeMin.Text & " And Age <= " & AgeMax.Text & ""
                        txtAEgal.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
 
 
                    'Homme / Age (Var) / Bac Inf
                    If rbHomme.Checked = True And rbAllAge.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Bac like '%" & "< BAC" & "%'"
                        txtAEgal.Clear()
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbHomme.Checked = True And rbAge.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age like '%" & txtAEgal.Text & "%' And Bac like '%" & "< BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbHomme.Checked = True And rbAgeSup.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age >=" & txtAgeMore.Text & "And Bac like '%" & "< BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAEgal.Clear()
                    End If
                    If rbHomme.Checked = True And rbAgeInf.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age <= " & txtAgeLess.Text & " And Bac like '%" & "< BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAEgal.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbHomme.Checked = True And rbAgeRange.Checked = True And rbBacInf.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age >= " & AgeMin.Text & " And Age <= " & AgeMax.Text & " And Bac like '%" & "< BAC" & "%'"
                        txtAEgal.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
 
 
                    'Homme / Age (var) / Bac Sup
                    If rbHomme.Checked = True And rbAllAge.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Bac like '%" & "> BAC" & "%'"
                        txtAEgal.Clear()
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbHomme.Checked = True And rbAge.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age like '%" & txtAEgal.Text & "%' And Bac like '%" & "> BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbHomme.Checked = True And rbAgeSup.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age >=" & txtAgeMore.Text & "And Bac like '%" & "> BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAgeLess.Clear()
                        txtAEgal.Clear()
                    End If
                    If rbHomme.Checked = True And rbAgeInf.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age <= " & txtAgeLess.Text & " And Bac like '%" & "> BAC" & "%'"
                        AgeMax.Clear()
                        AgeMin.Clear()
                        txtAEgal.Clear()
                        txtAgeMore.Clear()
                    End If
                    If rbHomme.Checked = True And rbAgeRange.Checked = True And rbBacSup.Checked = True Then
                        Requete2 = "Sexe like '%" & "H" & "%' And Age >= " & AgeMin.Text & " And Age <= " & AgeMax.Text & " And Bac like '%" & "> BAC" & "%'"
                        txtAEgal.Clear()
                        txtAgeLess.Clear()
                        txtAgeMore.Clear()
                    End If
 
 
                    TemoinsBD.TémoinsIDBindingSource.Filter = Requete2
 
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
 
                End Try
 
            End If
 
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub

Recherche dans DATABASE

VB.NET

Discussions similaires

Partager

Partager