Discussion :

[dalinho84]

Bonjour,

Je voudrais savoir comment faire (avec vb.net 2010) pour effectuer une saisie semi-automatique à partir d'un TextBox. Lorsque l'utilisateur commence a taper dans le textbox l'application affiche dans une listbox en-dessous, l'ensemble des choix possibles correpondant à la sélection de l'utilisateur a partir d'une base "BD1" table "CLIENT" et colonne "NOM" réaliser avec SQL server. Au fur et a mesure que l'utilisateur tape des caracteres dans le textbox, les choix dans la listbox se restreindrent.

Merci de m'aider

[sihammaster]

Salut!!
Alors..voila la demarche:

-Tu dois positionner un listbox en dessous de ta textbox
-Donner visible=false au listbox

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
 
  Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
  If Me.TextBox1.Text <> "" Then
                conn()
                Dim sql = "select * from tatable where nom like '" &  TextBox1.Text & "%'"
                Dim dta As New SqlDataAdapter(sql, con)
                Dim dtt As New DataTable
                dta.Fill(dtt)
                dta.Dispose()
                If dtt.Rows.Count <> 0 Then
                    Dim sqlcommande As New SqlCommand
                    Dim rd As SqlDataReader
                    sqlcommande.CommandText = "select * from tatable where nom like '" & TextBox1.Text & "%'"
                    sqlcommande.Connection = con
                    rd = sqlcommande.ExecuteReader
                    ListBox1.Items.Clear()
                    While rd.Read
                        ListBox1.Items.Add(rd(1))
                    End While
                    rd.Close()
                    disconn()
                    ListBox1.Visible = True
                Else
                    ListBox1.Visible = False
                End If
            End If
End Sub

et dans l'evenement selectedIndexChanged de listbox:

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
 
  Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
    TextBox1.Text = ListBox1.SelectedItem
            ListBox1.Visible = False
            conn()
            Dim cd As New SqlCommand("select * from tatable where nom=@Nom", con)
            Dim rd As SqlDataReader
            cd.Parameters.Add(New SqlParameter("@Nom", SqlDbType.VarChar, 50))
            cd.Parameters("@Nom").Value = (TextBox1.Text)
            rd = cd.ExecuteReader
            While rd.Read
                TextBox1.Text = rd(1)
            End While
            rd.Close()
            disconn()
end sub

[fmmjwcn]

Bonsoir:

Vous devez modifier la propriété "AutoCompleteMode" de ton TextBox et la mettre: "Suggest", et la propriété AutoCompleteSource: "CustomSource"

Et dans l'événement Textchanged du TextBox vous devez taper le code suivant:

'Après Avoir déclarer :

Code :

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

1
2
3
Dim Cn As New OleDbConnection("LA chaine de connexion")
    Dim Cmd As OleDbCommand
    Dim Dr As OleDbDataReader

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
 
Private Sub TxtNom_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNom.TextChanged
 
        Cmd = New OleDbCommand("Select Champs from TaTable", Cn)
 
        Cn.Open()
        Dr = Cmd.ExecuteReader
 
        While Dr.Read
            TxtNom.AutoCompleteCustomSource.Add(Dr(0))
        End While
 
        Dr.Close()
        Cn.Close()
    End Sub

Je vous ai ataché un exemple.
Bonne chance

[fmmjwcn]

désolé l'exemple avec une BD access, mais c'est la même methode pour SQL

[goth25]

Comment faire si nous avons 2 champs dans la base de donnée

Ex : Nom Prenom


Et que nous voulons qu'il fasse sa saisie semi-automatique dans les deux champs, que l'on commence par entrer le nom ou le prenom qu'il nous le suggère au complet ?


Cordialement