01.
Option
Explicit
On
02.
Imports
System.Data
03.
Imports
System.Data.OleDb
04.
Imports
System.Data.SqlClient
05.
06.
Public
Class
Sale_DogList
07.
08.
Private
Sub
Refresh_Grid()
09.
10.
Dim
d_adap
As
SqlDataAdapter
11.
Dim
d_set
As
DataSet
12.
d_set =
New
DataSet
13.
14.
d_adap =
New
SqlDataAdapter(
"Select Dog_ID,Dog_Name,Dog_Sex,Dog_Color,Dog_Price "
& _
15.
" from Kennel_Dog Where Dog_Status = 'SA' "
, sqlConnection)
16.
17.
d_adap.Fill(d_set,
"Kennel_Dog"
)
18.
DataGridView.DataSource = d_set.Tables(
"Kennel_Dog"
)
19.
20.
DataGridView.Columns(
"Dog_ID"
).DisplayIndex = 0
21.
DataGridView.Columns(
"Dog_Name"
).DisplayIndex = 1
22.
DataGridView.Columns(
"Dog_Sex"
).DisplayIndex = 2
23.
DataGridView.Columns(
"Dog_Color"
).DisplayIndex = 3
24.
DataGridView.Columns(
"Dog_Price"
).DisplayIndex = 4
25.
26.
DataGridView.Columns(
"Dog_ID"
).HeaderText =
"รหัสสุนัข"
27.
DataGridView.Columns(
"Dog_Name"
).HeaderText =
"ชื่อ"
28.
DataGridView.Columns(
"Dog_Sex"
).HeaderText =
"เพศ"
29.
DataGridView.Columns(
"Dog_Color"
).HeaderText =
"สี"
30.
DataGridView.Columns(
"Dog_Price"
).HeaderText =
"ราคา"
31.
32.
DataGridView.Columns(
"Dog_ID"
).Width = 70
33.
DataGridView.Columns(
"Dog_Name"
).Width = 140
34.
DataGridView.Columns(
"Dog_Sex"
).Width = 40
35.
DataGridView.Columns(
"Dog_Color"
).Width = 100
36.
DataGridView.Columns(
"Dog_Price"
).Width = 90
37.
38.
39.
Private
Sub
Form13_1_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
40.
41.
Refresh_Grid()
42.
43.
End
Sub
44.
45.
Private
Sub
bt_Add_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
bt_Add.Click
46.
For
i
As
Integer
= 0
To
DataGridView.Rows.Count - 1
47.
If
DataGridView.Rows(i).Selected
Then
48.
MsgBox(DataGridView.Rows(i).Cells(0).Value)
49.
End
If
50.
Next
51.
52.
End
Sub