| Код |
Dim objDT As System.Data.DataTable
Dim objDR As System.Data.DataRow
Private
Sub Page_Load(s As Object, e As EventArgs)
objDT = Session(
"Cart")
dg.DataSource = objDT
dg.DataBind()
End
Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim nwind As New SqlConnection("connection info")
Dim custsInsCmd As SqlClient.SqlCommand
Dim custRow As DataRow
Dim sql As String
custsInsCmd = nwind.CreateCommand()
For Each custRow In objDT.Rows
sql = "INSERT INTO rma_items (part, rma_id) VALUES ('" & custRow("Product") & "', '1')"
custsInsCmd.CommandText = sql
custsInsCmd.ExecuteNonQuery()
nwind.Close()
Next
End Sub
|
|