Discussion :

[BStephane]

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]

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]

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]

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]

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

[egautier18]

Avec :

Code :

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

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

?