1 2 3 4 5 6 7 8 9 10 11
| sub textbox1_textChanged()
dim en as new List(Of Article)
Oledbcommand1.commandText="select Code,Désignation,TVA,Famille From Articles Where Désignation like '" & textbox1.text & "*'"
Oledbcommand1.Connection=MaConnection
MaConnection.Open
OleDbDataReader1=OleDbCommand1.ExecReader
while OleDbDAtaReader1.read
en.add(new Article(OleDbDataReader1.getValue(0),OleDbDataReader1.GetValue(1),OleDbDataReader1.GetValue(2),OleDbDataReader1.GetValue(3)))
endWhile
MaConnection.close
MonDataGridView1.Datasource=en |