Read data from DataTable on page_load. How?

[D. Shane Fowlkes]

I have a function that is called in page_load and the purpose of this
function is to look up basic data in a MSSQL table and return it in the form
of a datatable. The page_load will read the data and then fill a few simple
labels.

**Assuming** that I wrote the function properly, how exactly can I write the
page_load sub to read the data from the function? I've tried a few examples
from a couple of books I have but can't seem to get a working model. I'll go
back and add try/catch to the function later once the basics are in place
and working.

Help and assistance would GREATLY be appreciated! I'm having trouble
reading the data in the page_load sub. Using ASP/VB .NET 2.


Protected Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)

Dim dtAppData As DataTable
Dim dtRow As DataRow
Dim dsCapData As DataSet
Dim intDaysLeft As Integer
Dim strCloseDate As String

dsCapData = New DataSet()
dtAppData = DaysLeftInAppSe ason(1)

'TROUBLE HERE
For Each dtRow In dtAppData
intDaysLeft = dtAppData("Days Left")
strCloseDate = dtAppData("Clos eDate")
Next

lblLabel1.Text = intDaysLeft
lblLabel2.Text = strCloseDate

End Sub



Protected Function DaysLeftInAppSe ason(ByVal intAppID As Integer) As
DataTable

Dim objConnection As SqlConnection
Dim cmdSelect As SqlCommand
Dim drAppData As SqlDataReader
Dim dtResponse As DataTable
Dim dtColumn As DataColumn
Dim dtRow As DataRow
Dim strConnectStrin g As String
Dim strSQL As String

strConnectStrin g = System.Web.Conf iguration.....e tc....
strSQL = "SELECT CloseDate, DateDiff(Day, GetDate(), CloseDate) AS DaysLeft
FROM ListAppTypes WHERE ID = " & intAppID

objConnection = New SqlConnection(s trConnectString )
cmdSelect = New SqlCommand(strS QL, objConnection)
dtResponse = New DataTable("Capi talData")
dtColumn = New DataColumn("Clo seDate", GetType(String) )
dtColumn = New DataColumn("Day sLeft", GetType(Integer ))

objConnection.O pen()
drAppData = cmdSelect.Execu teReader()
drAppData.Read( )
dtRow = dtResponse.NewR ow()
dtRow("CloseDat e") = drAppData("Clos eDate")
dtRow("DaysLeft ") = drAppData("Days Left")
drAppData.Close ()
objConnection.C lose()

Return dtResponse

End Function

[D. Shane Fowlkes]

That's it!

Thanks everyone!

"dtAppData.Tabl es(0).Rows(0)(" DaysLeft")"

"Peter Bromberg [C# MVP]" <pb*******@yaho o.nospammin.com > wrote in message
news:7E******** *************** ***********@mic rosoft.com...

You have to type everything:

If it's only one row you certainly don't need a for each since that would
just be a waste of CPU cycles:
lblLabel1.Text = dtAppData.Table s(0).Rows(0)("D aysLeft")
lblLabel2.Text = dtAppData.Table s(0).Rows(0)("C loseDate")

Hope that helps.

peter


--
Co-founder, Eggheadcafe.com developer portal:
http://www.eggheadcafe.com
UnBlog:
http://petesbloggerama.blogspot.com


"D. Shane Fowlkes" wrote:

I understand and I thank you for your time. I've looked into 2 books and
searched the asp.net forums and still haven't had much luck. I'm having
trouble connecting the dots here and I legitimately am stuck. I have
found
numerous datatable examples and how to read them but they all deal with
binding to a repeater or something like that. I'm not trying to bind - I
just want to read the values from the first and only row in the DT.

Let me simplify my question - How can I read a column 1 and column 2 from
a
single row, 2 column datatable? It's that simple (I think). The
function
returns a 2 column, 1 row record and I'm trying to get the page_load sub
to
read it.

I tried your suggestion but it didn't work. VWD is still telling me
"Expression is of type System.Data.Dat aTable, which is not a collection
type". It is telling me this at "For Each dtRow In dtAppData".

