Rechercher un code.

Version imprimable

09/12/2008, 23h56
dahmane2007

Rechercher un code.

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 ?.

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:

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

10/12/2008, 11h27
dahmane2007

Je vais essayer ca aujourdh'hui et te tiendrait au courant.
Merci beaucoup !!
10/12/2008, 11h49
dahmane2007

Ca marche pas sous VB Net 2008; Il me donne des erreurs sur DataGrid.Rows.
Merci
10/12/2008, 13h01
eikeshi

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

Code:

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)

10/12/2008, 14h48
dahmane2007

En plus, VB Net me dit que l'instruction If Data ..., trop d'arguments.

Citation:
Envoyé par dahmane2007
Code:

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)
Tu sais, je t'ai donné un exemple, il faut quand même faire l'effort de remplacer les objets par rapport à ton projet.
Ta TextBox s'appelle txtRecherche, donc dans ton code tu dois utiliser ta TextBox.

Exemple:
Code:

1 2 3 4 5 6 7 8 Private Sub txtRecherche_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtRecherche.KeyUp For i As Integer = 0 To TonDataGrid.Rows.Count - 1 If TonDataGrid.Item(1,i).Value.ToString.StartsWith(txtRecherche.Text)Then TonDataGrid.Item(1, i).Selected = True Exit Sub End If Next End Sub
Voila il te suffit juste de remplacer TonDataGrid par le nom que tu as donné à ton DataGrid et peut-être remplacer les 1 à TonDataGrid.Item(1,i) si tes données ne se trouve pas dans la premiere colonne.

10/12/2008, 16h05
dahmane2007

C'est bon, j'ai trouvé une autre solution et ca marche trés bien.
Merci pour toutes les réponses.
10/12/2008, 16h13
eikeshi

Citation:

Envoyé par dahmane2007

C'est bon, j'ai trouvé une autre solution et ca marche trés bien.
Merci pour toutes les réponses.

Ok mais si tu essayes ma solution tu verras qu'elle fonctionne aussi, peut être pas aussi bien que celle que tu as trouvée mais elle fonctionne.
10/12/2008, 18h33
dahmane2007

Citation:

Envoyé par eikeshi

Ok mais si tu essayes ma solution tu verras qu'elle fonctionne aussi, peut être pas aussi bien que celle que tu as trouvée mais elle fonctionne.

C'est sûr que je vais essayer ta procédure.
Merci.

Bonjour

Bonjour à tous,

Je recherche le script pour pouvoir redémarrer mon ordinateur.

Je m'explique.

Je vais avoir un bouton vb 2005.
Et je voudrais que quand je clique sur le bouton, mon ordinateur redémarre. Je sais que l'on peut utiliser un shutdown.

J'ai déjà utiliser ce script :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Sub Eteindre_Windows() Dim Arg As String Arg = "rundll32.exe user.exe,restartwindows" Call Shell(Arg) End Sub Sub Bouton1 Call Eteindre_Windows() 'Windows redémarre End Sub
Mais il m'affiche qu'il y a une erreur sur user.exe. Donc ca ne fonctionne pas.

Sachant que ce n'est pas les popriètés du Sub Bouton1 car je l'ai ai enlever

Pouvez m'aider sur cette question, svp ????

Merci d'avance.

Bonne Année

19/01/2009, 16h43
Bonne Année
Bonjour,

Non c'est bon, j'ai trouver un code qui me permet d'arrêter mon ordinateur.

C'est assez bourin mais, je l'ai chopper dans un site. C'est pas mal, tenez pour les prochains :
Code:

1 2 3 4 AppActivate("program manager") System.Threading.Thread.Sleep(500) SendKeys.Send("%{F4}{TAB}{TAB}{ENTER}")
...
22/01/2009, 17h13
Bonne Année

Mais si vous avez une autre manière de pouvoir le fermer... Et bien, je le prendrais.

Merci d'avance

Bonne Année