Discussion :

[matrix_ceg]

J'ai une feuille de recherche d'un utilisateur.

j'aimerais pouvoir onKeyPress filtrer le dataTable par l'edit adéquate, si on presse une touche dans Login on filtre sur la colone login, nom ...

j'ai pensé à

Code :

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

1
2
 
DataGridView.DataSource = Me.dtTable.Select(TextBox.text)

mais il semblerait qu'il ne trouve que quand le champ est complet donc y a t'il un caractère de remplacement?

de plus le tableau de row ne passe pas aussi bien qu'un dataTable

[olsimare]

Bonjour.

Il y a quoi dans TextBox.text ? En fait le select attend la clause "where" que tu coderais dans un select sql classique.

Du genre :

Code :

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

1
2
 
DataGridView.DataSource = Me.dtTable.Select("MonLogin = '" & TextBox.text & "'")

Cdt.

[matrix_ceg]

Oui desolé j'ai mal recopier en effet.

Il y a deux problème avec ça c'est que le vecteur de DataRow ne passe pas.
et quand je fais ça, il faut par exemple :

Code :

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

Me.dtTable.Select("MonLogin = 'matrix_ceg'")

passera bien mais j'ai besoin de

Code :

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

Me.dtTable.Select("MonLogin = 'matr'")

qui me donne une liste avec tout les log commençant par matr...

dans toute la doc que je trouve sur les selects c'est Fields = ...

comment faire un et ou ... caratère de remplacement? je ne trouve rien

Je pense que se serait stupide de refaire un select sur db alors qu'on a toutes les infos dans le dataset.

En français ... en SQL plutot je veux faire ça sans aller dans la db mais sur le dataset.

Code :

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

"SELECT * FROM Users WHERE Login like""" & textBox.Text & "%"""

[JPelli]

Bonjour,
Essaie

Code :

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

Me.dtTable.Select("MonLogin like 'matr%'")

Jean

[Gdal]

Bonjour,

Il me semble que pour filtrer une DataTable, le mieux est d'utiliser un DataView.

1. Tu charges ta table "Tbl_1" dans un DataSet "objDataSet"
2. Tu charges dans le DataGridView "Dgv_1" de ton formulaire ta table "Tbl_1"
   Sur ce que j'ai compris, jusqu'ici tu n'as pas de soucis....
3. Tu créés un DataView "objDataView", une vue filtée de ta DataTable

Code Vb.net :

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
 
Dim objDataView As New DataView
Dim strChampASCDESC as String
Dim strFiltre As String
 
' Remplir tes options de trie
strChampASCDESC = "NomDeLaColonne1 ASC"
strFiltre = "NomDeLaConne1 = *'" & TaTextBox.Text & "'*"
 
With objDataView
      ' Charger la table dans le DataView
      .Table = objDataSet.Tables("TblVehicule")
      ' Ordre du trie de la vue filtrée, type string.
      ' ASC" ASC = Trie croissant, DESC Trie décroissant
      .Sort = strChampASCDESC
      ' Trie de la vue filtrée, type string.
      .RowFilter = strFiltre
End With
 
Me.Dgv_1.DataSource = objDataView

Si tu as besoin de ce type de recherche sur plusieurs formulaires, je te conseil de faire une fonction qui te retournea un DataView.

Code Vb.Net :

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
 
Public Function fctRecherche(ByVal objDataSet as DataSet, ByVal strNomTable as String, ByVal strChampASCDESC as String, ByVal strFiltre as String)
 
Dim objDataView As New DataView
 
With objDataView
      ' Charger la table dans le DataView
      .Table = objDataSet.Tables(strNomTable )
      ' Ordre du trie de la vue filtrée, type string.
      ' ASC" ASC = Trie croissant, DESC Trie décroissant
      .Sort = strChampASCDESC
      ' Trie de la vue filtrée, type string.
      .RowFilter = strFiltre
End With
 
return objDataView

Et dans tes formulaires

Code Vb.net :

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

1
2
 
Me.Dgv_1.DataSource = fctRecherche(.... Les arguments ..)

Bonne continuation

Gwendal

[matrix_ceg]

Merci beaucoup

Désolé de ne pas répondre plus tôt mais un autre boulot prioritaire.

Je teste dès que je peux.

a bientot.

[kgb1917]

Bonjour,

Je viens vers vous pour 2 questions sur le code ci-dessus :

- Est-il possible de cumuler plusieurs filtres ? Si oui, comment ? (ça fait 2 jours que je suis sur ce point qui va être tout bête pour certains d’entre-vous.)
- Quand j’appelle la fonction fctRecherche, je ne vois pas quoi mettre comme dataset. Dans l’exemple, je ne vois pas où se trouve le dataset ou comment le créer.

Je viens d’access et me mets à vb.net et son fonctionnement, ses objets. Merci d’avance de votre patience.

[Gdal]

Salut,

J'ai le même parcours! L'avantage s'est qu'avec Vb.net tu n'a pas besoin d'Access d'installé sur le poste pour faire tourner une base !

Pour ton soucis; Admettons
1- Dans ta base, une table TblRepertoire avec Nom, Prenom, ...
2- Dans ton formulaire, un datagridview, 2 zones de texte, un bouton
3- Dans ton formulaire, déclare en variable un dataset (ex.: objDataSet)
4- Dans ton formulaire, charge une table TblRepertoire dans ton dataset
5- Dans ton formulaire, place 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
17
18
 
Public Function fctRecherche(ByVal objDataSet as DataSet, ByVal strNomTable as String, ByVal strChampASCDESC as String, ByVal strFiltre as String)
 
Dim objDataView As New DataView
 
With objDataView
      ' Charger la table dans le DataView
      .Table = objDataSet.Tables(strNomTable )
      ' Ordre du trie de la vue filtrée, type string.
      ' ASC" ASC = Trie croissant, DESC Trie décroissant
      .Sort = strChampASCDESC
      ' Trie de la vue filtrée, type string.
      .RowFilter = strFiltre
End With
 
return objDataView
 
End Function

6- Sur le bouton, place le code suivant:

Code :

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

1
2
 
Me.Dgv_1.DataSource = fctRecherche(objDataSet, "TblRepertoire", "Nom ASC", "WHERE TblRepertoire.Ville = """ & Me.TextBox1.text & """ AND TblRepertoire.Sexe = """ & Me.TextBox2.text & """)

Voilà...

Gdal

[zizou2007]

Salut Gdal. Je veux utiliser ton code :

Code :

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

1
2
3
 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Dgv1.DataSource = fctRecherche(EssaiDataSet, "TblRepertoire", "Nom ASC", "WHERE TblRepertoire.Ville = '" & Me.TextBox1.Text & """ And TblRepertoire.Sexe = """ & Me.TextBox2.Text & """")
    End Sub

mais lorsque je clique sur le bouton, il me produit l'erreur suivante au niveau de:

Code :

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

objDataView.RowFilter = strFiltre

Erreur de syntaxe : opérande manquant après l'opérateur 'TblRepertoire'.

[Gdal]

re,

J'ai peut-être fait une erreur: essai sans le WHERE

Code :

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

1
2
3
 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Dgv1.DataSource = fctRecherche(EssaiDataSet, "TblRepertoire", "Nom ASC", "blRepertoire.Ville = '" & Me.TextBox1.Text & """ And TblRepertoire.Sexe = """ & Me.TextBox2.Text & """")
    End Sub

Tu places un point d'arrêt sur la ligne qui pose problème
Tu regardes dans ton dataset si la table que tu charges porte bien le bon nom; le colonne....

@+

Gdal