01.
Dim
RSDay
As
Date
02.
Dim
ExpDay
As
Date
03.
04.
sqlAdd =
"INSERT INTO Info_All(Reserve_No,Store_ID,Rent_No,Store_Name,Reserve_Format,Reserve_Category,Store_Size,Rent_Cash,Reserve_Day,Expire_Day)"
& _
05.
" VALUES(@Reserve_No,@Store_ID,@Rent_No,@Store_Name,@Reserve_Format,@Reserve_Category,@Store_Size,@Rent_Cash,@Reserve_Day,@Expire_Day)"
06.
07.
cmd =
New
System.Data.SqlClient.SqlCommand(strAdd, connection)
08.
09.
With
cmd
10.
.Parameters.AddWithValue(
"@Reserve_No"
, txtRS1_No.Text)
11.
.Parameters.AddWithValue(
"@Store_ID"
, txtStoreID.Text)
12.
.Parameters.AddWithValue(
"@Rent_No"
, txtRentNo.Text)
13.
.Parameters.AddWithValue(
"@Store_Name"
, txtNameStore.Text)
14.
.Parameters.AddWithValue(
"@Reserve_Format"
, rdb1.Text)
15.
.Parameters.AddWithValue(
"@Reserve_Category"
, rdb5.Text)
16.
.Parameters.AddWithValue(
"@Store_Size"
, txtStore_Size.Text)
17.
.Parameters.AddWithValue(
"@Rent_Cash"
, txtCash.Text)
18.
19.
.Parameters.AddWithValue(
"@Reserve_Day"
, RSDay.
Date
)
20.
.Parameters.AddWithValue(
"@Expire_Day"
, ExpDay.
Date
)
21.
22.
.CommandType = CommandType.Text
23.
.CommandText = sqlAdd
24.
.Connection = connection
25.
.ExecuteNonQuery()
26.
End
With