1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Private Sub textbox1_TextChanged(sender As Object, e As EventArgs) Handles textbox1.TextChanged
c = New connexion
cn = c.ConnecterSte
da4 = New SqlDataAdapter("select * from TSociete where CSociete like '%" & textbox1.Text & "%' order by CSociete", cn)
c.ds3.Clear()
da4.Fill(c.ds3, "tabTSTE")
Dim col1 As New AutoCompleteStringCollection
Dim m As Integer
For m = 0 To c.ds3.Tables("tabTSTE").Rows.Count - 1
MsgBox(c.ds3.Tables("tabTSTE").Rows(m)(0).ToString())
col1.Add(c.ds3.Tables("tabTSTE").Rows(m)(0).ToString())
Next
textbox1.AutoCompleteSource = AutoCompleteSource.CustomSource
textbox1.AutoCompleteCustomSource = col1
textbox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
End Sub |
