[求助]shopping cart的问题


我想说能否按了confirm button后，cart里所有的资料都能存入database（access）里,这有可能实现吗？
我做过但只能将textbox里的资料存入而不是cart里的资料。

回复：（wcchyau）[求助]shopping cart的问题

这是cart的code：

Dim objDT As System.Data.DataTable
Dim objDR As System.Data.DataRow

Private Sub Page_Load(s As Object, e As EventArgs)
If Not IsPostBack Then
makeCart()
End If
End Sub

Function makeCart()
objDT = New System.Data.DataTable("Cart")
objDT.Columns.Add("ID", GetType(Integer))
objDT.Columns("ID").AutoIncrement = True
objDT.Columns("ID").AutoIncrementSeed = 1
objDT.Columns.Add("Quantity", GetType(Integer))
objDT.Columns.Add("Product", GetType(String))
Session("Cart") = objDT
End Function

Sub AddToCart(s As Object, e As EventArgs)
objDT = Session("Cart")
objDR = objDT.NewRow
objDR("Quantity") = txtQuantity.Text
objDR("Product") = txtProduct.Text
objDT.Rows.Add(objDR)
Session("Cart") = objDT
dg.DataSource = objDT
dg.DataBind()
End Sub

Sub Delete_Item(s As Object, e As DataGridCommandEventArgs)
objDT = Session("Cart")
objDT.Rows(e.Item.ItemIndex).Delete()
Session("Cart") = objDT
dg.DataSource = objDT
dg.DataBind()
End Sub

Sub AddRecord(ByVal Sender As Object, ByVal E As EventArgs)
objDT = Session("Cart")
objDR = objDT.NewRow
objDR("Quantity") = txtQuantity.Text
objDR("Product") = txtProduct.Text
objDT.Rows.Add(objDR)
Session("Cart") = objDT

Dim objConn As New oleDbConnection
Dim sqlCmd as String
Dim objCmd As New OleDbCommand(sqlCmd,objConn)
objConn.C
objConn.ConnectionString+= "Data Source= " & Server.MapPath("Customers.mdb")
sqlCmd = "INSERT INTO product (ID, Categories) VALUES (@ID, @Categories)"
objCmd = New OleDbCommand(sqlCmd, objConn)
objCmd.Parameters.Add("@ID",objDR("Quantity"))
objCmd.Parameters.Add("@Categories", objDR("Product"))

objConn.Open()
objCmd.ExecuteNonQuery()
objConn.Close()
End Sub

这是我confirm button的code,我也知道这样子做的话只会存入textbox里的资料，所以想问问该怎么才能存入cart里所有的资料。

没人帮忙吗？
我从一个网站上看到大概是这样。
for (int x = 0; x < objDT.Rows.Count; x++) {
string sql = "INSERT INTO product (ID, Categories) VALUES ('" + objDT.Rows[x]["Quantity"].ToString() + "', '" + objDT.Rows[x]["Product"].ToString() + "')";

// execute sql here
}

但这是c#的，当我换去vb时就有error了，我该怎么做呢？
for x = 0 to objDT.Rows.Count
sqlCmd = "INSERT INTO product (ID, Categories) VALUES ( @ID , @Categories )"
objCmd = New OleDbCommand(sqlCmd, objConn)
objCmd.Parameters.Add("@ID",objDT.Rows[x]["Quantity"].ToString())
objCmd.Parameters.Add("@Categories", objDT.Rows[x]["Product"].ToString())

Compiler Error Message: BC32017: Comma, ')', or a valid expression continuation expected.

你在for循環中放入參數後，有沒有執行？

我的意思是說，你在循環中將得到的某行記錄的值放到SQL中後，有沒有執行？

要麼，你將後面的操作代碼全部寫出來，不要寫一半。

这就是我全部的操作代码：
Dim objDT As System.Data.DataTable
Dim objDR As System.Data.DataRow

Private Sub Page_Load(s As Object, e As EventArgs)
If Not IsPostBack Then
makeCart()
End If
End Sub

Function makeCart()
objDT = New System.Data.DataTable("Cart")
objDT.Columns.Add("ID", GetType(Integer))
objDT.Columns("ID").AutoIncrement = True
objDT.Columns("ID").AutoIncrementSeed = 1

objDT.Columns.Add("Quantity", GetType(Integer))
objDT.Columns.Add("Product", GetType(String))

Session("Cart") = objDT
End Function

Sub AddToCart(s As Object, e As EventArgs)

objDT = Session("Cart")
if objDT.rows.Count <3 then
objDR = objDT.NewRow
objDR("Quantity") = txtQuantity.Text
objDR("Product") = txtProduct.Text
objDT.Rows.Add(objDR)
else
Label5.Text = "sorry,you only allow to add three item to the cart at once"
end if
Session("Cart") = objDT

dg.DataSource = objDT
dg.DataBind()

txtQuantity.text = ""
txtProduct.text = ""


End Sub



Sub Delete_Item(s As Object, e As DataGridCommandEventArgs)
objDT = Session("Cart")
objDT.Rows(e.Item.ItemIndex).Delete()
Session("Cart") = objDT

dg.DataSource = objDT
dg.DataBind()


End Sub


Sub AddRecord(ByVal Sender As Object, ByVal E As EventArgs)
Dim objConn As New oleDbConnection
Dim sqlCmd as String
Dim objCmd As New OleDbCommand(sqlCmd,objConn)
Dim x as integer
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"
objConn.ConnectionString+= "Data Source= " & Server.MapPath("Account.mdb")
objDT = Session("Cart")

for x = 0 to objDT.Rows.Count -1
sqlCmd = "INSERT INTO ordered (Product, Quantity) VALUES ( @Product , @Quantity )"
objCmd = New OleDbCommand(sqlCmd, objConn)
objCmd.Parameters.Add("@Product", objDT.Rows(x)!Product.ToString())
objCmd.Parameters.Add("@Quantity",objDT.Rows(x)!Quantity.ToString())

next
Session("Cart") = objDT
objConn.Open()
objCmd.ExecuteNonQuery()
objConn.Close()


End Sub

最后修改的版本有执行，但只讲最后一项的item加入，而不能将全部item都加入database里。
比如说我add了三个item在cart里，但当confirm时只有最后一项的item加入database.