Solved

Inserting rows from DataTable into SQL Server database table

Posted on 2008-10-16
9
2,228 Views
Last Modified: 2012-05-05
I am building a web site in ASP.NET with VB.NET on MS Visual Web Developer .NET.  After an online customers add products to the shopping cart (I'm using a DataTable) and is going through the Checkout process, I need help to insert the details from each row of the datatable into the Orders_detail table of my SQL Server 2005 database.

I start off with Page_Load event:
If Not IsNothing(Session("Cart")) Then
            objDT = Session("Cart")
           
            dg.DataSource = objDT
            dg.DataBind()
            ...
End If

I try to go through each datarow:
 For intCounter = 0 To objDT.Rows.Count - 1
            objDR = objDT.Rows(intCounter)
            strSKU = objDR("SKU")
        Next
But that throws an error.
And once I set each variable to the values in each field of the datatable, I insert it into the database:
Dim AddOrdersDetail As String = "Insert into orders_detail (id, sku, product_name, price, qty) Values ('ShoppingCartNr','sku','product_name','price','qty')"
        Dim Cmd7 As New SqlCommand(AddOrdersDetail, MyConn)
        MyConn.Open()
        Cmd7.ExecuteNonQuery()
        MyConn.Close()
0
Comment
Question by:OVC-it-guy
  • 6
  • 2
9 Comments
 

Author Comment

by:OVC-it-guy
ID: 22734776
I'm thinking I probably need something like this:

For Each objDR In objDT.Rows
            strSKU = objDR("Sku")
            strProduct = objDR("Product")
            strPrice = objDR("Cost")
            strQty = objDR("Quantity")
            Dim AddOrdersDetail As String = "Insert into orders_detail (id, sku, product_name, price, qty) Values ('ShoppingCartNr','strSKU','strProduct','strPrice','strQty')"
            Dim Cmd7 As New SqlCommand(AddOrdersDetail, MyConn)
            MyConn.Open()
            Cmd7.ExecuteNonQuery()
            MyConn.Close()
        Next
0
 
LVL 18

Expert Comment

by:UnifiedIS
ID: 22734789
What error do you get when you are cycling through your data rows?
You'll need to fix up your values section of the insert string also.  
0
 
LVL 18

Accepted Solution

by:
UnifiedIS earned 500 total points
ID: 22734811
Dim AddOrdersDetail As String = "Insert into orders_detail (id, sku, product_name, price, qty) Values ('" & ShoppingCartNr & "', '" & strSKU & "', '" & strProduct & "', '" & strPrice & "', '" & strQty & "')"

You can't just put single quotes around a string variable
0
Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

 

Author Comment

by:OVC-it-guy
ID: 22734834
Something about it not being a collection or array or similar.  I went with the For Each objDR In objDT.Rows and got past the error.  Ok, fixing my string variables.
0
 

Author Comment

by:OVC-it-guy
ID: 22734933
And here's what it looks like now:
For Each objDR In objDT.Rows
            strSKU = objDR("Sku")
            strProduct = objDR("Product")
            strPrice = objDR("Cost")
            strQty = objDR("Quantity")
            Dim AddOrdersDetail As String = "Insert into orders_detail (id, sku, product_name, price, qty) Values ('" & ShoppingCartNr & "','" & strSKU & "','" & strProduct & "','" & strPrice & "','" & strQty & "')"
            Dim Cmd7 As New SqlCommand(AddOrdersDetail, MyConn)
            MyConn.Open()
            Cmd7.ExecuteNonQuery()
            MyConn.Close()
        Next
0
 

Author Comment

by:OVC-it-guy
ID: 22735762
Ran into other errors (unrelated to this) that I have to clear before I know whether this works or not.
0
 

Author Comment

by:OVC-it-guy
ID: 22754780
Ok, still got a problem.  The code above (here in snippet) is only putting the first item/row from my shopping cart (datatable) into the orders table.  It's missing subsequent rows.  Help?
Dim strSKU As String
Dim strProduct As String
Dim strPrice As Decimal
Dim strQty As Decimal
        
        For Each objDR In objDT.Rows
            strSKU = objDR("Sku")
            strProduct = objDR("Product")
            strPrice = objDR("Cost")
            strQty = objDR("Quantity")
            
            Dim myCmd9 As New SqlCommand
            myCmd9.Connection = myConn2
            myCmd9.CommandType = CommandType.Text
            myCmd9.CommandText = "Insert into orders_detail (id, sku, product_name, price, qty) Values ('" & cartNr & "','" & strSKU & "','" & strProduct & "','" & strPrice & "','" & strQty & "')"
            myConn2.Open()
            myCmd9.ExecuteNonQuery()
            myConn2.Close()
        Next

Open in new window

0
 

Author Comment

by:OVC-it-guy
ID: 22754856
Not sure what I changed to make it right, but it's working now.
0
 
LVL 59

Expert Comment

by:Kevin Cross
ID: 22754857
What is the key to the table orders_detail?  Is it the id or is it the id and sku combination?

Since you are passing the cartNr as id, so just checking to see if the subsequent rows are failing because the id already exists.  Given this is a cart, it makes sense that the cartNr should repeat for each different sku in the cart but make sure the database structure matches this.

Kev
0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
SYbase 4 24
List<PaisEntity> - show some 1 22
SQL Server - Set Field Values ito Zero Based on Related Table 4 21
Query group by data in SQL Server - cursor? 3 28
Introduction This article shows how to use the open source plupload control to upload multiple images. The images are resized on the client side before uploading and the upload is done in chunks. Background I had to provide a way for user…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

815 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now