01.
02.
strSQL =
"INSERT INTO bill (billID,table_no,bill_total_price,date,time)VALUES('','"
& lblTableNo.Text &
"','"
& lblTotalPrice.Text &
"','"
& lblDate.Text &
"','"
& lblTime.Text &
"' )"
03.
objCmd =
New
MySql.Data.MySqlClient.MySqlCommand()
04.
With
objCmd
05.
.Connection = objConn
06.
.Transaction = Trans
07.
.CommandType = CommandType.Text
08.
.CommandText = strSQL
09.
End
With
10.
objCmd.ExecuteNonQuery()
11.
12.
13.
For
i = 0
To
lvPayment.Items.Count - 1
14.
strSQL =
"INSERT INTO bill_detail (bill_detailID,billID,product_name,item,product_total_price) VALUES('','"
& lblฺBillID.Text &
"', "
& lvPayment.Items(i).SubItems(0).Text &
"', '"
& lvPayment.Items(i).SubItems(1).Text &
"','"
& lvPayment.Items(i).SubItems(2).Text &
"')"
15.
objCmd =
New
MySql.Data.MySqlClient.MySqlCommand()
16.
With
objCmd
17.
.Connection = objConn
18.
.Transaction = Trans
19.
.CommandType = CommandType.Text
20.
.CommandText = strSQL
21.
End
With
22.
objCmd.ExecuteNonQuery()
23.
Next