Thanks again.
Dim dtAppData As DataTable
Dim dtRow As DataRow
Dim intDaysLeft As Integer
Dim strCloseDate As String

dtAppData = MyFunction()

For Each dtRow In dtAppData
intDaysLeft = dtRow("DaysLeft ")
strCloseDate = dtRow("CloseDat e")
Next



"Peter Bromberg [C# MVP]" <pb*******@yaho o.nospammin.com > wrote in
message
news:52******** *************** ***********@mic rosoft.com...

> One final comment:
> We see (meaning Marina, I and many others) this happening all the time.
> The
> MS people put a huge investment into the Quickstarts and Samples
> applications; they install with either Visual Studio .NET or the .NET
> Framework SDK.
>
> The examples are progressive, easy to use, and very comprehensive. And
> they
> are all available in your choice of language. So, if you don't start at
> the
> Quickstarts, you are doing yourself a disservice in getting to "First
> Base"
> quickly and with less frustration.
> Peter
>
> --
> Co-founder, Eggheadcafe.com developer portal:
> http://www.eggheadcafe.com
> UnBlog:
> http://petesbloggerama.blogspot.com
>
>
>
>
> "D. Shane Fowlkes" wrote:
>
>> I have a function that is called in page_load and the purpose of this
>> function is to look up basic data in a MSSQL table and return it in
>> the
>> form
>> of a datatable. The page_load will read the data and then fill a few
>> simple
>> labels.
>>
>> **Assuming** that I wrote the function properly, how exactly can I
>> write
>> the
>> page_load sub to read the data from the function? I've tried a few
>> examples
>> from a couple of books I have but can't seem to get a working model.
>> I'll
>> go
>> back and add try/catch to the function later once the basics are in
>> place
>> and working.
>>
>> Help and assistance would GREATLY be appreciated! I'm having trouble
>> reading the data in the page_load sub. Using ASP/VB .NET 2.
>>
>>
>>
>>
>> Protected Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
>>
>> Dim dtAppData As DataTable
>> Dim dtRow As DataRow
>> Dim dsCapData As DataSet
>> Dim intDaysLeft As Integer
>> Dim strCloseDate As String
>>
>> dsCapData = New DataSet()
>> dtAppData = DaysLeftInAppSe ason(1)
>>
>> 'TROUBLE HERE
>> For Each dtRow In dtAppData
>> intDaysLeft = dtAppData("Days Left")
>> strCloseDate = dtAppData("Clos eDate")
>> Next
>>
>> lblLabel1.Text = intDaysLeft
>> lblLabel2.Text = strCloseDate
>>
>> End Sub
>>
>>
>>
>>
>>
>>
>>
>> Protected Function DaysLeftInAppSe ason(ByVal intAppID As Integer) As
>> DataTable
>>
>> Dim objConnection As SqlConnection
>> Dim cmdSelect As SqlCommand
>> Dim drAppData As SqlDataReader
>> Dim dtResponse As DataTable
>> Dim dtColumn As DataColumn
>> Dim dtRow As DataRow
>> Dim strConnectStrin g As String
>> Dim strSQL As String
>>
>> strConnectStrin g = System.Web.Conf iguration.....e tc....
>> strSQL = "SELECT CloseDate, DateDiff(Day, GetDate(), CloseDate) AS
>> DaysLeft
>> FROM ListAppTypes WHERE ID = " & intAppID
>>
>> objConnection = New SqlConnection(s trConnectString )
>> cmdSelect = New SqlCommand(strS QL, objConnection)
>> dtResponse = New DataTable("Capi talData")
>> dtColumn = New DataColumn("Clo seDate", GetType(String) )
>> dtColumn = New DataColumn("Day sLeft", GetType(Integer ))
>>
>> objConnection.O pen()
>> drAppData = cmdSelect.Execu teReader()
>> drAppData.Read( )
>> dtRow = dtResponse.NewR ow()
>> dtRow("CloseDat e") = drAppData("Clos eDate")
>> dtRow("DaysLeft ") = drAppData("Days Left")
>> drAppData.Close ()
>> objConnection.C lose()
>>
>> Return dtResponse
>>
>> End Function
>>
>>
>>