Saisie semi-automatique a partir d'une BD avec textbox

Version imprimable

03/03/2011, 14h33
dalinho84

Saisie semi-automatique a partir d'une BD avec textbox

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

Salut!!
Alors..voila la demarche:

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

Code:

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:

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

1 pièce(s) jointe(s)

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:

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

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

03/03/2011, 19h21
fmmjwcn

désolé l'exemple avec une BD access, mais c'est la même methode pour SQL
29/05/2013, 03h16
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