Discussion :

[dahmane2007]

Voila, j'ai une base de donnée dont laquelle j'ai placé des contrôles (textbox, combobox, etc...) et je voudrais savoir s'il y a une méthode de Find ou recherche qui me permet de trouver facilement les codes dans la BD.

Exemple:
SUpposons que j'ai des codes suivant:
ABGT012515
CBJJAO2255
CAKJIJIII22
AAHHSHSHSS

Si je tape dans la zone de texte recherche code, le caractère A, il me positionne directement sur le champ qui contient A, et puis si je continue AA, il doit positionner sur AA, et ainsi de suite pour le reste des caractères.
Avez-vous une idée ?.

C'est plus pratique quand t'il s'agit d'une BD importante ?.

[eikeshi]

Tu peux utiliser la méthode StartsWith(Value As String) As Boolean.
Par exemple, tu places tes données dans un DataGrid puis tu crées une TextBox pour ta recherche et sur l'évènement KeyUp tu mets le code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox.KeyUp
     For i As Integer = 0 To DataGrid.Rows.Count - 1
          If DataGrid.Item(1, i).Value.ToString.StartsWith(TextBox.Text) Then
               DataGrid.Item(1, i).Selected = True
               Exit Sub
          End If
     Next
End Sub

[dahmane2007]

Je vais essayer ca aujourdh'hui et te tiendrait au courant.
Merci beaucoup !!

[dahmane2007]

Ca marche pas sous VB Net 2008; Il me donne des erreurs sur DataGrid.Rows.
Merci

[eikeshi]

Pourtant je suis sure de mon coup, fais moi voir ton code s'il te plait.

[dahmane2007]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub txtRecherche_KeyUp(ByVal sender As Object, _
                                   ByVal e As System.Windows.Forms.KeyEventArgs) _
                                   Handles txtRecherche.KeyUp
        For i As Integer = 0 To DataGrid.Rows.Count - 1
            If DataGrid.Item(1, i).Value.ToString.StartsWith(TextBox.Text) Then
                DataGrid.Item(1, i).Selected = True
                Exit Sub
            End If
        Next

    End Sub

VB Net me donne des erreurs pour DataGrid (caractère en Gras)