01.
Private
Sub
GridView_promotion_RowUpdating(sender
As
Object
, e
As
GridViewUpdateEventArgs)
Handles
GridView_promotion.RowUpdating
02.
03.
04.
Dim
cap_product_id
As
String
= GridView_promotion.DataKeys(e.RowIndex).Item(0).ToString
05.
Dim
cap_min
As
Decimal
=
CType
(GridView_promotion.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Text
06.
Dim
cap_max
As
Decimal
=
CType
(GridView_promotion.Rows(e.RowIndex).Cells(5).Controls(0), TextBox).Text
07.
Dim
cap_dis
As
Decimal
=
CType
(GridView_promotion.Rows(e.RowIndex).Cells(7).Controls(0), TextBox).Text
08.
09.
10.
If
InsertProduct(cap_product_id, cap_min, cap_max, cap_dis)
Then
11.
Using sqlconn
As
New
OleDbConnection(ConfigurationManager.ConnectionStrings(
"ConnectionString"
).ConnectionString)
12.
Dim
cmd
As
New
OleDbCommand()
13.
cmd.Connection = sqlconn
14.
15.
cmd.CommandText =
"UPDATE promotion SET min_price = ?, max_price = ?, discount = ? WHERE promotion_id = ?"
16.
cmd.CommandType = CommandType.Text
17.
18.
Dim
strpromotion_id
As
String
= GridView_promotion.DataKeys(e.RowIndex).Item(0).ToString
19.
Dim
a
As
TextBox = GridView_promotion.Rows(e.RowIndex).Cells(4).Controls(0)
20.
21.
Dim
strminP
As
Decimal
=
CType
(GridView_promotion.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Text
22.
Dim
strmaxP
As
Decimal
=
CType
(GridView_promotion.Rows(e.RowIndex).Cells(5).Controls(0), TextBox).Text
23.
Dim
strDis
As
Decimal
=
CType
(GridView_promotion.Rows(e.RowIndex).Cells(7).Controls(0), TextBox).Text
24.
25.
26.
27.
cmd.Parameters.Add(
"@p_min"
, OleDbType.
Decimal
).Value = strminP
28.
cmd.Parameters.Add(
"@p_max"
, OleDbType.
Decimal
).Value = strmaxP
29.
cmd.Parameters.Add(
"@p_dis"
, OleDbType.
Decimal
).Value = strDis
30.
cmd.Parameters.Add(
"@p_id"
, OleDbType.
Integer
).Value = strpromotion_id
31.
sqlconn.Open()
32.
cmd.ExecuteNonQuery()
33.
sqlconn.Close()
34.
End
Using
35.
GridView_promotion.EditIndex = -1
36.
BindGridView()
37.
lblAdd.Visible =
True
38.
39.
Else
40.
Response.Write(
"โปรโมชั่นซ้ำ!!! ลองใส่ใหม่อีกทีละกัน "
)
41.
42.
End
If
43.
44.
45.
46.
End
Sub