01.
Private
Sub
SearchButton_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
SearchButton.Click
02.
UseConnectDatabase()
03.
Dim
sql
As
String
=
"select * from alcohol where al_no like '%"
& SearchTextBox.Text &
"%' order by al_id asc"
04.
Dim
cmd
As
New
MySqlCommand(sql, MyConnect)
05.
adapter =
New
MySqlDataAdapter(cmd)
06.
07.
If
Not
(data.Tables(
"alcohol"
)
Is
Nothing
)
Then
08.
data.Tables(
"alcohol"
).Clear()
09.
End
If
10.
adapter.Fill(data,
"alcohol"
)
11.
AlcoholDataGridView.DataSource = data.Tables(
"alcohol"
)
12.
13.
End
Sub