How to read a DataSet?

[D. Shane Fowlkes]

How can I loop through the rows of a DataSet and send the "fields" to the
Function as I've attempted to do in my code? Error is at "While
dsLineItems.Rea d()" . I'm trying to construct a Sub which builds a DataSet
and loops through the records or "rows" of the DataSet and call a Function
for each row found. The Function will insert the data into another table.
(Essentially what I'm doing is pulling records from one Temp working table
and inserting them into another indentical table). About a week ago, I asked
about how to read data from one table and insert it into another. I was
considering a multi-dim array but someone suggested I just use a DataSet. It
seemed like a simpler approach so that's why I'm using a DS to store data
from one table to be inserted into another.

Thanks!

Sub ReadTempLineIte ms(intNewReqID As Integer)
Dim objConnection As SqlConnection
Dim adpData As SqlDataAdapter
Dim dsLineItems As DataSet

Dim strConnectStrin g As String
Dim strSQL As String

strConnectStrin g =
System.Configur ation.Configura tionSettings.Ap pSettings("SqlC onnection")
strSQL = "SELECT * FROM POItemsTemp WHERE PurchaseOrderID = " &
Session("intReq ID")

dsLineItems = New DataSet()
objConnection = New SqlConnection(s trConnectString )
adpData = New SqlDataAdapter( strSQL, objConnection)
adpData.Fill(ds LineItems, "LineItems" )

While dsLineItems.Rea d() <---- Error
InsertLineItems (intNewReqID, dsLineItems("Bu dgetID"),
dsLineItems("Al locAmt"), dsLineItems("De scription"),
dsLineItems("Qu antity"), dsLineItems("UO M"), dsLineItems("Un itPrice"))
End While

drLineItems.Clo se()
objConnection.C lose()

End Sub

[Scott Allen]

Hi Shane:

One thing to be careful about is that a DataSet doesn't contain rows but
contains a collection of DataTable objects and the DataTable objects contain
rows.

Something along the lines of:

Dim dsLineItems As DataSet = New DataSet()

' fill dsLineItems...

Dim row As DataRow
For Each row in dsLineItems.Tab les(0).Rows
' do work, i.e. row("Quantity") = x * y
Next

HTH,

--
Scott
http://www.OdeToCode.com/blogs/scott/

How can I loop through the rows of a DataSet and send the "fields" to
the Function as I've attempted to do in my code? Error is at "While
dsLineItems.Rea d()" . I'm trying to construct a Sub which builds a
DataSet and loops through the records or "rows" of the DataSet and
call a Function for each row found. The Function will insert the data
into another table. (Essentially what I'm doing is pulling records
from one Temp working table and inserting them into another indentical
table). About a week ago, I asked about how to read data from one
table and insert it into another. I was considering a multi-dim array
but someone suggested I just use a DataSet. It seemed like a simpler
approach so that's why I'm using a DS to store data from one table to
be inserted into another.

Thanks!

Sub ReadTempLineIte ms(intNewReqID As Integer)

Dim objConnection As SqlConnection
Dim adpData As SqlDataAdapter
Dim dsLineItems As DataSet
Dim strConnectStrin g As String
Dim strSQL As String
strConnectStrin g =
System.Configur ation.Configura tionSettings.Ap pSettings("SqlC onnection"
) strSQL = "SELECT * FROM POItemsTemp WHERE PurchaseOrderID = " &
Session("intReq ID")

dsLineItems = New DataSet()
objConnection = New SqlConnection(s trConnectString )
adpData = New SqlDataAdapter( strSQL, objConnection)
adpData.Fill(ds LineItems, "LineItems" )
While dsLineItems.Rea d() <---- Error
InsertLineItems (intNewReqID, dsLineItems("Bu dgetID"),
dsLineItems("Al locAmt"), dsLineItems("De scription"),
dsLineItems("Qu antity"), dsLineItems("UO M"), dsLineItems("Un itPrice"))
End While

drLineItems.Clo se()
objConnection.C lose()
End Sub