01.
strConnString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\database.mdb"
02.
objConn.ConnectionString = strConnString
03.
objConn.Open()
04.
05.
06.
strSQL =
"INSERT INTO orders (OrderDate,Name,Address,Tel,Email) "
& _
07.
" VALUES "
& _
08.
" (@sOrderDate,@sName,@sAddress,@sTel,@sEmail)"
09.
10.
Dim
objCmd
As
New
OleDbCommand(strSQL, objConn)
11.
objCmd.Parameters.Add(
"@sOrderDate"
, OleDbType.
Date
).Value = Now()
12.
objCmd.Parameters.Add(
"@sName"
, OleDbType.VarChar).Value =
Me
.txtName.Text
13.
objCmd.Parameters.Add(
"@sAddress"
, OleDbType.VarChar).Value =
Me
.txtAddress.Text
14.
objCmd.Parameters.Add(
"@sTel"
, OleDbType.VarChar).Value =
Me
.txtTel.Text
15.
objCmd.Parameters.Add(
"@sEmail"
, OleDbType.VarChar).Value =
Me
.txtEmail.Text
16.
objCmd.ExecuteNonQuery()
17.
18.
19.
strSQL =
"SELECT Max(OrderID) As sOrderID FROM orders "
20.
dtAdapter =
New
OleDbDataAdapter(strSQL.ToString(), objConn)
21.
dtAdapter.Fill(dt1)
22.
If
dt1.Rows.Count > 0
Then
23.
strOrderID = dt1.Rows(0)(
"sOrderID"
)
24.
End
If
25.
26.
27.
dt2 =
DirectCast
(Session(
"myCart"
), DataTable)
28.
For
i = 0
To
dt2.Rows.Count - 1
29.
strSQL =
"INSERT INTO orders_detail (OrderID,ProductID,Qty) "
& _
30.
" VALUES "
& _
31.
" ('"
& strOrderID &
"','"
& dt2.Rows(i)(
"ProductID"
) &
"','"
& dt2.Rows(i)(
"Qty"
) &
"')"
32.
With
objCmd
33.
.Connection = objConn
34.
.CommandText = strSQL
35.
.CommandType = CommandType.Text
36.
.ExecuteNonQuery()
37.
End
With
38.
Next
39.
40.
objConn.Close()
41.
objConn =
Nothing